Can anyone help me convert this function that I am using the FileSystemObject with to it's Dir counterpart. I don't want to include the scripting runtime when I release the program I am working on.
and this one:Code:'load code folder and two subfolders deep into a treeview
Public Sub LoadCodeTree()
mydir = App.Path & "\Code\"
If Dir(mydir, vbDirectory) = "" Then MkDir mydir
tvwFolders.Nodes.Add , , "root", "Categories", 2
tvwFolders.Nodes(1).Expanded = True
For Each fldr In FSO.GetFolder(mydir).SubFolders
tvwFolders.Nodes.Add "root", tvwChild, fldr.Name, fldr.Name, 2
For Each fldr2 In FSO.GetFolder(fldr).SubFolders
tvwFolders.Nodes.Add fldr.Name, tvwChild, fldr.Name & fldr2.Name, fldr2.Name, 2
Next
Next
End Sub
and this one:Code:'load all the .code files into a listview
For Each file In FSO.GetFolder(mydir).Files
If Right(file.Name, 5) = ".code" Then
lstCode.ListItems.Add , , Left(file.Name, InStrRev(file.Name, ".code") - 1), , 1
End If
Next
Thanks guys.Code:'remove all files in the folder, then remove the folder
If FSO.GetFolder(mydir).Files.Count > 0 Then
For Each file In FSO.GetFolder(mydir).Files
FSO.DeleteFile mydir & "\" & file.Name, True
Next
End If
RmDir mydir
tvwFolders.Nodes.Remove tvwFolders.SelectedItem.Index
