TIA HMI TP1200 Comfort Panel - freier Speicher auf USB-Stick abfragen

[SPS-EK]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo liebes Forum,

ich wende mich mal wieder an euch, da ich fragen wollte ob jemand ein Befehl für VB-Skript Programmierung kennt um den freien Speicher eines USB-Gerätes abzufragen?

Denn ich kopiere mittels eines VB-Skriptes aus der Runtime mehrere Log-Dateien auf einen Stick. Nun ist es vorgekommen, dass der Stick mal zu wenig freien Speicher hatte und sich dann das Skript aufgehängt hat.
Dies würde ich gerne umgehen und im Vorfeld durch einen Befehl im Skript den freien Speicher abfragen. Ist das möglich?
Wenn Ja, mit welchem Befehl oder habt ihr einen anderen/besseren Tipp?


Viele Grüße

 

[SPS-EK]

Ich wollte mich nochmal erkundigen, ob niemand eine Idee hat wie ich das abfragen kann?

 

[rostiger Nagel]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ich weiß jetzt nicht ob die comfort Panel das können, aber ein Versuch ist es wert.

http://www.gs-electronics.nl/comp-html/vbsdocs/vbs392.htm

 

[SPS-EK]

Vielen Dank, rostiger Nagel! Guter Tipp!

Die Simulation auf Windows sollte das können, ich probier das mal aus und schau mal ob ich das irgendwie auf WinCE passend bekomme.

 

[SPS-EK]

So habe mal etwas ausprobiert.
@ Rostiger Nagel diese Befehle funktionieren leider nur auf Basis von Windows nicht aber auf WinCE.
Für WinCE habe ich nur den Befehl filelen() der ´die Größe einer Datei liefert. Kombiniert man dies mit der DIR-Funktion und einer Schelife, kann man schön die Größe der Datei in einem Ordner abfragen.

Jedoch fehlt mir immernoch der Befehl oder die Möglichkeit den freien Speicherplatz auf einem USB-Stick in WinCE auszuwerten.

Hat da vllt jemand noch einen Rat?

 

[Supermario73]

Zuviel Werbung?
-> Hier kostenlos registrieren

Für Windows-Systeme:

Sub FreeSpaceCheck()
Dim fso, drive, size
Set fso = CreateObject("Scripting.FileSystemObject")
Set drive = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName("D:\")))
SmartTags("size") = FormatNumber(drive.FreeSpace/1024, 0) 
End Sub