WyattEarp

Maybe this will help:

Sub Tr_USB_Copyto()

'Script is called to copy csv files to attached USB. A folder named with current date is created on the USB.

'The csv files are copied into this folder-

On Error Resume Next

Dim strTemp, fs, copyFile, Files, fileFields, m, weldCount, strTemp1, strDir

Dim strDate, strTime, strDname

Dim hso : Set hso = CreateObject("FileCtl.Filesystem")

Set fs = CreateObject("FileCtl.FileSystem")

strTemp = hso.Dir("\Storage Card SD\Weld Logs\*.csv", 0)

strDate = Right(DatePart("yyyy", Now),2) & Right("0" & DatePart("m", Now), 2) & Right("0" & DatePart("d", Now), 2)

strTime = Right("0" & DatePart("h", Now), 2) & Right("0" & DatePart("n", Now), 2) &_

Right("0" & DatePart("s", Now), 2)

strDname = "TR" & strDir & strDate & strTime

fs.mkDir "\Storage Card USB\" + strDname

copyFile =0

While (Len(strTemp) > 0)

hso.Filecopy "\Storage Card SD\Weld Logs\" & strTemp, "\Storage Card USB\" & strDname &"\"& strTemp

copyFile = copyFile + 1

strTemp=hso.Dir()

'Error checking

If Err.Number <>0 Then

ShowSystemAlarm "Error#" & CStr(Err.Number) & " " & Err.Description

Err.Clear

Exit Sub

End If

SmartTags("TR_USB_Save") = 1

SmartTags("TR_USB_present") = 2

Wend

Set hso=Nothing

' Pause...

Dim Counter1

Counter1 = 0

While Counter1 < 4000

Counter1 = Counter1 + 1

Wend

SmartTags("TR_USB_Save") = 0

End Sub

 Hi,

I have the same application but  when i starts runtime it shows error as attached 

Hello Namdeo123,

on what system do you want to run the script?

You can't use the same commands for writing on a PC runtime (Windows XP to 7) and on panels (Windows CE).

For more information see:

• https://support.microsoft.com/en-us/kb/828550
• https://support.industry.siemens.com/tf/ww/en/posts/71303/
• https://support.industry.siemens.com/tf/ww/en/posts/121009/
• https://support.industry.siemens.com/tf/ww/en/posts/109499/