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. |