ファイルの検索 (1)

フォルダ D:\SampleFolder に sample.txt というファイルが一つだけ存在

したと仮定する。この条件のもとで下記プロシージャを実行すると、コメント

に記載されたメッセージがメッセージボックスに表示される。
  

Sub ExampleFindFile()

       Dim strResult As String

       '

       'ファイル D:\SampleFolder\sample.txt が存在する場合

       strResult = Dir("D:\SampleFolder\sample.txt")

       If strReturn <> "" Then

              '

              'Msgboxに「ファイルが存在しました : sample.txt」と表示される

        Msgbox("ファイルが存在しました : " & strResult) 

       End If

       '

       'ファイル D:\SampleFolder\sample.txt が存在する場合

       strResult = Dir("D:\SampleFolder\sample.txt", 0)

       If strReturn <> "" Then

              '

              'Msgboxに「ファイルが存在しました : sample.txt」と表示される

        Msgbox("ファイルが存在しました : " & strResult) 

       End If

       '

       'ファイル D:\SampleFolder\sample2.txt が存在しない場合

       strResult = Dir("D:\SampleFolder\sample2.txt", 0)

       If strReturn = "" Then

              '

              'Msgboxに「ファイルが存在しません」と表示される

        Msgbox("ファイルが存在しません") 

       End If

       '

       'フォルダ D:\SampleFolder が存在する場合

       strResult = Dir("D:\SampleFolder", 16)

       If strReturn <> "" Then

              '

              'Msgboxに「フォルダが存在しました : SampleFolder」と表示される

        Msgbox("フォルダが存在しました : " & strResult) 

       End If

End Sub
  
(2)に続く