ベストアンサー

ツリービューを使って、エクスプローラのようなものを作りたい。

2002/10/03 16:15

タイトルの通りです。VBで、Windowsのエクスプローラのような物を作り、それでファイルを選択したいのですがその作り方が分かりません。任意の場所から、その最下層までのファイル名やフォルダ名を取得し、それをツリービューに表示させてエクスプローラのようなものを作りたいのです。どなたか分かる方がおりましたら、お教えください。

ikazuti
お礼率89% (659/739)

Visual Basic
回答数3
ありがとう数5

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

taisuke555
ベストアンサー率55% (132/236)

2002/10/04 04:17 回答No.2

今（結構時間が掛かりましたが）、作ったばかりなのでバグがあるかもしれません。参考程度にして下さい。 [TreeView]コントロールと[ImageList]コントロールを作成し（この部分の操作説明はいいですね？）以下のコードを貼り付けて「編集」→「置換」で［完全に一致する単語だけを検索する］をチェックして全角[＿]を[半角スペース]に置換して下さい。（1963個の文字を置換しています）（せっかく入れ子にしているのに、スペースがつまってしまうため[＿]に変換しました） Option Explicit Private Const MAX_PATH = 260 Private Const INVALID_HANDLE_VALUE =＿-1 Private Const ERROR_NO_MORE_FILES = 18& Private Type FILETIME ＿＿＿＿＿＿＿ dwLowDateTime As Long ＿＿＿＿＿＿＿ dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA ＿＿＿＿＿＿＿ dwFileAttributes As Long ＿＿＿＿＿＿＿ ftCreationTime As FILETIME ＿＿＿＿＿＿＿ ftLastAccessTime As FILETIME ＿＿＿＿＿＿＿ ftLastWriteTime As FILETIME ＿＿＿＿＿＿＿ nFileSizeHigh As Long ＿＿＿＿＿＿＿ nFileSizeLow As Long ＿＿＿＿＿＿＿ dwReserved0 As Long ＿＿＿＿＿＿＿ dwReserved1 As Long ＿＿＿＿＿＿＿ cFileName As String * MAX_PATH ＿＿＿＿＿＿＿ cAlternate As String * 14 End Type Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA"＿(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Declare Function FindClose Lib "kernel32"＿(ByVal hFindFile As Long) As Long Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA"＿(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA"＿(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Usr_Path As String ＿＿＿＿＿＿＿'任意のフォルダ #Ver2 Private Sub Form_Load() ＿＿＿ Dim s As String ＿＿＿ Dim t As String ＿＿＿ Dim n& ＿＿＿ Dim key As Integer ＿＿＿＿＿＿＿＿'イメージリストコントロールにアイコンを割り付ける＿＿＿ With ImageList1 ＿＿＿＿＿＿＿＿.ImageHeight = 16 ＿＿＿＿＿＿＿＿.ImageWidth = 16 ＿＿＿＿＿＿＿ With .ListImages ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"Open", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\Openfold.ico") ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"Close", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\Clsdfold.ico") ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"Drive", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\Drive.ico") ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"CD", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\Cddrive.ico") ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"FD", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\35floppy.ico") ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"525FD", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\525flop1.ico") ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"Rec", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\Waste.ico") ＿＿＿＿＿＿＿＿＿＿＿＿.Add 1,＿"Desk", LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Win95\Desktop.ico") ＿＿＿＿＿＿＿ End With ＿＿＿ End With ＿＿＿ TreeView1.ImageList = ImageList1 ＿＿＿＿'TreeViewコントロールにドライブを表示 '#2 ＿＿ key = 0 '#2 ＿＿ TreeView1.Nodes.Add ,＿,＿"rt",＿"デスクトップ",＿"Desk" ＿＿＿＿ '#2 ＿＿ s$ = String$(2048, 0) '#2 ＿＿ Call GetLogicalDriveStrings(2047, s$)＿＿'ドライブを取得 '#2 ＿＿ Do '#2 ＿＿＿＿＿＿ n = InStr(s$, Chr$(0)) '#2 ＿＿＿＿＿＿ If n > 1 Then ＿＿＿＿＿＿＿＿ '#2 ＿＿＿＿＿＿＿＿＿＿ key = key + 1 '#2 ＿＿＿＿＿＿＿＿＿＿ TreeView1.Nodes.Add "rt", tvwChild,＿"a-" & CStr(key),＿"(" & Left$(s$, n - 2) & ")",＿"Drive" '#2 ＿＿＿＿＿＿＿＿＿＿ TreeView1.Nodes.Item("a-" & CStr(key)).Sorted = True ＿＿＿＿＿＿＿＿＿＿＿＿'全てのフォルダを取得すると表示までに時間が掛かるので却下＿＿＿＿＿＿＿＿＿＿＿＿'Folder_Serch Left$(s$, n - 2),＿"a-" & CStr(key) '#2 ＿＿＿＿＿＿＿＿＿＿ s$ = Mid$(s$, n + 1) '#2 ＿＿＿＿＿＿ End If '#2 ＿＿ Loop Until n <= 1 ＿＿＿ Usr_Path =＿"c:\Windows"＿＿＿＿＿'#2 ＿＿＿ TreeView1.Nodes.Add ,＿,＿"a", Usr_Path,＿"Close" ＿＿＿ TreeView1.Nodes.Item("a").Sorted = True ＿＿＿ Folder_Serch Usr_Path,＿"a"＿＿'#2 ＿＿＿＿＿＿＿ TreeView1.BorderStyle = ccNone End Sub Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node) ＿＿＿＿'TreeView1の開いたフォルダのイメージを変更＿＿＿ If (Node.Image =＿"Open") Then ＿'Drive等のイメージを変更しないように＿＿＿＿＿＿＿ Node.Image =＿"Close" ＿＿＿ End If End Sub Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node) ＿＿＿＿'TreeView1の閉じたフォルダのイメージを変更＿＿＿ If (Node.Image =＿"Close") Then 'Drive等のイメージを変更しないように＿＿＿＿＿＿＿ Node.Image =＿"Open" ＿＿＿ End If ＿＿＿＿'下位フォルダの取得＿＿＿ Folder_Next_Search Node End Sub Sub Folder_Serch(fo, key1) ＿＿＿ Dim hFF ＿ As Long ＿＿＿ Dim FData As WIN32_FIND_DATA ＿＿＿ Dim key ＿ As Integer ＿＿＿ Dim ret ＿ As Long ＿＿＿ Dim n ＿＿＿ As Integer ＿＿＿ Dim t ＿＿＿ As String ＿＿＿＿＿＿＿ key = 0 ＿＿＿＿＿＿＿＿＿＿＿ hFF = FindFirstFile(fo & "\*.*", FData)＿＿＿'下位ファイル（フォルダ）検索（エラーでない場合検索ハンドルが返る）＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'＿＿＿＿＿＿＿＿＿＿＿この関数はファイルも取得する＿＿＿ If (hFF <> INVALID_HANDLE_VALUE) Then ＿＿＿＿'エラーでない場合＿＿＿＿＿＿＿ ret = 1 ＿＿＿＿＿＿＿ Do While (ret <> 0) ＿＿＿＿＿＿＿＿＿＿＿ If (FData.dwFileAttributes = 16) Then ＿'フォルダならば＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'フォルダ名は260文字分の領域があり、名前の後ろにChr(0)をつけて返すので＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Chr(0)までの文字を取得＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ n = InStr(FData.cFileName, Chr$(0)) ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ If n > 1 Then ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ t = Left$(FData.cFileName, n - 1) ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Else ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ t = FData.cFileName ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ End If ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ If (t <>＿"." And t <>＿"..") Then ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ key = key + 1 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'カレントフォルダと親フォルダでなければ（表現が違うかも）＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'＿＿＿＿＿＿＿＿＿＿ TreeViewに追加＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ TreeView1.Nodes.Add key1, tvwChild, key1 & "-" & CStr(key), t,＿"Close" ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ TreeView1.Nodes.Item(key1 & "-" & CStr(key)).Sorted = True ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'全てのフォルダを取得すると表示までに時間が掛かるので却下＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'Folder_Serch fo & "\" & t, key1 & "-" & CStr(key) ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ End If ＿＿＿＿＿＿＿＿＿＿＿ End If ＿＿＿＿＿＿＿＿＿＿＿ ret = FindNextFile(hFF, FData)＿＿＿'次のファイル（フォルダ）を検索＿＿＿＿＿＿＿ Loop ＿＿＿ End If ＿＿＿ ret = FindClose(hFF) End Sub Sub Folder_Next_Search(Nd As Node) ＿＿＿ Dim s ＿ As String ＿＿＿ Dim K() As String ＿＿＿ Dim ki As String ＿＿＿ Dim pa As String ＿＿＿ Dim n ＿ As Integer ＿＿＿ Dim i ＿ As Integer ＿＿＿＿＿＿＿＿'With TreeView1.SelectedItem ＿＿＿ With Nd ＿＿＿＿＿＿＿ If (.Children > 0) Then ＿'１つ下のフォルダがあれば＿＿＿＿＿＿＿＿＿＿＿ n =＿.Child.Index ＿＿＿＿＿＿＿＿＿＿＿ Do ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ If (TreeView1.Nodes(n).Children = 0) Then '２つ下のフォルダがなければ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'Key:a?-?-?(?:は数字で連番) ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'(a:) a-1 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'(c:) a-2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'＿ ┗ Windows a-2-1 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'のように下位フォルダのキーは[上位フォルダ]＿+＿"-"＿+＿[連番] ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'に設定してあるのでKeyを元に下位フォルダのフルパスを取得＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ s = TreeView1.Nodes(n).key ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ K = Split(s,＿"-")＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'[-]で分けてK配列へ格納 '#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ki = K(0) & "-" & K(1)＿＿＿＿＿＿＿＿＿＿＿＿＿＿'a-?はドライブ '#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'ドライブ情報の()を削除 '#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ pa = Replace(TreeView1.Nodes.Item(ki).Text,＿"(",＿"") '#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ pa = Replace(pa,＿")",＿"") '#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ For i = 2 To UBound(K) '#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ki = ki & "-" & K(i) ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ pa =＿""＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ For i = 0 To UBound(K)＿＿＿＿＿＿＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ If (i = 0) Then ＿＿＿＿＿＿＿＿＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ki = K(i)＿＿＿＿＿＿＿＿＿＿＿＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Else ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ki = ki & "-" & K(i)＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ pa = pa & "\"＿＿＿＿＿＿＿＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ End If '#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ pa = pa & "\" & TreeView1.Nodes.Item(ki).Text ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ pa = pa & TreeView1.Nodes.Item(ki).Text ＿'#2 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Next i ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Folder_Serch pa, s ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'２つ下のフォルダ取得＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'変数 N が子ノードの末尾の項目のインデックスになるまで、次の項目の文字列を取得＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ If (n =＿.Child.LastSibling.Index) Then ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Exit Do ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ End If ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'変数 N を次の項目のインデックスに再設定＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ n = TreeView1.Nodes(n).Next.Index ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Else ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿'ある場合には、取得済みなので処理を終了＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Exit Do ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ End If ＿＿＿＿＿＿＿＿＿＿＿ Loop ＿＿＿＿＿＿＿ End If ＿＿＿ End With End Sub ******************************************************* ソースの中になるべく説明を書きましたが、表示に時間が掛かるので、一度にすべて登録せず、フォルダを開いてから、次の検索をしています。 #2と書かれているコメントの部分は、最初見た時に、エクスプローラを作るという部分で作り始めてしまった為、任意の場所を見落としてしまい、デスクトップから表示にしてしまいました。・・・ということで#2の部分で訂正してあります。（消すのがもったいなくて・・でもこの辺はかなり強引）私も初めて作りましたので、おかしな所もあると思いますが、あくまで参考程度でお願いします。何かおかしかったら補足してください。あと、ListImageのアイコンは私のパソコンではそこに入っていましたが、無いかもしれませんし、違う場所かもしれません。（探してみてください）右側のファイル名表示の方は、どのコントロールで表示するかわかりませんでしので、作っていません。また、質問があれば作ってみようと思います。かなり長くなってすみません。お役に立てればと思います。

質問者