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.
[ Szerkesztve ]
