用vb看查文件是否存在

来源：百度知道 编辑：UC知道 时间：2024/07/05 08:26:26
假如文件存在 则可以执行程序
假如文件不存在 则不可以执行程序
请留下代码 谢

Private Sub Form_Load()
If Dir("d:\1.txt") = "" Then End
End Sub

'引用filesystemobject对象
'Microsoft Scripting Runtime
Dim fs As New FileSystemObject
If fs.FileExists("c:\1.txt") Then
MsgBox "文件存在"
Else
MsgBox "文件不存在"
End If
这段代码能测试所有文件是否存在 用之前想引用filesystemobject对象 我测试过非常使用