「D\」というフォルダに「Aaa.pdf」と言うファイルが在るかどうかの判定方法

質問

「D\」というフォルダに「Aaa.pdf」と言うファイルが在るかどうかを調べるコードを書きたいのですが
どうゆう風にしていいのかわかりません。
If ??? Then
MsgBox "ファイルは存在します"
Else
MsgBox "ファイルは存在しません"
End If

と言うことは可能でしょうか？
どうすればいいのかわかりません！！
よろしくお願い致します。

回答No.2

n-jun · ベストアンサー

こんな方法でも。

Sub test()
　If Dir("D:\Aaa.pdf") <> "" Then
　　　　MsgBox "ファイルは存在します"
　Else
　　　　MsgBox "ファイルは存在しません"
　End If
End Sub

ＦＳＯはちょい苦手でして。

お礼

おお！
できました！ご回答ありがとうございます。

回答No.3

himajin100000

#コピペ元のソースの関係で変数msgの宣言残ってますが,全く必要ないです,はい。

お礼

再度ご回答ありがとうございます。

回答No.1

himajin100000

Option Explicit

Sub Main()

Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("D:\Aaa.pdf") Then
MsgBox "ファイルは存在します"
Else
MsgBox "ファイルは存在しません"
End If

End Sub

'http://msdn.microsoft.com/en-us/library/x23stk5t(VS.85).aspx
'FileSystemObjectを利用しているので参照設定でMicrosoft Scripting Runtimeに
'チェックを入れる必要アリ。

'いくつか検索して調べたところ,
'サイトによってはDir関数の戻り値が空文字列であるかどうかで判定しているが,
'残念ながらMSDNの資料からは該当の記述を見つけられなかった。
'http://msdn.microsoft.com/en-us/library/aa262726(VS.60).aspx

お礼

むむっ！
難しいですね。
試してみます。
ご回答ありがとうございます。