Continuando con los scripts en VBScript, os muestro uno que nos va a servir para copiar un fichero.
—————————————————
‘copiarfichero.vbs
‘copia el fichero x:\origen.bat a c:\destino\
‘Creado por Oscar Abad el 4-08-09
Option Explicit
Dim objFSO ‘objeto del tipo FileSystemObject para manejar el fichero
Dim sobreescribir ‘ variable que contendra true o false.
sobreescribir = False ‘ En mi caso no quiero que sobreescriba el fichero si existe.
Set objFSO = CreateObject(«Scripting.FileSystemObject»)
‘comprobar si existe el directorio c:\destino existe y si es asi, copiar el fichero.
If (objFSO.FolderExists(«c:\destino\»)) Then
objFSO.CopyFile «x:\fichero.bat», «C:\destino\», sobreescribir
End If
————————————————
Tened en cuenta que en el destino debemos especificar la ultima contrabarra (\).
Bueno, espero que os sea de utilidad como a mi.
A pasarlo bien!!
—–
Oscar Abad
http://www.xulak.com – Consultoría informática
Programador WordPress freelance
Hola, estoy haciendo lo mismo, copiar archivos, pero necesito que el nuevo archivo lleve en el nombre la fecha en la que se creo, porque es algo que se ejecuta todos los días y así puedo tener un control de todos los archivos.
Un saludo.