das archiv muss nicht geschlossen sein.
das die archivnummer im dateiname auftaucht, ist dir bekannt?
d.h. wenn das archiv stm heisst, heisst die datei stm0.csv
Code:Dim f,fs Set f= CreateObject("filectl.file"): Set fs = CreateObject("filectl.filesystem") If fs.dir("storage card usb") = "" Then stm_48 = true ExitSub EndIf OnErrorResumeNext fs.filecopy "\storage card2\archiv_sm0.csv", "\storage card usb\archiv_sm0.csv"
Bookmarks