[VBScript] Buscador de Archivos y Carpetas BY 3D1

[EddyW]

Bien, espero les guste el titulo lo dice todo..  

Código (vb) [Seleccionar] Expandir

' :::::::::::::::::::::::::::::::::::::::::::::::::
'          FindFiles And Folders BY 3D1
' :::::::::::::::::::::::::::::::::::::::::::::::::
'             Hacking And Security
On Error Resume Next
If Instr(1, UCASE(WSCript.FullName), UCASE("CSCript.exe")) = 0 Then
MsgBox " Modo de Uso:" & Vbnewline & _
"   CSCript //Nologo " & WSCript.ScriptFullName & VbNewline
WSCript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
WSCript.Echo ""
WSCript.Echo ""
Directorio = DirB
Archivo = FileB
WSCript.Echo "  ----------------------------- "
WSCript.Echo "   Buscando Espere... "
WSCript.Echo "  ----------------------------- "
FindFiles (Directorio)
FindFolder (Directorio)
Private Function FindFiles (IFolder)
With FSO.GetFolder(IFolder)
For Each Fil in .Files
If InStr(1, UCASE(Fil.Name), UCASE(Archivo)) <> 0 Then
WSCript.Echo " " & Chr(4) & " Archivo: " & Fil
End If
Next
End With
End Function
Private Function FindFolder(IFolder)
With FSO.GetFolder(IFolder)
For Each Fol in .SubFolders
If InStr(1, UCASE(Fol.Name), UCASE(Archivo)) <> 0 Then
WSCript.Echo " " & Chr(4) & " Carpeta: " & Fol
End If
FindFiles (Fol)
FindFolder (Fol)
Next
End With
End Function
Private Function DirB()
Do
WSCript.StdOut.Write "   Ruta Carpeta Donde Buscar: "
X = WSCript.StdIn.ReadLine
If FSO.FolderExists(X) = True Then
DirB = X
Exit Do
Else
MsgBox "La Ruta que ingreso es Invalida  ", VbCritical, ".::FindFiles And Folders BY 3D1::."
End If
Loop
End Function
Private Function FileB()
WSCript.StdOut.Write "   Archivo/Carpeta a Buscar: "
FileB = WSCript.StdIn.ReadLine
End Function
Comenten  =D, Funciona usando el Interprete de comandos de windows osea Cmd, lo abren y escriben "CSCript //nologo RutaDelScript.vbs"
Y listo..
Espero sus opiniones  

SaluDOS!!!