File Path VisualBasic Script

Declare Function abGetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Declare Function abGetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
'The GetDriveInfo Procedure
Sub GetDriveInfo()
   Dim intDrive As Integer
   Dim strDriveLetter As String
   Dim strDriveType As String
   Dim strSpaceFree As String
   'Loop through all drives
   For intDrive = 65 To 90 'A through Z
     strDriveLetter = (Chr(intDrive) & ":\")
     'Get Drive Type
     strDriveType = TypeOfDrive(strDriveLetter)
     'Get Space Free
     strSpaceFree = NumberOfBytesFree(strDriveLetter)
     Debug.Print Left(strDriveLetter, 2) & _
         " - " & strDriveType & _
         IIf(strDriveType <> "Drive Doesn't Exist", _
            strSpaceFree, "") & _
         vbCrLf
   Next intDrive
End Sub