ファイルが存在するかどうかを確認し、存在する場合はそれを開いて1行目を読み取りたいのですが、
ファイルが存在しないか、ファイルに内容がない場合は、エラーが発生したことを誰にも知らせずに、静かに失敗するようにします。
ベストアンサー1
まずはこれから始まります:
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(path)) Then
msg = path & " exists."
Else
msg = path & " doesn't exist."
End If
から抜粋ドキュメンテーション。