特别声明：本文为原创，可自由转载、引用，但需署名作者且注明文章出处，如有侵权请联系！

今天在使用按键精灵需要对屏幕进行截图并保持到电脑的指定文件夹内，可以使用自定义目录。这就需要判断当前设置的目录是否存在，不存在则创建目录。

判断文件夹是否存在

Set fso = CreateObject("Scripting.FileSystemObject")
filepath = "D:\Users\Administrator\Desktop\" & date & "\"
IsFile = fso.FolderExists(filepath)
If IsFile = 0 Then
    Msgbox "目标文件夹不存在"
    Plugin.File.CreateFolder filepath
Else 
    Msgbox "目标文件夹存在"
End If

判断文件是否存在

IsFile = Plugin.File.IsFileExit("D:\Users\Administrator\Desktop\test.txt")
If IsFile = 0 Then
     Msgbox "目标文件不存在"
Else 
     Msgbox "目标文件存在"
End If

公众号