Título da Dica: Detectando o tipo de drive (FileSystemObject)
Postada em 23/1/2004 por PC 'Declarações em um MODULE Private oFSO As FileSystemObject Private oDrive As Scripting.Drive
Function GetCDInfo(strDrive As String) As String Set oFSO = New FileSystemObject Set oDrive = oFSO.GetDrive(strDriveLetter) ' GetCDInfo = oDrive.FileSystem Set oDrive = Nothing Set oFSO = Nothing End Function
