usb-stick unter wince

[mertens2]

Zuviel Werbung?
-> Hier kostenlos registrieren

voltreffer!

hallo,

genauso ein schript habe ich gesucht. Vielen, vielen Dank für die viele Mühe. Das hätte beim Siemens support wieder viel nerven gekostet.

Frohes Fest.


c. mertens

 

[rs-plc-aa]

Hallo,

ich habe mir den Treiber auch gerade heruntergeladen - hab jetzt allerdings kein Panel rumliegen an dem ich das testen könnte...

Aber in Pro Save wird die Option korrekt angezeigt.

Auf der Seite ist aber auch noch ein Hotfix für den Treiber verfügbar.

Wie wird dieser nun eingebunden - oder ist das nicht nötig ?

 

[Ralle]

Zuviel Werbung?
-> Hier kostenlos registrieren

Kensington Datatraveler 512MB auf TP270 funktioniert, nachdem das TP ihn neu formatiert hat. Ist aber ziemlich langsam (wohl das TP).

 

[TimoS]

Sandisk CRUZER MINI 128 MB.
Funktioniert nach formatieren auch einwandfrei.

 

[knabi]

Habe gerade einen CAPTIVA 1022 (USB-Stick 128MB) erfolgreich getestet !
Dauert zwar wirklich etwas länger bis zum Erkennen, aber ist zu ertragen...

Gruß

Holger

 

[knabi]

Zuviel Werbung?
-> Hier kostenlos registrieren

Gleich noch mal eine Frage dazu: Bei mir heißt das USB-Laufwerk auch "Storage Card USB", als Pfad in WinCC flex wird dieser Pfad aber nicht akzeptiert (Ziel: Kopieren eines Archives mittels Button von der CF-Card auf den USB Stick). Muß ich dazu ein Script anlegen?

Gruß

Holger

 

[TimoS]

Ich habs auch nur in einem Skript zum laufen gebracht. Lt. Siemens unterstützen aber die Panels der 277er Serie nun auch den Datentransfer auf USB- Sticks. Sollte demnach auch anders funktionieren.

 

[knabi]

Naja, ich hab' ja kein 277, sondern ein 270. Ist das 277 überhaupt schon lieferfähig? Ich meine, als ich vor 4 Wochen bestellt habe, war da noch nichts machbar ...

Könntest Du mir mit so einem Skript aushelfen?

Gruß

Holger

 

[volker]

Zuviel Werbung?
-> Hier kostenlos registrieren

schau mal hier
http://www.sps-forum.de/showthread.php?t=3028&highlight=windows+wince


das sollte dir auch weiterhelfen

[SIZE=2][COLOR=#0000ff]
Dim[/COLOR][/SIZE][SIZE=2] f,fs,monat,x,jahr,zusatz:[/SIZE][SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] f= CreateObject("filectl.file"):[/SIZE][SIZE=2][COLOR=#0000ff]Set[/COLOR][/SIZE][SIZE=2] fs = CreateObject("filectl.filesystem")
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card usb") = "" [/SIZE][SIZE=2][COLOR=#0000ff]Then
[/COLOR][/SIZE][SIZE=2][COLOR=#ff0000]stm_48[/COLOR][/SIZE][SIZE=2] = [/SIZE][SIZE=2][COLOR=#0000ff]true
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Exit[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub
End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If
On[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Error[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Resume[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Next
[/COLOR][/SIZE][SIZE=2]fs.filecopy "\storage card2\archiv_bm0.csv", "\storage card usb\archiv_bm0.csv"
fs.filecopy "\storage card2\archiv_sm0.csv", "\storage card usb\archiv_sm0.csv"
fs.filecopy "\storage card2\archiv_system0.csv", "\storage card usb\archiv_system0.csv"
[/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] x=6 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] 9
jahr=x
[/SIZE][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] monat=1 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] 12
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] monat <10 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] zusatz = "0" & monat
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] monat >=10 [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] zusatz = monat
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card2\daten\ge_200"&jahr&".csv") <> "" [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] fs.filecopy "\storage card2\daten\ge_200"&jahr&".csv", "\storage card usb\GE_200"&jahr&".csv"
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card2\daten\p1_200"&jahr&"-"&zusatz&".csv") <> "" [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] fs.filecopy "\storage card2\daten\p1_200"&jahr&"-"&zusatz&".csv", "\storage card usb\P1_200"&jahr&"-"&zusatz&".csv"
[/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] fs.dir("storage card2\daten\lz_200"&jahr&"-"&zusatz&".csv") <> "" [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2] fs.filecopy "\storage card2\daten\lz_200"&jahr&"-"&zusatz&".csv", "\storage card usb\LZ_200"&jahr&"-"&zusatz&".csv"
[/SIZE][SIZE=2][COLOR=#0000ff]Next
Next
[/COLOR][/SIZE]

 

[knabi]

OK, soweit läuft das, danke !

Dim fs
Set fs=CreateObject("filectl.filesystem")
On Error Resume Next
fs.filecopy "\Storage Card2\Temperaturen0.csv", "\Storage Card USB\Temp48.csv"

Funktioniert, aber: Ist die Datei schon auf dem Stick, wird sie nicht überschrieben. Wenn die Fehlerbehandlung nicht vorhanden ist, meldet WinCE Fehler $ 20010, "Fehlerbeschreibung nicht vorhanden".

Kann man das Überschreiben der Datei erzwingen? Oder muß man nun über eine Fehlerbehandlungsroutine die Datei auf dem Stick vorher löschen?

Gruß

Holger

 

[knabi]

Und da ich ja grundsätzlich neugierig bin, habe ich mal das versucht:

Dim fs,Stunde_Akt,Minute_Akt,Name
Set fs=CreateObject("filectl.filesystem")
Stunde_Akt=Hour(Now)
Minute_Akt=Minute(Now)
Name=Stunde_Akt&"-"&Minute_Akt
fs.filecopy "\Storage Card2\Temperaturen0.csv", "\Storage Card USB\Temp"&Name&".csv"

Da allerdings bekomme ich einen "Overflow" zurück, in Deinem Script "bastelst" Du Dir doch aber auf genau dieselbe Art einen Dateinamen, oder???

Gruß

Holger

 

[volker]

Zuviel Werbung?
-> Hier kostenlos registrieren

wüsste ich im moment nicht.
werd ich morgen mal testen.

die datei 'VBScript_WinCE.pdf' ist dir bekannt?
gibts bei siemens und auf meiner hp unter sps/nachschlag...

 

[knabi]

Ah ja, OK, die sehe ich mir gleich mal an, danke! Die angehängte Grafik allerdings habe ich in der WinCCflex Hilfe auch gefunden, die sagt aber leider nicht viel aus...

Gruß

Holger

 

[TimoS]

Hatte auch Probeleme den String erst im Funktionsaufruf zu basteln. Hab dann einfach ne Variable angelegt den String gebastelt und die Funktion dann mit der Variable als Parameter aufgerufen.

Dim str 
str = "\storage card USB\" + SmartTags("MaschParameter.Rezeptur.WstName") + "aaa"
ArchiveLogFile hmiDataLog, "Prüf",  str  , hmiCopy

 

[volker]

Zuviel Werbung?
-> Hier kostenlos registrieren

fs.filecopy "\Storage Card2\Temperaturen0.csv", "\Storage Card USB\Temp"&Name&".csv"
Da allerdings bekomme ich einen "Overflow" zurück, in Deinem Script "bastelst" Du Dir doch aber auf genau dieselbe Art einen Dateinamen, oder???

da fehlt der \ hinter \temp



>>Kann man das Überschreiben der Datei erzwingen? Oder muß man nun über eine Fehlerbehandlungsroutine die Datei auf dem Stick vorher löschen?

evtl. so

fs.filecopy "\Storage Card2\Temperaturen0.csv", "\Storage Card USB\Temp"&Name&".csv" ,True

wobei true der standartwert ist. zumindest beim normalen vbscript.

ansonsten muss man das vorher löschen

if fs.fileexists "\Storage Card USB\Temp"&Name&".csv" then fs.kill "\Storage Card USB\Temp"&Name&".csv"

wobei ich jetzt nicht weiss ob fileexists unter ce funktioniert.
ansonsten gnadenlos killen. der on error fängt den fehler dann ab.

ob die errorbehandlung funzt weiss ich nicht.
evtl so. (normales vbscript)

on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
Set TextFile = fs.openTextFile("e:\daten\sps\error.txt", 8)
fehler=err.number
msgbox fehler
textfile2.close

 

[knabi]

Hallo Volker,

danke schon mal für die Tips, leider in ich heute nicht zum Probieren gekommen - die Anlage wird zur Zeit montiert. Morgen früh werde ich mal sehen, ob ich es hinbekomme .

Gruß

Holger

 

[knabi]

So, habe es jetzt einfach mit dem unbedingten Löschen vor dem Kopieren gelöst (danke, Volker!). Den Rest werde ich mal in Ruhe ausprobieren, wenn mehr Zeit ist.

Gruß

Holger

 

[rr_zx]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen.
Wenn ich im Mp277 den folgenen Script aufrufe, kommt immer die fehlermeldung: ActiveX component can't create objekt: "filectl.file" in script "test" in Zeile 2. Was mach ich falsch? Wurde dieser Script nicht für Wince gemacht?

Gruss rr_zx

wince daten schreiben

Dim f,fs,datei,datum,laenge
Set f= CreateObject("filectl.file")
Set fs = CreateObject("filectl.filesystem")
'abfrage ob ein verzeichnis existiert
'If fs.dir("storage card2\daten") = "" Then fs.mkdir("storage card2\daten")
datei="storage card2\Log_Hydrowatt.csv"
datum="20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
If fs.dir(datei) = "" Then
f.open datei, 2
f.LinePrint "Statistik Hydrowatt HD-Pumpe"
f.LinePrint "Datum (JJJJ.MM.TT);"&"Uhrzeit;"&"Schaltspiele;"&"Betriebsstunden [h];"&"Pumpe auf Druck [h];"&"Bollfilter"
f.LinePrint "Datum;"&"Zeit;"&"Schaltsp.;"&"Betr.Std[h];"&"P.auf Druck[h];"&"Bollfilter"
f.Close
End If
f.open datei, 8
f.LinePrint Datum&";"&Time&";"&Schaltspiele_Hydrowatt_täglich&";"& Betriebsstunden_hydrowatt_heute&";"&
Betriebsstunden_hydrowatt_druck_heute&";"&Schaltspiele_Bollfilter_täglich
f.Close

 

[KalEl]

das script funktioniert.

mach mal ein update des betriebssystems auf dem tp

 

[rr_zx]

Das MP277 ist neu und ich finde kein neuers Betriebsystem.
Windows CE: 5.0
Image Version: B 1.0.0.5

Gruss rr_zx