Excel VBAを使用してファイルまたはフォルダーがコンピューターに存在するかどうかを確認するにはどうすればよいですか？

今日のオフィスオートメーションチュートリアルは、ファイルがコンピュータディレクトリの1つに存在することを確認する方法を学ぶことに焦点を当てています。

準備

コーディングに少し慣れていない場合は、Microsoft Office Excelの[開発]タブが有効になっていることと、基本的なExcelVBAに精通していることを確認してください。

ExcelVBAでファイルが存在するかどうかを確認する

次のコードは、入力ボックスを利用して、ファイルへのパスとファイル名自体をユーザーから取得します。

次に、Dirメソッドを利用して、ファイルパスが実際に存在するかどうかを確認します。

最後に、チェック結果を含むメッセージボックスがユーザーに表示されます。

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

フォルダが存在するかどうかを確認します

まったく同様の方法で、特定のフォルダがオペレーティングシステムに存在するかどうかを確認できます。また、ここではDirメソッドを利用していますが、vbDirectoryパラメーターを使用しています。

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

コードの使用

• Microsoft Excelを開き、ブックに移動します。
• Developerを押してから、VisualBasicを押します。
• 上記のコードをコピーして、VBAモジュールの特定のシートにサブルーチンとして貼り付けます。
• コードを実行（F5）します。
• ブックを保存します。

可能な拡張

上記のボイラープレートコードは、次のユースケースに拡張されます。

• まだ存在しない場合は、フォルダ/ファイルを作成します。
• オペレーティングシステムのファイルディレクトリにある場合は、フォルダのファイルを削除します。
• ワイルドカードを使用してファイル/フォルダーを検索します。