ファイルが存在するか調べるには

ファイルが存在するか調べます。
キーワードは「PathFileExists()関数」です。
PathFileExists()関数は、指定したパスが有効かどうか、つまりファイルが存在するかどうかを調べます。

実行中の様子



'指定のファイルの有無をチェックする
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" _
    (ByVal lpszPath As String) As Long


Private Sub Command1_Click()
If PathFileExists(Me.Text1.Text) Then
    MsgBox "ファイルがあった"
Else
    MsgBox "ファイルが見つからないよ？"
End If
End Sub


Private Sub Form_Load()
Me.Text1.Text = "c:\windows\notepad.exe"
End Sub

ダウンロード