I wrote some code to recursivly scan a folder and add all the files and folder to a tree. just thought i would share if anyone wants to use it.

If it helps you out Great!, if not sorry to bother.


///////////////////////////
'the main tree node
Dim oNewTreeNode As New TreeNode

LoopDir("C:\temp\", oNewTreeNode)
///////////////////////////


Private oDir As System.IO.Directory

Private Sub LoopDir(ByVal DirPath As String, ByRef OldNode As TreeNode)
Dim sDirNames() As String 'the names of the new directories
Dim oNewNode As New TreeNode 'the new tree node to be added

'get the directories
sDirNames = oDir.GetDirectories(DirPath)

'loop through all the directories found
For i As Integer = 0 To sDirNames.Length - 1 Step 1

'make a new node for the new folder found
oNewNode = New TreeNode

'set the text to the folder name
oNewNode.Text = GetFolderName(sDirNames(i))
'set the image to a folder
oNewNode.ImageUrl = AppSettings("ImageDir") & "folder.gif"
'add the new node to the old node
OldNode.Nodes.Add(oNewNode)

'loop through the directories for new directories
LoopDir(sDirNames(i), oNewNode)
Next

'now that we have the directories; get the files in the directory
getDirFiles(DirPath, OldNode)

End Sub

Private Sub getDirFiles(ByVal dirName As String, ByVal Node As TreeNode)
Dim sFileNames() As String 'the names of all the files in the directory
Dim sFileNameExt As String 'the name of the file with the extection
Dim sFileNameNoExt As String 'the name of the file with out the extection
Dim sFileNameParts() As String 'the file name and ext
Dim sExt As String 'the extion of the file
Dim sFilePath As String 'the name of the file path
Dim sFilePaths() As String 'the name of all the part of the file path
Dim sFilePathFileSplits() As String 'the file path split at the file dir
Dim sFilePathFileSplit As String 'the part after the split
Dim oNewNode As New TreeNode 'the new tree node to be added

'get all the files in the directory
sFileNames = oDir.GetFiles(dirName)

'loop through all the files
For i As Integer = 0 To sFileNames.Length - 1 Step 1

'make the new node
oNewNode = New TreeNode

'this get the information about the file
sFilePath = sFileNames(i)
sFilePaths = Split(sFilePath, "\", , CompareMethod.Text)
sFilePathFileSplits = Split(sFilePath, "Files", , CompareMethod.Text)
sFilePathFileSplit = sFilePathFileSplits(sFilePathFileSplits.Length - 1)
sFileNameExt = sFilePaths(sFilePaths.Length - 1)
sFileNameParts = Split(sFileNameExt, ".", , CompareMethod.Text)
sFileNameNoExt = sFileNameParts(0)
sExt = sFileNameParts(1)

'set the new nodes properities
oNewNode.Text = sFileNameNoExt
oNewNode.Target = "oFrame"

'fomrat the string properly
sFilePathFileSplit = FormatPath(sFilePathFileSplit)

'add the file path
oNewNode.NavigateUrl = AppSettings("FileDirLocation") & sFilePathFileSplit

'depending on the Ext we want to use a special icon
Select Case sExt.ToLower()
Case "pdf"
oNewNode.ImageUrl = AppSettings("ImageDir") + "pdf.jpg"
Case "xls"
oNewNode.ImageUrl = AppSettings("ImageDir") + "excel.jpg"
Case "doc"
oNewNode.ImageUrl = AppSettings("ImageDir") + "word.jpg"
Case "ppt"
oNewNode.ImageUrl = AppSettings("ImageDir") + "powerpoint.jpg"
Case "txt"
oNewNode.ImageUrl = AppSettings("ImageDir") + "text.jpg"
Case "zip"
oNewNode.ImageUrl = AppSettings("ImageDir") + "zip.jpg"
Case Else
oNewNode.ImageUrl = AppSettings("ImageDir") + "other.jpg"
End Select


'add the new node
Node.Nodes.Add(oNewNode)
Next
End Sub

Private Function GetFolderName(ByVal FolderString As String) As String

'split out the name by folder divider
Dim sCrumbs() As String = Split(FolderString, "\", , CompareMethod.Text)

'return the last section
Return sCrumbs(sCrumbs.Length - 1)
End Function


Private Function FormatPath(ByVal Path As String) As String
'remove the first slash character
Path = Path.Remove(0, 1)

'return the string with the slashes corrected
Return Path.Replace("\", "/")
End Function

That's excellent! Many thanks for sharing, it works a treat.

I've just added a condition to name the root of the Nodes if it's empty but otherwise absolutely spot on!

Mark

---

"Yes, it's a perfect scale model of the universe's largest bottle. I put a tiny spaceship inside to keep it from being boring."