Question

VB中检测当前文件目录下是否存在某文件

如题 比如用command1点击后检测当前的目录是否存在指定的文件 如果有继续运行 如果没有就关闭自身 可以是思路也可以是代码 谢谢大家..

Answer 1

Private Sub Command1_Click()
Dim FS As Object, F, Fl As String
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists(App.Path & "\ABC") = True Then
F = App.Path & "\ABC"
Else
MsgBox "文件夹不存在！", 16, "´错误"
Exit Sub
End If
Fl = F & "\txt.txt"
If FS.FileExists(Fl) = True Then
MsgBox "这个文件存在！", 64, "文件存在"
Else
MsgBox "这个文件不存在！", 16, "错误"
End If
End Sub
这段代码你参考一下吧。我试过了，不错。

Answer 2

if DIR(文件路径）="" then
end
end if

Answer 3

if dir("c:\aaa.txt") ="" then