Új hozzászólás Aktív témák

• #6570 Bazs87 tag Psanyi42 #6569

  Új Válasz 2017-02-01 14:30:28 #6570

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Bazs87

  tag

  válasz Psanyi42 #6569 üzenetére

  Szia Psanyi42!

  Köszönöm szépen a gyors reakciót! A dirt én is megtaláltam, hegesztettem is hozzá egy előzetes, egyenlőre teszteletlen kódot.

  Dim file
Dim trgt
Dim Result
Dim o1
Dim o2

' sample
' https://www.sps-forum.de/faq/41723-wincc-flex-vbscript-wince-move-bzw-dateien-kopieren.html

set file = CreateObject("FileCtl.FileSystem")

trgt = "\Storage Card SD\logs"

Result = file.Dir(trgt + "\*.csv")

do until Result = ""
o1 = trgt + "\" + Result
o2 = "\Storage Card USB\logs" + "\" + Result
file.FileCopy o1 , o2
Result = file.Dir(trgt + "\*.csv")
loop

set file = nothing

  már csak az a kérdéses, h mit reagál majd rá a rendszer. Amint lesz végleges verzióm szívesen feldobom ha valakit érdekel.

  Nektek van valamilyen okosított fejlesztési folyamatotok/programotok/tesztkörnyezetetek erre, vagy ti is csak lépegettek arra, amerre a siemens/wince labirintus éppen enged? Win panelnél nem téma, *.vbs, de wince-nél kezdődnek a gondok nálam mindig.

Új hozzászólás Aktív témák