file_exist.txt

この文章はAIで生成しています。誤りが含まれることがあります。

このプログラムは、指定されたファイル名がシステム内に存在するかどうかをチェックし、その結果をメッセージボックスで表示するVBAコードです。具体的には、変数strにチェックしたいファイル名を代入し、Dir関数を使用してそのファイルの存在を確認します。存在する場合は「有り」、存在しない場合は「無し」というメッセージボックスが表示されます。

Dim str As String: str = "filename"
If Dir(str) <> "" Then
    MsgBox "有り"
Else
    MsgBox "無し"
End If