VBS para copiar un archivos de una ubicación a la otra.

[GameOn]

Tengo este VBS, y parece que de un día para otro me falla, no tengo mucha idea, y me a caido este problema del cielo...

Por lo que he podido ver falla en la linea 13 (marcado en rojo) ¿alguien que me pueda ayudar?

Código:

Const OverwriteExisting = True

Dim MiFecha 
Dim fecha
Dim newArray

newArray = split(DateAdd("d",-1,Date),"/") 
Fecha= newArray(2) & newArray(1)
Fecha2= newArray(0)

Set objFSO = CreateObject("Scripting.FileSystemObject")
WSCRIPT.ECHO "C:\tasks\SAAV-avfrsxb-ch11\actual_booking_average_rates_" & Fecha & ".dat"
objFSO.CopyFile "C:\tasks\SAAV-avfrsxb-ch11\actual_booking_average_rates_" & Fecha & ".dat", "\\bcnsvbt01\Aplicaciones\BusinessNet\Varis\ImportadorDivisas\InputFiles\actual_booking_average_rates_" & Fecha & Fecha2 & ".dat", OverwriteExisting

wscript.sleep 2000
objFSO.DeleteFile("C:\tasks\SAAV-avfrsxb-ch11\*.dat"), DeleteReadOnly

[azimutisima]

Si antes te funcionaba y ahora no yo comprobaría primero los permisos de la carpeta origen y destino con respecto al usuario que ejecuta el script, comprueba que tenga permisos para leer y escribir respectivamente. Para descartar dale temporalmente a las dos carpetas acceso total al usuario (o a todos) y prueba.

[GameOn]

Eso ya lo he intentado, pero gracias...

[GameOn]

Lo que hace es copiar todos los archivos que se llaman:

actual_booking_average_rates_*.dat

Pero este script hace algo con las fechas, lo que me gustaría es simplificar para que copiara todos los archivos que se llaman: (sin otras variables de fecha....)

actual_booking_average_rates_*.dat

[azimutisima]

Copying a Set of Files


Demonstration script that uses the FileSystemObject to copy all the .txt files in a folder to a new location.
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\FSO\*.txt" , "D:\Archive\" , OverwriteExisting

Extraido de aqui -> http://activexperts.com/activmonitor...SetOfFiles.htm

Por lo que si modificaras tu linea por esta, debería funcionar:

Código:

objFSO.CopyFile "C:\tasks\SAAV-avfrsxb-ch11\actual_booking_average_rates_*.dat", "\\bcnsvbt01\Aplicaciones\BusinessNet\Varis\ImportadorDivisas\InputFiles\", OverwriteExisting

[GameOn]

Muchas gracias, he modificado todo el script, para que copie sin modificar ni verificar fechas bi historias...