| |
|
|
| |
-
Windows Script Host - VBScript - Sistema de archivos - Buscar carpetas
-
Tras la declaración de las variables, se creará una referencia a "FileSystemObject" a traves del metodo "CreateObject( )"
y se guardará en la variable FSO. Entonces se referenciará el directorio a partir del cual ha de realizarse la busqueda con el metodo "GetFolder( )
" y se guardará en la variable "carpeta". A continuación, se recorrerá la estructura con el bucle "For Each". Cada nombre
de carpeta se comparará con el nombre cuscado. De encontrarse congruencia, "InStr( )" devolverá un valor mayor que "0" y mostrará
el nombre de la carpeta en la pantalla.
Una particularidad en este script es la llamada recursiva del metodo "buscarcarpeta( )".
' buscarcarpeta.vbs
' ================================================
Option Explicit
' llamar rutina
buscarcarpeta "c:\Windows","System"
' ===Subrutina===
Sub buscarcarpeta(carpetainicio,buscar)
' declaracion de variables
Dim FSO, carpeta, subcarpeta
' crear objeto FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
' referencia a objeto
Set carpeta = FSO.GetFolder(carpetainicio)
' recorrer los subdirectorios
For Each subcarpeta In carpeta.SubFolders
' congruencia con nombre buscado
If InStr(UCase(subcarpeta.Name),UCase(buscar))>0 Then
' salida del nombre de directorio
WScript.Echo subcarpeta.Name
End If
' llamada recursiva del proximo subdirectorio
buscarcarpeta subcarpeta.Path,buscar
Next
End Sub
 |
|
Ultima actualisación: Tue, 24 ▪ May ▪ 2011
|
|
|
|
