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

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" wrote in message
...
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.

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.