Agrega un nuevo objeto Folder a una colección Folders.
objeto.Add (nombredecarpeta)
El siguiente ejemplo muestra el uso del método Add para crear una nueva carpeta.
[JScript] function AgregarNuevaCarpeta(ruta,nombredecarpeta) { var fso, f, fc, nf; fso = new ActiveXObject("Scripting.FileSystemObject"); f = fso.GetFolder(ruta); fc = f.SubFolders; if (nombredecarpeta != "" ) nf =fc.Add(
nombredecarpeta)
; else nf =fc.Add(
"Nueva carpeta")
; } [VBScript] Sub AgregarNuevaCarpeta(ruta, nombreCarpeta) Dim fso, f, fc, nf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(ruta) Set fc = f.SubFolders If nombreCarpeta <> "" Then Set nf =fc.Add(
nombreCarpeta)
Else Set nf =fc.Add(
"Nueva carpeta")
End If End Sub
Se produce un error si ya existe nombredecarpeta.
Método Add (Dictionary)
Se aplica a: Colección Folders
Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |