Private Sub mnuDirNew_Click()
   On Error GoTo errHandler
   
   Dim str As String
   str = InputBox("输入所要创建的文件夹的名称！", "新建文件夹", mFSO.GetTempName())
   If str = "" Then Exit Sub
   str = mFSO.BuildPath(dirList.Path, str)
   mFSO.CreateFolder str '创建文件夹
   dirList.Path = str '刷新文件夹列表
   
   Exit Sub
   
errHandler:
   MsgBox Err.Description, vbCritical, "创建文件夹错误"
End Sub
这个过程的Err.Description是什么意思

Property Description As String
    Member of VBA.ErrObject
    Returns or sets the string expression containing a descriptive string associated with an object

sorry,i can not got it clearly

错误提示

进VB，按F2，输入Err，回车。

好的，谢谢

Description 属性设置对错误进行简短描述。当无法处理或不想处理错误的时候，可以使用这个属性提醒用户。在生成用户自定义的错误时，将有关此错误的一个简短陈述指定给 Description 属性。如果 Description 未填入数据，而且 Number 的值与 Visual Basic 运行时错误一致，那么在生成错误时，将 Error 函数返回的字符串放置在 Description 中。