急急急!!!在線等。確定同目錄下是否存在指定的文件
Private Sub Cmd_Findfile_Click()
On Error Resume Next
Dim fso As New FileSystemObject
Dim fil As File
Dim bool As Boolean
'fil = "E:\"
'Set fil = fso.GetFile(App.Path & "\DTS-BCSJ.TXT")
Set fil = fso.FileExists("DTS-BCSJ.TXT")
'提示“形態不符”
If fil <> "" Then
MsgBox "存在該文件(DTS-BCSJ.TXT)", vbCritical, "提示"
Else
MsgBox "不存在該文件(DTS-BCSJ.TXT)", , "提示"
End If
End Sub