FSO to Dir

[MidgetsBro]

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.

'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:

'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

and this one:

'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

Thanks guys.