Проблема в следующем:
я в нем создfл дерево каталогов и файлов (отсортированное), а затем выводил на печать, но при выводе на печать ничего не сортируется... что не так? может кто-то знает способ сохранить дерево в отсортированном виде?
- Код: Выделить всё
Sub BuildTree(MyPath As String)
cTree.Nodes.Clear
Dim nodex As Node
If format Then
Set nodex = cTree.Nodes.Add(, , "R", UCase(MyPath))
cTree.Nodes.Item("R").Sorted = True
nodex.Tag = 0
End If
itemnum = 0
Call GetList(MyPath, "R", 0)
If format Then
cTree.Nodes.Item("R").Expanded = True
cTree.Nodes.Item("R").Sorted = True
End If
cStatus.SimpleText = "Done!"
End Sub
Sub GetList(folderspec, parentID As String, level As Integer)
Dim fs, f, fSubFolders, fFiles, f1, s
Dim ss As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fFiles = f.Files
Set fSubFolders = f.SubFolders
Dim nodex As Node
If dirsonly = 0 Then
For Each f1 In fFiles
itemnum = itemnum + 1
If format Then
ss = f1.Name
Set nodex = cTree.Nodes.Add(parentID, tvwChild, "i" & itemnum, ss)
Else
ss = f1.Path & f1.Name
Set nodex = cTree.Nodes.Add(, , "i" & itemnum, ss)
End If
nodex.Sorted = True
nodex.Tag = level
cStatus.SimpleText = UCase(folderspec) + f1.Name
Next
End If
For Each f1 In fSubFolders
If format Then
itemnum = itemnum + 1
Set nodex = cTree.Nodes.Add(parentID, tvwChild, "i" & itemnum, UCase(f1.Name))
nodex.Tag = level
nodex.checked = True
nodex.Sorted = True
GetList f1.Path, "i" & itemnum, level + 1
Else
GetList f1.Path, "R", level
End If
Next
End Sub
(format=1)