Tengo un Script en VBS para ir guardando datos que funciona correctamente, puedo hacerlo en la SD y en el USB. Hasta ahí todo bien.

El problema es cuando quiero mover el archivo de una unidad a otra y/o cuando quiero crear carpetas, no me da fallo al compilar pero no realiza ninguna de las funciones, es como si no las reconociera o no estuvieran activas.

ESTO FUNCIONA CORRECTAMENTE:

Dim MiFecha, MiTime, Fecha
MiFecha = Date
MiTime = Time
Fecha = MiFecha & " - " & MiTime

Dim F, path

Set F = CreateObject ("FileCtl.file")

path = "\Storage Card USB\Inyecciones.CSV"

F.open path, 8
F.LinePrint(SmartTags("Obra") & "; " & SmartTags("Expediente") & "; " & Fecha & "; " & 1 & "; " & SmartTags("L1_Taladro") & "; " & SmartTags("L1_Manguito") & "; " & SmartTags("L1_Tramo_de") & "; " & SmartTags("L1_Tramo_hasta") & "; " & SmartTags("Volumen_L1_total") & "; " & SmartTags("L1_Presion_maxima"))

F.close

Set F= Nothing

ESTO NO FUNCIONA:

Dim objFso, strSourcePath, strDestPath
strSourcePath = "\Storage Card SD\Inyecciones.CSV"
strDestPath = "\Storage Card USB\Inyecciones.CSV"      
Set objFso = CreateObject("Scripting.FileSystemObject")

    objFso.MoveFile strSourcePath, strDestPath
Set objFso = Nothing

Alguna idea?

Gracias.

 Translation of the Spanish message:

Malavita55

I have a Script in VBS to collect data which functions correctly, I can use the SD card and the USB. Up to this point all is well.

The problem is when I want to move the file  from one location to another or when I want to create directories I get no error at compilation time, but none of the functions are realized, as if they are not recognized or they are not activated. 

THIS CODE WORKS CORRECTLY:

Dim MiFecha, MiTime, Fecha
MiFecha = Date
MiTime = Time
Fecha = MiFecha & " - " & MiTime

Dim F, path

Set F = CreateObject ("FileCtl.file")

path = "\Storage Card USB\Inyecciones.CSV"

F.open path, 8
F.LinePrint(SmartTags("Obra") & "; " & SmartTags("Expediente") & "; " & Fecha & "; " & 1 & "; " & SmartTags("L1_Taladro") & "; " & SmartTags("L1_Manguito") & "; " & SmartTags("L1_Tramo_de") & "; " & SmartTags("L1_Tramo_hasta") & "; " & SmartTags("Volumen_L1_total") & "; " & SmartTags("L1_Presion_maxima"))

F.close

Set F= Nothing

THIS CODE DOES NOT WORK:

Dim objFso, strSourcePath, strDestPath
strSourcePath = "\Storage Card SD\Inyecciones.CSV"
strDestPath = "\Storage Card USB\Inyecciones.CSV"      
Set objFso = CreateObject("Scripting.FileSystemObject")

    objFso.MoveFile strSourcePath, strDestPath
Set objFso = Nothing

Any idea?

Thank you..

 Hola Malavita;

Los participants el este foro de Siemens vienen de muchos países, y la mayoría no entiende el español. Por eso hemos escogido un idioma de intercambio, el inglés. Haznos el favor de escribirnos en inglés a tu próxima visita. 

Hello Malavita;

Participantes in this Siemens forum come from many countries, and most do not understand Soanisg. We have therefore chosen an interchange language, English. Please write to us in English on your next visit.

Hope this helps,

Daniel Chartier 

Hello Malavita, 

Malavita55

ESTO NO FUNCIONA:

Dim objFso, strSourcePath, strDestPath
strSourcePath = "\Storage Card SD\Inyecciones.CSV"
strDestPath = "\Storage Card USB\Inyecciones.CSV"
Set objFso = CreateObject("Scripting.FileSystemObject")

objFso.MoveFile strSourcePath, strDestPath
Set objFso = Nothing

"Scripting.FileSystemObject" is not working on the touch panel (it is to be used for PCs with full Windows whereas panels have an embedded Windows). Instead use "FileCtl.file" as in the working script:

Thanks for the help and sorry for not writing in English.

Frink, I did what you told me but it does not work, even if I execute that script before the other, it does not execute the second one.

 entered the error detection lines but I do not recognize the CreateSystemAlarm statement

Hello Malavita, 

Malavita55

Frink, I did what you told me but it does not work, even if I execute that script before the other, it does not execute the second one.

 entered the error detection lines but I do not recognize the CreateSystemAlarm statement

you must not create another script, but replace the line in your script with the line I descriped (FileCtl).

Sorry for the error handler, the system function is called "ShowSystemAlarm". Then add the system alarms to an alarm view and check the entries after executing your function.

Regards,

Frink 

okay, do not worry. the problem continues, do not perform the function of copying or moving the file, I put the line that you indicated and did nothing. I put the script:

Dim objFso, strSourcePath, strDestPath

strSourcePath = "\Storage Card SD\Inyecciones.CSV"
strDestPath = "\Storage Card USB\Inyecciones.CSV"

Set objFso = CreateObject ("FileCtl.file")
objFso.MoveFile strSourcePath, strDestPath

Set objFso = Nothing

Hello Malavita, 

Malavita55

okay, do not worry. the problem continues, do not perform the function of copying or moving the file, I put the line that you indicated and did nothing. I put the script:

Dim objFso, strSourcePath, strDestPath

strSourcePath = "\Storage Card SD\Inyecciones.CSV"
strDestPath = "\Storage Card USB\Inyecciones.CSV"

Set objFso = CreateObject ("FileCtl.file")
objFso.MoveFile strSourcePath, strDestPath

Set objFso = Nothing

End sub

any error (Err.Number <> 0)?

Regards,

Frink 

Hello Frink

Does the compilation correctly, you do not have errors, load correctly but still without executing the instruction.

Perform several tests that only gave me errors but the Scrip that I put compiles it and loads it correctly and without errors, the only problem is that it does not.

Sorry for the inconvenience and thanks for your help, I'm pretty new at this.

Hello Malavita,

use the following script, add an Alarm View for System Alarms to your HMI project, call the script (e.g. by button) and then check in the System Alarms if one of them was triggered.

Frink

Hello again

I entered your Script and also created a page to see the system errors. The following message is displayed.

Error 'Object doesn't support this property or method: 'objFso.MoveFile" in Script <CopyFile> in line 24

Line 24 is "objFso.MoveFile strSourcePath, strDestPath"

Error number 20010

Regards

Hello Malavita,

that's it. Replace it with the following line (see Programming Reference > MoveFile):

Frink

Hello Frink

I am very very happy, is perfect.

Thank you very much.

Regards and happy day!!!!