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

oscar

Programador WordPress freelance