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

タイトルの通りです。VBで、Windowsのエクスプローラのような物を作り、それでファイルを選択したいのですがその作り方が分かりません。

任意の場所から、その最下層までのファイル名やフォルダ名を取得し、それをツリービューに表示させてエクスプローラのようなものを作りたいのです。

どなたか分かる方がおりましたら、お教えください。

No.1 回答者： BlueRay 回答日時： 2002/10/03 18:21

以下のようなActiveXコントロールがあります。

自分でやった事ないので、回答になりえないかもしれませんが
外部コントロールを使用するがＯＫなら参考に如何でしょうか。

参考URL：http://www.a1vbcode.com/app.asp?ID=118

この回答へのお礼

ありがとうございます。しかし、ActiveXではなく何とか普通に出来るようにしたいので……

お手数かけてすみません。

お礼日時：2002/10/03 18:38

No.2 ベストアンサー 回答者： taisuke555 回答日時： 2002/10/04 04:17

今（結構時間が掛かりましたが）、作ったばかりなのでバグがあるかもしれません。

参考程度にして下さい。
[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のアイコンは私のパソコンではそこに入っていましたが、無いかもしれませんし、
違う場所かもしれません。（探してみてください）
右側のファイル名表示の方は、どのコントロールで表示するかわかりませんでしので、
作っていません。また、質問があれば作ってみようと思います。
かなり長くなってすみません。お役に立てればと思います。

この回答へのお礼

無茶苦茶参考になりました。

これで、あとはファイル名を表示すれば良いだけとなりました。頑張ります。ありがとうございました。

お礼日時：2002/10/04 11:25

No.3 回答者： BlueRay 回答日時： 2002/10/04 11:21

コントロールでは、駄目ですか。

。。
では、以下のページより自分に合ったサンプルソースを
探してみては如何でしょうか。
いろいろなやり方での、TreeView表示があります。
（コントロールを使用するのと使用しないのと有ります。）

どのように使用するかはあなた次第です。
ガンバって下さい。

参考URL：http://www.vbdiamond.com/Sources/ViewCategory.as …

この回答へのお礼

なかなか良さそうなソースがありますね。
ありがとうございます。まだまだ完成ではないので、詰まったときに参考にさせていただきます。

お礼日時：2002/10/04 11:27