Seite 1 von 1
und nochn Thema hinterher-Datenträgergröße bestimmen
Verfasst: 23.10.2005 13:53
von 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.
Re: und nochn Thema hinterher-Datenträgergröße bestimmen
Verfasst: 23.10.2005 14:12
von 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
Verfasst: 23.10.2005 18:44
von 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
Verfasst: 23.10.2005 18:48
von 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