VB的MkDir如何处理？

Question

代码如下：

Private Sub Command1_Click()
MkDir "C:\Users\86189\Desktop\a"
End Sub

出现错误：

但事实上已成功生成a文件夹
如何处理？谢谢

Answer 1

引用 皆我百晓生 小程序回复内容作答：
这个错误是因为在执行MkDir时，可能你没有足够的权限来创建文件夹。尽管会出现错误消息，但实际上文件夹已经成功创建了。

为了处理这个问题，你可以使用Try-Catch块来捕获异常，并且忽略路径/文件访问错误。

例如，你可以这样修改你的代码：

Private Sub Command1_Click()
    On Error Resume Next ' 忽略错误
    MkDir "C:\Users\86189\Desktop\a"
    On Error GoTo 0
End Sub

上面的代码使用了On Error Resume Next来忽略错误，然后继续执行后面的代码。但请注意，这种做法会忽略所有的错误，所以请确保你只在明确知道可能出现问题的地方使用它。

另外，你也可以在创建文件夹之前，先检查文件夹是否已存在：

Private Sub Command1_Click()
    Dim folderPath As String
    folderPath = "C:\Users\86189\Desktop\a"
    
    If Not IO.Directory.Exists(folderPath) Then
        MkDir folderPath
    End If
End Sub

上面的代码使用了IO.Directory.Exists来检查文件夹是否已存在。如果文件夹不存在，则创建它。这种做法更加安全，因为不会出现不必要的错误。