rossmcl
Programmer
- Apr 18, 2000
- 128
I use the following to populate my TreeView. Unfortunately I want to show the full server path mapped to a drive not just the drive letter. Anyone know how/if this can be done?
Thanks
Ross
#######################################################
Set moFSO = New FileSystemObject
Dim n As Node
Dim dDrives As Drives
Dim dDrive As Drive
Dim sCompName As String
sCompName = GetUserID
tvTreeView.Nodes.Add , , "MYCOMPUTER", sCompName, "MYCOMPUTER"
Set dDrives = moFSO.Drives
For Each dDrive In dDrives
Set n = tvTreeView.Nodes.Add("MYCOMPUTER", tvwChild, dDrive.DriveLetter & ":", dDrive.DriveLetter & ":", "DRIVE"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Next
tvTreeView.Nodes("MYCOMPUTER"
.Expanded = True
Thanks
Ross
#######################################################
Set moFSO = New FileSystemObject
Dim n As Node
Dim dDrives As Drives
Dim dDrive As Drive
Dim sCompName As String
sCompName = GetUserID
tvTreeView.Nodes.Add , , "MYCOMPUTER", sCompName, "MYCOMPUTER"
Set dDrives = moFSO.Drives
For Each dDrive In dDrives
Set n = tvTreeView.Nodes.Add("MYCOMPUTER", tvwChild, dDrive.DriveLetter & ":", dDrive.DriveLetter & ":", "DRIVE"
Next
tvTreeView.Nodes("MYCOMPUTER"