ファイル ファイルが存在しているかどうかを確認する

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル ファイルが存在しているかどうかを確認する]
Option Explicit


Public Function FileExistence(FilePath As StringAs Boolean
'**************************************************
'ファイルが存在しているかどうかを確認する
'**************************************************
    If Dir(FilePath) <> "" Then
        FileExistence = True
    Else
        FileExistence = False
    End If

End Function


Public Function FileExistenceFSO(FilePath As StringAs Boolean
'**************************************************
'ファイルが存在しているかどうかを確認する(FSO)
'**************************************************

    With CreateObject("Scripting.FileSystemObject")
        If .FileExists(FilePath) Then
            FileExistenceFSO = True
        Else
            FileExistenceFSO = False
        End If
    End With

End Function


Private Sub test()
Dim i As String
i = ThisWorkbook.Path & "\"
Debug.Print FileExistence(i & "*.xls")
Debug.Print FileExistence(i & "test.xls")
Debug.Print FileExistence(i)
Debug.Print FileExistence("test.xls")
Debug.Print FileExistence("xls")

'True
'False
'True
'False
'False
End Sub






Production Japan Import Application. Since 1998