'Display
the filesystem of a drive
'Add a list box to the form and then
add a reference to the Microsoft Scripting
Runtime
Private Sub Form_Load()
Dim fldr As Folder
Dim fso As New FileSystemObject
Dim drv As Drive
Set drv = fso.GetDrive(fso.GetDriveName("d:"))
MsgBox ("File system is "
& drv.FileSystem)
End Sub
|