３．フォルダー内のファイル名を読み込む(Dir 関数の使用例)

１．フォルダー内のファイル名を読み込む(Dir 関数の使用例) ２．　 ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：　　　　　　　　　　　　　　　　　　　　　　　参照設定方法参照 使用 API： その他　： 　　　　：

１．フォルダー内のファイル名を読み込む(Dir 関数の使用例)

フォームにコマンドボタンとテキストボックスを貼付けMultiLineプロパティをTrueにし、ScrollBars＝２に設定して下さい。 Dir 関数を使ってWindows ディレクトリのビットマップファイルを取得し、配列に読込その後配列の内容をテキストボックスに表示します。 Option Explicit　　 'SampleNo=097　　　 2002.05.18 Private Sub Command1_Click() 　　Dim strMyFile() As String 　　Dim strBMPFile　As String 　　Dim intKen　　　As Integer 　　Dim i　　　　　 As Integer 　　Dim kakutyosi　 As String 　　kakutyosi = "BmP"　'大文字・小文字を混在でも 　　'ディレクトリ内の全ファイル・フォルダーを読み込む 　　strBMPFile = Dir$("c:\windows\", vbDirectory Or vbHidden Or vbSystem) 　　'strBMPFile = Dir$("c:\windows\*.*") 'ファイルだけならこちらでも 　　'strBMPFile が空になるまで繰り返し 　　Do While strBMPFile <> "" 　　　　'大文字・小文字を区別せずに比較し拡張子が合えば 　　　　If StrComp(Right$(strBMPFile, 3), kakutyosi, 1) = 0 Then 　　　　　　intKen = intKen + 1 　　　　　　ReDim Preserve strMyFile(intKen) 　　　　　　'ファイル名を配列に格納 　　　　　　strMyFile(intKen) = strBMPFile 　　　　End If 　　　　strBMPFile = Dir$　　　　'次のファイル名を読込 　　Loop 　　For i = 1 To intKen 　　　　Text1.Text = Text1.Text & strMyFile(i) & vbCrLf 　　Next i 　　Text1.Text = Text1.Text & vbCrLf & "　===　全部で " & intKen & " ファイルありました。===" End Sub 単純検索の場合 パスとファイル名がわかっている場合は単にファイル名を指定する事でそのファイルがあれば、そのファイル名が返ってきます。 　　strMyFile = Dir("C:\WINDOWS\WIN.INI")

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)