资源管理站

按键精灵判断文件夹或文件是否存在,不存在则新建

zyglz 1336 0

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

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

判断文件夹是否存在

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

评论列表 (已有0条评论)

消灭零回复

发表评论 (已有0条评论)

icon_lol.gif2016zhh.gif2016fendou.gif2016lengh.gificon_exclaim.gif2016gg.gif2016yhh.gificon_cry.gif2016bs.gif2016qd.gif2016bz.gificon_eek.gif2016ka.gif2016zhem.gificon_confused.gif2016qq.gif2016db.gif2016jk.gif2016tuu.gif2016zk.gif2016kk.gificon_neutral.gif