【VBA】ファイルの存在確認

メモ

業務でファイルの存在確認を行う事がよくある為に、メモで残しておく。

ファイルの存在確認

Dir関数を使用して、ファイルの存在確認を行えます。
下記のように記載する事で、確認出来ます。存在する場合はファイル名を返し、存在しない場合は空欄が返ります。

ファイルの存在確認

Sub Check_File()

    Dim File_Pass As String
    File_Pass = Dir("C:\スクリプト類\*.txt")

    Debug.Print File_Pass

End Sub

ファイルが存在しない場合に、ファイルを生成したい場合は下記のようにしています。

ファイルが存在しない場合に、生成

Sub Check_File()
    
    If Dir("C:\スクリプト類\test.txt") = "" Then
    
        Open "C:\スクリプト類\test.txt" For Output As #1
        Close #1
    
    End If
    
End Sub