2011年4月8日金曜日

ファイルの検索 (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)に続く

0 件のコメント:

コメントを投稿