HELP: diskspace check on win2k

[LordSnailz]

Is there a script or small app. in win2k that would similar to "du -s" in unix? I want to get a listing of the files and their file sizes ... TIA

 

[Beau]

Sub Main()
    On Error Resume Next
    Dim objFSO, objDrive, strMessage, strDriveType
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    For Each objDrive in objFSO.Drives
        If objDrive.isReady Then

            Select Case objDrive.DriveType
                 Case 0: strDriveType = "Unknown"
                 Case 1: strDriveType = "Removable"
                 Case 2: strDriveType = "Fixed"
                 Case 3: strDriveType = "Network"
                 Case 4: strDriveType = "CD-ROM"
                 Case 5: strDriveType = "RAM Disk"
            End Select

            strMessage = "[" & objDrive.DriveLetter & ":] " & vbCrLf _
                & "Volume Name: " & objDrive.VolumeName & vbCrLf _
                & strDriveType & ", " & objDrive.FileSystem & vbCrLf _
                & "Size: " & Round(objDrive.TotalSize/(1024^2), 2) & " MB, " _
                & Round(objDrive.AvailableSpace/(1024^2), 2) & " MB available" & vbCrLf
            
            msgBox strMessage
        
        End If
    Next

End Sub
Call Main()