这也是一个非常常用的小方法
需要用到的Object是FileSystemObject,脚本如下:
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Fldr
Fldr = "D:\截图"
If (FSO.FolderExists(Fldr)) Then
Msgbox "【" & Fldr & "】目录已存在"
Else
Msgbox "【" & Fldr & "】目录不存在,新建该目录"
'在D盘新建一个叫【截图】的目录
FSO.CreateFolder(Fldr)
End If
FileSystemObject的方法还有很多,可用通过“.”来查看