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
