Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Recherche d'un dossier precis dans disque c:\
Auteur Message
Répondre en citant
Message Recherche d'un dossier precis dans disque c:\ 
Bonjour à tous,

Je voulais savoir quelles commandes utiliser pour pouvoir effectuer une recher dans C:\ permettant d'aller savoir où se trouve un dossier

1. On demande quel est le nom du dossier recherché (inputbox puis affectation $variable1)
2. On effectue la recherche
3. On copie le dossier et ses sous dossiers

Merci pour votre aide




______________________________________________________
-Il n'y a qu'en affrontant les plus forts que l'on progresse-

Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Recherche d'un dossier precis dans disque c:\ 
Bonjour,

J'ai adapté ma fonction de traitement d’arborescence pour qu'elle fasse une recherche sur les dossiers:
Code:

global $count_fichier=0
global $count_dossier=0
_arborescence(@UserProfileDir,"(.*?)(?i:bureau)(.*?)");parcours l'arborescence à partir de "@UserProfileDir" et compte le nombre de dossiers trouvé contenant la chaine "bureau" avec insensibilité à la casse
msgbox(0,"fin de traitement",$count_fichier&"-"&$count_dossier)
exit


func _arborescence($path,$filtre_reg_exp = "(.*?)",$sous_dossier = "");parcours une arborescence
   if $sous_dossier = "" then global $path_original = $path
   Local $search = FileFindFirstFile($path & "\*.*")
   If $search = -1 Then return False
   While 1
      Local $file = FileFindNextFile($search)
      If @error Then ExitLoop ; si fin du parcours du dossier en cours on sort de la boucle
      $chemin = $path & "\" & $file
      if StringInStr(FileGetAttrib($chemin),"D") then ; si chemin en cours = dossier on fait
         if StringRegExp($chemin,$filtre_reg_exp) Then $count_dossier+=1 ; si le filtre (sur chemin absolu du dossier) est positif on incrémente $count_dossier
         _arborescence($chemin,$filtre_reg_exp,StringRight($chemin,stringlen($chemin) - stringlen($path_original)))
      Else ;si s'est un fichier on fait
         ;if StringRegExp($chemin,$filtre_reg_exp) then ;si le filtre (sur chemin absolu du fichier) est positif on fait
            ;$count_fichier +=1
            ;ConsoleWrite("chemin=" & $chemin & "  -|-  " & "fichier=" & $file & "  -|-  " & "path=" & $path & "  -|-  " & "sous-dossier=" & $sous_dossier&@CRLF)
         ;EndIf
      EndIf
   WEnd
   FileClose($search) ; fermeture de la recherche sur le dossier en cours
EndFunc


à toi de l'adapter en fonction de tes besoins Okay !




______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Message Recherche d'un dossier precis dans disque c:\ 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch