投稿日 | : 2005/11/30(Wed) 17:47 |
投稿者 | : kazuki |
Eメール | : |
URL | : |
タイトル | : Re^2: ツリービューでフォルダのキーを取得する方法 |
キーの取得についてはなんとなくわかりました。
ただ、階層構造にできない原因がキーの取得ではなかっため、ツリービューの第一引数とキーの関係が
あってるのか確認することはできませんでした。そのため後日キーについてまた質問させていただくか
もしれません。
それで一番簡単だと思われる方法で階層構造にしてみようと思ったのですができませんでした。
お気に入りに入っているURLファイルのみをお気に入りという名前の下に入れてみようと思ったのです
が、原因がちょっとわかりません。一応ソースを載せておきます。
Private Sub sFolderSearch2(ByVal myFolder As Object)
Dim mySubFolder As Folder
Dim myFile As File
Dim Node1 As Node
Set Node1 = FavoriteBox.Nodes.Add(, , "Root", "お気に入り")
'現在のフォルダ内のファイルを取得
For Each myFile In myFolder.Files
FileNum = FileNum + 1
Set Node1 = FavoriteBox.Nodes.Add("Root", Child, "C" & FileNu
m, myFile.Name)
Next
Set myFile = Nothing
Set mySubFolder = Nothing
End Sub
myFolderにはお気に入りのパスがはいっています。
表示は↓になるようにしたいです
お気に入り
|−サイト名1
|−サイト名2
|−サイト名3
・
・
・
よろしくお願いします。