' :::::::::::::::::::::::::::::::::::::::::::::::::
' 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