ファイルやフォルダを検索する
ファイルやフォルダを検索するサンプルです。
サンプルの実行画面

ソースコード
[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
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte