主题：[求助]如何判断目录存在文件

如何某一个目录下是否存在文件？有判断制定名称的文件是否存在的例子。谢谢！

代码：

 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
过不了。

错误提示如下：

此主题相关图片如下：360软件小助手截图20141224190734.png

没必要这么麻烦啊。

 

If FileSys.FileExists("d:\" & "test.xls") Then
    msgbox("存在")
End If

或者

 

For Each File As String In FileSys.GetFiles(pth)
    If file Like "*test.xls*" Then
        FileSys.DeleteFile(file,3,3)
    End If
Next

现在的问题，不知道文件的名称，只是要求判断目录下是否存在文件，有文件就删除它。

 看5楼，6楼，把写死的东西换成变量就行啊。

是否可以用通配符？

For Each File As String In FileSys.GetFiles(pth)
    If file Like "*test.xls*" Then
        FileSys.DeleteFile(file,3,3)
    End If
Next