Filing system

A

AA2e72E

Application.OperatingSystem tells me the operaing system. How do I find out about the filing system in use? I am sure there is an API call. I need to know: any operating system may have accesss to several devices each with their own filing system e.g. CD R/W, USB drive, Zip disks etc. Thanks
 
R

Rob van Gelder

You may get what you want using the Microsoft Scripting Runtime Library.

Sub test()
Dim fso As Object, drv As Object, str As String

Set fso = CreateObject("Scripting.FileSystemObject")

For Each drv In fso.Drives
str = drv.DriveLetter
If drv.IsReady Then str = str & " " & drv.FileSystem
Debug.Print str
Next

End Sub

--
Rob van Gelder - http://www.vangelder.co.nz/excel


AA2e72E said:
Application.OperatingSystem tells me the operaing system. How do I find
Click to expand...
out about the filing system in use? I am sure there is an API call. I need
to know: any operating system may have accesss to several devices each with
their own filing system e.g. CD R/W, USB drive, Zip disks etc. Thanks.
 
A

AA2e72E

Thank you.
I was aware of the FSO solution. I particularly wanted the API solution. Since posting the message, I 've found that the API is GetVolumeInformation.
 
Top