title image


Smiley Re: Funktion für Dateigröße und/oder Restspeicher der Platte
Hi!



Private Sub Command1_Click()

Dim FSO As New FileSystemObject, FL As File

Set FL = FSO.GetFile("C:\Verzeichnis\Datei.xyz")

MsgBox "Dateigröße: " & FL.Size & vbCrLf & _

"Freie Festplatte: " & FL.Drive.FreeSpace

End Sub







MfG

Mr. S ICQ #67858520http://www.developersmanual.com/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: