[VBS] Contar y Recuperar nombre de carpeta
Resuelto
Allizou
Mensajes publicados
35
Fecha de registro
Estado
Miembro
Última intervención
-
Allizou Mensajes publicados 35 Fecha de registro Estado Miembro Última intervención -
Allizou Mensajes publicados 35 Fecha de registro Estado Miembro Última intervención -
Hola,
Soy novato en VB Script y necesito contar el número de carpetas y recuperar sus nombres, carpetas contenidas en un directorio dado. Después de infructuosas búsquedas en Internet, encontré cómo contar y recuperar el nombre de archivos, pero nada sobre carpetas.
He buscado a partir de estos enlaces:
https://www.commentcamarche.net/contents/1168-objet-folder
https://www.commentcamarche.net/contents/1174-objet-filesystemobject-fso
Sin mucho éxito... Si alguien tiene una pista... ¡Se los agradezco de antemano!
Atentamente, Allizou.
Configuración: Windows Vista / Firefox 5.0
Soy novato en VB Script y necesito contar el número de carpetas y recuperar sus nombres, carpetas contenidas en un directorio dado. Después de infructuosas búsquedas en Internet, encontré cómo contar y recuperar el nombre de archivos, pero nada sobre carpetas.
He buscado a partir de estos enlaces:
https://www.commentcamarche.net/contents/1168-objet-folder
https://www.commentcamarche.net/contents/1174-objet-filesystemobject-fso
Sin mucho éxito... Si alguien tiene una pista... ¡Se los agradezco de antemano!
Atentamente, Allizou.
Configuración: Windows Vista / Firefox 5.0
1 respuesta
-
Finalmente encontré al buscar de nuevo.
Aquí hay una función que recorre todos los subdirectorios de un directorio y devuelve su nombre:
Dim stRep 'Nombre del directorio a recorrer Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "C:\Program Files\Fichiers communs" If oFSO.FolderExists(stRep) Then For each oFld in oFSO.GetFolder(stRep).SubFolders Wscript.Echo oFld.Name Next End If
Para contarlos, solo debes agregar un incremento.
Aquí está el enlace, hay todo:
https://vb.developpez.com/faq/vbs
Buena suerte a todos.
