TOP > カテゴリ > Visual Basic >

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

ファイルやフォルダを検索するサンプルです。

サンプルの実行画面

ソースコード

[SearchPath.frm]

'SearchPath=>ファイルやフォルダを検索する

'<引数>
'lpPath:      ドライブ
'lpFileName:  ファイル名
'lpExtension: 拡張子
'lpBuffer:    存在するときだけ文字列が入る
'lpFilePart:  あまり意味なし

'@戻り値@
' 存在する場合 0以外でかえる

Private 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(Text1.Text, Text2.Text, Text3.Text, nLeng, nName, nFile)

    If Ret <> 0 Then
        MsgBox "下記は存在します" & vbCrLf & nName
    Else
        MsgBox "存在しません"
    End If


End Sub

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

ソースコード一式のダウンロード

vbapi_searchpath.zip 1.19 KB (1,228 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





掲示板

ソフトウェア、ハードウェアのプログラミング用の掲示板を作成しました。質問やわからない事は@掲示板でユーザー同士で情報を共有して下さい。

関連記事



公開日:2015年03月04日
記事NO:00345