定义了一个创建文件夹的方法Private Sub Command1_Click()
If Dir("\\192.168.75.122\hc\cc", vbDirectory) <> "" Then
MsgBox "exist "
Else
MkDir "\\192.168.75.122\hc\cc"
MsgBox "create "
End If
End Sub上面这种写法就没有问题,但是换成下面:
Private Sub Command1_Click()
Dim folden_path As String
folden_path = "\\192.168.75.122\hc\cc"
If Dir(folden_path, vbDirectory) <> "" Then
MsgBox "exist "
Else
MkDir "\\192.168.75.122\hc\cc"
MsgBox "create "
End If
End Sub把路径放在变量里就不行,报错:意外错误52为什么???
If Dir("\\192.168.75.122\hc\cc", vbDirectory) <> "" Then
MsgBox "exist "
Else
MkDir "\\192.168.75.122\hc\cc"
MsgBox "create "
End If
End Sub上面这种写法就没有问题,但是换成下面:
Private Sub Command1_Click()
Dim folden_path As String
folden_path = "\\192.168.75.122\hc\cc"
If Dir(folden_path, vbDirectory) <> "" Then
MsgBox "exist "
Else
MkDir "\\192.168.75.122\hc\cc"
MsgBox "create "
End If
End Sub把路径放在变量里就不行,报错:意外错误52为什么???
不是说了吗,报错,提示说:意外错误52