copia cartella SD - USB

[enau]

Buongiorno a tutti, sto cercando di far copiare, con VB script, il contenuto di una cartella a bordo SD di HMI Comfort Panel Siemens verso una USB, per mezzo di tasto associato allo script. Nello specifico lo script che ho scritto lo riporto in calce. Lo script funziona ma copia solo 1 file (quello in esecuzione) ma non gli altri. Riuscite a darmi una dritta? grazie. Andrea

 

Dim fs

Dim Datei,filename

 

Set fs = CreateObject("FileCtl.FileSystem")

 

 

Do

                filename= fs.dir("\Storage Card SD\Logs\" & "*",0)

 

                SmartTags("nomeLetto") = filename

 

fs.filecopy ("\Storage Card SD\Logs\" & filename), ("\Storage Card USB\"

& filename)

 

filename = fs.Dir

Loop Until filename=""

 

If filename="" Then

  SmartTags("FileTrasferiti") = True

End If