'*** v5.A*** www.dieseyer.de ******************************** ' ' Datei: laufwerk-c.vbs ' Autor: dieseyer@gmx.de ' Auf: www.dieseyer.de ' ' Zeigt Infos zu Laufwerk C:. ' '************************************************************ Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl Dim Txt Txt = FestplattenTest( "C:" ) ' mit Function-Aufruf Txt = "Auf Laufwerk C: sind " & Txt & "." MsgBox Txt, , "16 :: " & WScript.ScriptName '*** v5.A*** www.dieseyer.de ******************************** Function FestplattenTest( Lw ) '************************************************************ Dim WshShell, fso, FileOut, DriveList, i, Text1, Text3 Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set DriveList = fso.Drives Lw = Replace( Lw, "\", "" ) Lw = Replace( Lw, ":", "" ) For Each i in DriveList If i.DriveLetter = Lw AND i.IsReady Then Text3 = "" Text3 = FormatNumber(i.FreeSpace/1024/1024/1024, 1) & "GB" & " " & "von" & " " if Text3 <> "" then Text1 = Text1 & Text3 if Text3 = "" then Text1 = Text1 & "?-?-?GB" & " " & "von" & " " Text3 = "" Text3 = FormatNumber(i.TotalSize/1024/1024/1024, 1) & "GB" & " " & " frei" if Text3 <> "" then Text1 = Text1 & Text3 if Text3 = "" then Text1 = Text1 & "?-?-?GB" & " " & " frei" FestplattenTest = Text1 End If Next ' MsgBox FestplattenTest, , "41 :: " & WScript.ScriptName End Function ' FestplattenTest( Lw )