Hello everybody,

I have the same problem, moving files from SD to USB on TP700 Comfort Panel via VB Script. Until I have HW already, I do not know, if there is missing something in the script and if this will even works corectly. For example "reset bit" at the end of the script if should or should not be in the script as a "SmartTag" and for what? Thank you!

The body of the script:

Sub COPY()

Dim fs, fsw, s, s1, d1, src_path, dest_path, wait, fso, folderName

s1 = src_path
d1 = dest_path

src_path = "\Storage Card SD\Data"
dest_path = "\Storage Card USB"

'Create File System Object
Set fso = CreateObject("FileCtl.FileSystem")

'Check if the folder already exists
If (fso.Dir(folderName)) = "" Then
fso.MkDir folderName
End If

'Set source and destination path
s1 = src_path
ShowSystemAlarm "Src:" & s1
d1 = dest_path & Year(Now) & Month(Now) & Day(Now) & "_" & Hour(Now) & Minute(Now) & Second(Now) & "\"
ShowSystemAlarm "Dest.:" & d1

'Moving data directory to USB
ShowSystemAlarm "Copying data" & s1 & "--->" & d1
fso.MoveFile s1,d1
If Err.Number <> 0 Then
s = "MOVE Error #" & CStr(Err.Number) & "" & Err.Description
'Show SystemAlarm "error #" & CStr(Err.Number) & "" & Err.Description
Err.Clear
ShowSystemAlarm s
Set fso=Nothing
Set fs=Nothing
ResetBit "System_Visible"
Exit Sub
End If

End Sub

------------------------------------------------------------------------------------------
Split from Moving Files from SD Card to USB on TP1200 Comfort Panel.

Hello Murof,

thank you for advice, but problem is that I can not copy the whole folder with many *.csv files from SD card to USB flash. But I am trying to use this code or exists better way to copy the folder via vbscript?

My code:

' Create a File System Object to handle files and folders
Set fso = CreateObject("Scripting.FileSystemObject")

' Some vars
src = "\Storage Card SD\Data\"
dest = "\Storage Card USB\"

' It would be a bright idead to force and/or create 
dest before starting copy
fso.CreateFolder(dest)

' set as object
Set ofolder = fso.GetFolder(src)

' get all files inside the specified folder
Set allfiles = ofolder.Files

' Enter a For Each Loop that will process
each of the files
For Each sfile in allfiles

' Better get all extensions in lower case
If LCASE(fso.GetExtensionName(sfile.Name)) = "bat" then

' Print out what we find
wscript.echo sfile.Name
fso.CopyFile sfile, dest
End If