使用FSO对象
Dim FSO,Folder1
Folder1 = "F:\Temp\123"
Set FSO = CreateObject("s cripting.FileSystemObject") '创建FSO对象
If Not FSO.FolderExists(Folder1) Then ‘判断指定文件夹是否存在
FSO.CreateFolder Folder1 ’不存在则创建文件夹
End if
Set FSO = Nothing ‘释放FSO对象