if dir("c:\1.txt")<>"" then msgbox "c:\1.txt 存在" else msgbox "c:\1.txt 不存在"
Option Explicit
Private Sub Command1_Click()
If Dir("C:\WINDOWS\system32\roect", vbDirectory) <> "" Then
MsgBox "文件夹：C:\WINDOWS\system32\roect 存在！"
Else
MkDir "C:\WINDOWS\system32\roect"
End If
End Sub
用VB6.0测试过了没问题
用input会出错
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024