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