２２．ファイルやフォルダを検索する



＜　使用用途　＞
ファイルやフォルダを検索する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード　・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のSearchPathを使用します。
SearchPath＝＞ファイルやフォルダを検索する
　　＜引数＞
　　　　　lpPath：ドライブ
　　　　　lpFileName：ファイル名
　　　　　lpExtension：拡張子
　　　　　lpBuffer：存在するときだけ文字列が入る
　　　　　lpFilePart：あまり意味なし
　　＠戻り値＠　　
　　　　存在する場合 0以外でかえる

<　ＳＡＭＰＬＥ　＞
'C:\Windows\Calc.exeは存在するのか調べる処理です
’標準モジュール
Public Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal lpPath As String, ByVal lpFileName As String, ByVal lpExtension As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long


’フォーム内の処理
Private Sub Command1_Click()

　　Dim nName As String
　　Dim nFile As String
　　Dim nLeng As Long
　　Dim Ret As Long

　　’バッファを確保
　　　nName = String(250, Chr(0))
　　　nFile = String(250, Chr(0))
　　　nLeng = Len(nName)

　　　Ret = SearchPath("c:\windows", "calc", ".exe", nLeng, nName, nFile)

　　If Ret<>0 Then
　　　　MsgBox "Calc.exe存在します"
　　Else
　　　　Msgbox "Calc.exe存在しません"
　　End If

End Sub

'フォルダを検索する場合
'***************************************************
'CドライブにWINDOWSフォルダが存在するか？
'Ret = SearchPath("c:\", "Windows", "", nLeng, nName, nFile)
'***************************************************