Dim fso As New FileSystemObject If fso.FolderExists("d:\aa") Then fso.CreateFolder ("d:\aa") Else MsgBox "目录已存在!" End If Set fso = Nothing
靠!应该是这样: Dim fso As New FileSystemObject If not fso.FolderExists("d:\aa") Then fso.CreateFolder ("d:\aa") Else MsgBox "目录已存在!" End If Set fso = Nothing
' 这样就在F盘里键立了一个ABC的文件夹了
path 参数是用来指定所要创建的目录或文件夹的字符串表达式。path可以包含驱动器。如果没有指定驱动器,则MkDir会在当前驱动器上创建新的目录或文件夹。请参阅 ChDir语句,CurDir函数,RmDir语句示例本示例使用MkDir语句来创建目录或文件夹。如果没有指定驱动器,新目录或文件夹将会建在当前驱动器中。
MkDir"MYDIR" '建立新的目录或文件夹。
If fso.FolderExists("d:\aa") Then
fso.CreateFolder ("d:\aa")
Else
MsgBox "目录已存在!"
End If
Set fso = Nothing
Dim fso As New FileSystemObject
If not fso.FolderExists("d:\aa") Then
fso.CreateFolder ("d:\aa")
Else
MsgBox "目录已存在!"
End If
Set fso = Nothing