- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何判断目录存在文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62060)
-- 发布时间：2014/12/24 18:59:00
-- [求助]如何判断目录存在文件
如何某一个目录下是否存在文件？有判断制定名称的文件是否存在的例子。谢谢！
-- 发布时间：2014/12/24 19:04:00
--
代码：
Dim file As String=filesys.getfiles(pth)
If file IsNot Nothing Then
For Each File As String In FileSys.GetFiles(pth)
FileSys.DeleteFile(file,3,3)
Next
End If
过不了。
[此贴子已经被作者于2014-12-24 19:05:30编辑过]
-- 发布时间：2014/12/24 19:06:00
--
错误提示如下：
此主题相关图片如下：360软件小助手截图20141224190734.png
-- 发布时间：2014/12/24 19:09:00
--
没必要这么麻烦啊。
If FileSys.FileExists("d:\\" & "test.xls") Then
msgbox("存在")
End If
-- 发布时间：2014/12/24 19:10:00
--
或者
For Each File As String In FileSys.GetFiles(pth)
If file Like "*test.xls*" Then
FileSys.DeleteFile(file,3,3)
End If
Next
-- 发布时间：2014/12/24 19:23:00
--
现在的问题，不知道文件的名称，只是要求判断目录下是否存在文件，有文件就删除它。
-- 发布时间：2014/12/24 19:43:00
--
看5楼，6楼，把写死的东西换成变量就行啊。
-- 发布时间：2014/12/24 21:10:00
--
是否可以用通配符？
-- 发布时间：2014/12/24 21:12:00
--
For Each File As String In FileSys.GetFiles(pth)
If file Like "*test.xls*" Then
FileSys.DeleteFile(file,3,3)
End If
Next