title image


Smiley Re: Excel Formel ?! D:\ C:\ ?!
So bekommst Du die festplattengröße:







Function ShowSpaceInfo(drvpath)

   Dim fso, d, s

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))

   s = "Drive " & d.DriveLetter & ":"

   s = s & vbCrLf

   s = s & "Total Size: " & FormatNumber(d.TotalSize / 1024, 0) & " Kbytes"

   s = s & vbCrLf

   s = s & "Available: " & FormatNumber(d.AvailableSpace / 1024, 0) & " Kbytes"

   ShowSpaceInfo = s

End Function









Sub PlattenplatzErmitteln()

    MsgBox ShowSpaceInfo("C:")

    

End Sub





Code eingefügt mit Syntaxhighlighter 2.5







Schöne Grüße

Norbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: