title image


Smiley Re: DriveListBox + Laufwerkseigenschaften
Hi!Mit dem FSO (FileSystemObject):Dim FSO As FileSystemObject, DRV As Drive Private Sub Drive1_Change() Set FSO = CreateObject("Scripting.FileSystemObject") Set DRV = FSO.GetDrive(Left(Drive1.Drive, 2)) Label1.Caption = "Größe: " + Format(DRV.TotalSize, "###,###,###,###,### Bytes") + _ vbCrLf + "Frei: " + Format(DRV.FreeSpace, "###,###,###,###,### Bytes")End SubMehr dazu unter http://www.stephan-schweig.f2s.com.Mr. SICQ #67858520

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: