VB中检测当前文件目录下是否存在某文件
如题比如用command1点击后检测当前的目录是否存在指定的文件如果有继续运行如果没有就关闭自身可以是思路也可以是代码谢谢大家.....
如题 比如用command1点击后检测当前的目录是否存在指定的文件 如果有继续运行 如果没有就关闭自身 可以是思路也可以是代码 谢谢大家..
展开
3个回答
展开全部
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
这段代码你参考一下吧。我试过了,不错。
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
这段代码你参考一下吧。我试过了,不错。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询