‘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
No related posts.
Related posts brought to you by Yet Another Related Posts Plugin.
