und nochn Thema hinterher-Datenträgergröße bestimmen

[Tafkadasom2k5]

Ja und wo wir gerade so fleissig am Fragen sind:
Hat jemand ne einfache möglichkeit die Datenträger Größe eines wechselbaren Mediums zu bestimmen?
Wie ich ausrechne wie viele Daten schon drauf sind weis ich-aber ich möchte sone Art "Rest-Speicher Anzeige" basteln

Gr33tz
DerMarc

P.S.:
Sry wnensch momentn nerve-habe auch schon versucht im archiv nach ner ähnlichen Antwort zu suchen-hatte aber keine treffenden Ergebnisse.

[Kiffi]

> Hat jemand ne einfache möglichkeit die Datenträger Größe eines
> wechselbaren Mediums zu bestimmen?

Die PureArea hilft:

Code: Alles auswählen

; English forum: http://purebasic.myforums.net/viewtopic.php?t=8950&highlight=
; Author: Freak (based on code by High Key)
; Date: 31. December 2003


Structure int64 
  Long1.l 
  Long2.l 
EndStructure 

drive$ = "c:\" 

; this prevents the 'please insert drive' requester. 
; GetDiskFreeSpaceEx_() will just return 0 if the drive is not avaiable, 
; without a prompt to the user: 
SetErrorMode_(#SEM_FAILCRITICALERRORS) 
                                        

If GetDiskFreeSpaceEx_(@drive$, BytesFreeToCaller.int64, TotalBytes.int64, TotalFreeBytes.int64) = 0 
  MessageRequester("","Drive not ready!",0) 
  End 
EndIf 

; reset the error behaviour 
SetErrorMode_(0) 

; calculate sizes in mb. 
TotalMB = ((TotalBytes\Long1 >> 20) & $FFF) | (TotalBytes\Long2 << 12) 
FreeMB = ((TotalFreeBytes\Long1 >> 20) & $FFF) | (TotalFreeBytes\Long2 << 12) 

Debug "Disk: "+drive$ 
Debug "Size: "+Str(TotalMB)+" Mb" 
Debug "Free: "+Str(FreeMB)+" Mb" 

End

funktioniert auch mit Wechseldatenträgern (hab's gerade mit meinem
USB-Stick ausprobiert).

Grüße ... Kiffi

[Tafkadasom2k5]

Danke Kiffi-du bist echt der Beste-mal n bissl OT:

Wie hast du eigenz Coden gelernt und seit wie bist du so "schnell" im lösen von "simplen" Prog-Problemen geworden?Bin immerwieder beeindruckt von dir

Gr33tz
Marc

[Kiffi]

> Wie hast du eigenz Coden gelernt

das ist 'ne lange Geschichte, mit der ich die Community nicht langweilen möchte

> und seit wie bist du so "schnell" im lösen von "simplen" Prog-Problemen
> geworden?

ich nutze halt nur konsequent die Suchmöglichkeiten in den Foren aus.

Grüße ... Kiffi