File Path VisualBasic Script

Function NumberOfBytesFree(ByVal strDrive As String) As String
   Dim lngSectors As Long
   Dim lngBytes As Long
   Dim lngFreeClusters As Long
   Dim lngTotalClusters As Long
   Dim intErrNum As Integer
   intErrNum = abGetDiskFreeSpace(strDrive, lngSectors, _
   lngBytes, lngFreeClusters, lngTotalClusters)
   NumberOfBytesFree = " with " & _
         Format((CDbl(lngBytes) * CDbl(lngSectors)) * _
         CDbl(lngFreeClusters), "#,##0") & _
         " Bytes Free"
End Function