判断D盘下,名为 changeAfter_Files 的文件夹是否存在,如果不存在就新建一个名为 changeAfter_Files 的文件夹
Sub judgeFile()
Dim resFolder
resFolder = Dir("D:\changeAfter_Files", vbDirectory) '判断路径为"D:\changeAfter_Files"的文件夹是否存在
'如果不存在,就新建一个
If resFolder = "" Then
MkDir ("D:\changeAfter_Files")
End If
End Sub