recherche de fichierRésolu

Question

je cherche à faire un script me permettant en sasissant un nrépertoire de trouver tous les fichier caché dans ce dossier et tous les sous-dossier le contenant 
Je voudrais récupérer le résultat dans un fichier text
Please help me

cs_jeanmarc · Accepted Answer

Bonjour,

Un exemple tout simple de recherche de fichier (...mais en VBS).
Dim Path
Path = InputBox("Saisir le r&#233;pertoire souhait&#233;:                            exemple:  c:\Mes Documents","Liste de fichiers dans un r&#233;pertoire") 


MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le  r&#233;pertoire " & Path


Function ShowFolderList(strPath)


Dim fso, Dossiers, fic, fichiers, strListe


Set fso = CreateObject("Scripting.FileSystemObject")
 
Set Dossiers = fso.GetFolder(strPath)


Set fic = Dossiers.Files


'pour chaque fichier de mon objet files de mon objet fso...:)


For Each fichiers in fic
'le nom du fichier


strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & "    Date (jjmmaa) : " & fichiers.DateLastModified & "    Taille (octet) : " & fichiers.Size
Next


ShowFolderList = strListe 
End Function

Sur ce site (VB France), recherche "Fichier/R&#233;pertoire", il y aura la r&#233;ponse en VB.

micket1973 · Answer

'recherche de tous les fichiers ayant une archive a
' dans un répertoire donné

Dim shell, args, objfso, SubFolder
Set shell = WScript.CreateObject("WScript.Shell")
Set objfso   = WScript.CreateObject("Scripting.FileSystemObject")
set resultat= objfso.OpenTextFile("c:	empesult.txt",2,True)
Set args  = Wscript.Arguments
nbargs=args.count


repertoire= inputbox ("Saisir le répertore de recherche ","Recherche d' attribut ","")

' vérification de la présence du fichier

If not objfso.FolderExists(repertoire)  Then
wscript.echo "Dossier " & repertoire & " inexistant"
wscript.quit
End If	 
Explore 0,repertoire
Wscript.quit

Sub Explore(level,Dossier)
If Right(Dossier,1)<>"" Then Dossier=Dossier & ""
set f=objfso.GetFolder(Dossier)
set collf=f.SubFolders

For each sf in collf
        fichier 0,sousf 
        wscript.echo Space(level) & strAttrib(sf.Attributes) & " " & sf.Name
If subfolder Then Explore level+1,Dossier & sf.Name
         sousf=dossier& sf.Name
         wscript.echo sousf
         fichier level+1,sousf 
   	Next
 end sub

Sub fichier(level,Dossier)

Set Folder = objfso.GetFolder(repertoire)
Set files = Folder.Files
set collf=folder.SubFolders
resultat.WriteLine("----------------------------------------------------------")
resultat.WriteLine("FIchier  : "&repertoire)
resultat.WriteLine("----------------------------------------------------------")
 for each fil in files
    GetanAttr =strAttrib(fil.Attributes)
    wscript.echo GetanAttr 
    wscript.echo folder
    If GetanAttr= "...A." then
   
      resultat.WriteLine(fil.Name)&GetanAttr
      i=i+1
   end if
  next
 resultat.WriteBlankLines(1)
 resultat.WriteLine("Nombre de fichiers caché dans ce repertoire : "&i)
 resultat.WriteBlankLines(2)
end sub

Function StrAttrib(attr)
s=""
If attr and 1 Then s=s & "R" else s=s & "."
If attr and 2 Then s=s & "H" else s=s & "."
If attr and 4 Then s=s & "S" else s=s & "."
If attr and 32 Then s=s & "A" else s=s & "."
If attr and 2048 Then s=s & "C" else s=s & "."
StrAttrib=s
End Function

micket1973 · Answer

j' ai rajoué mon script mais je n' arrive pas à explorer les sous-fichier

Recherche de fichier

3 réponses

Discussions similaires