Speicherplatz auf OP270 anzeigen

[!Chris!]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,
habe auf nem OP 270 ne Rezepturverwaltung laufen und speichere auf ner CompactFlash-Karte.
Jetzt würde ich gerne auf Knopfdruck den belegten bzw. den noch freien Speicher auf der Karte anzeigen lassen. Hab keine entsprechende Funktion gefunden. Geht das mit nem Skript? Damit kenn ich mich leider gar nicht aus. Aber diese Problemstellung gabs doch bestimmt schon mal.
Hat da vielleicht jemand was?

Vielen Danke

Gruß aus Ulm
Chris

 

[volker]

das sollte mit einem script gehen.

drvPath="f:\"
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Freier Speicherplatz: " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s

dieser code ist für windows. für wince sieht das fs etwas anders aus.

Set fs = CreateObject("filectl.filesystem")

ob das getdrive objekt unter ce zur verfügung steht weiss ich im mom nicht

 

[!Chris!]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo volker,
vielen Dank, für die schnelle Hilfe. Leider funktioniert das Skript nicht.
Er meckert drvPath und MsgBox an.
Bei drvPath müßte ich ja vermutlich noch das richtige Laufwerk angeben. Wenn ich das richtig verstanden habe gibt es aber bei WinCE keine Laufwerksbezeichnungen.
Danke
Gruß Chris

 

[Ralle]

Hallo Chris,

sieh mal diesen Link an:

https://www.sps-forum.de/threads/4409&highlight=Storage