| |
|
|
| |
-
Windows Script Host - VBScript - Sistema de archivos - Copiar carpeta
-
El "FileSystemObject" dispone del metodo "CopyFolder( )" para copiar carpetas.
En el siguiente ejemplo, después de crear una referencia a "FileSystemObject" y guardarla en la variable "FSO", se llamará
al metodo "CopyFolder( )" con el nombre de la carpeta fuente y destino, con lo que copiará. Fuente y destino deberán indicar carpetas
diferentes, de lo contrario, no se ejecutará la operación y no se mostrará mensaje alguno.
' copiarcarpeta.vbs
' ================================================
Option Explicit
' declaracion de variables
Dim FSO
' declaracion de constante
Const fuente="c:\nuevotest"
Const destino="c:\test"
' crear objeto
Set FSO = CreateObject("Scripting.FileSystemObject")
' existe la carpeta de destino
If Not FSO.FolderExists(destino) Then
' existe la carpeta fuente
If FSO.FolderExists(fuente) Then
' copiar
FSO.CopyFolder fuente,destino
WScript.Echo "La carpeta " & fuente & "fue copiada a " & destino & "."
Else
WScript.Echo "La carpeta fuente " & fuente & "no existe."
End If
Else
WScript.Echo "La carpeta de destino " & destino & " existe."
End If
 |
|
Ultima actualisación: Tue, 24 ▪ May ▪ 2011
|
|
|
|
