[R] Recherche de fichier

[ricky]

Bonjour,

je suis à la recherche d'un bout de code ou d'un moyen simple et efficace de rechercher un fichier. Bien entendu, cette recherche doit se faire dans tous les dossiers et sous-dossiers.

Par exemple : j'aimerais trouver salut.exe dans c:\Program Files

Merci d'avance pour votre aide

P.S. j'ai cherché, mais je n'ai rien trouvé de similaire dans le forum

[jbnh]

Bonjour,

Jette un oeil ici : http://www.autoitscript.fr/forum/viewto ... f=21&t=479

[ricky]

Merci beaucoup pour le lien, pour l'instant je l'ai essayé, mais ça ne marche pas. D'ailleurs, j'y ai mis une réponse.

Question subsidiaire, mais qui peut être utile, quand on a un fichier trouvé, on aura forcement le lien complet, exemple : c:\test\salut\maison\test.exe. Comment avoir que c:\test\salut\maison?
J'ai déjà vu une commande qui faisait cela, mais je ne la trouve plus.

Merci d'avance

[Yogui]

► Afficher le texte

Code : Tout sélectionner

$chemincomplet = "c:\test\salut\maison\test.exe"
$tableau = StringSplit($chemincomplet, "\")
$indice = $tableau[0]
Dim $chemin = $tableau[1]
For $i = 2 To $indice - 1 Step 1
    $chemin = $chemin & "\" & $tableau[$i]
Next
MsgBox(0, "", $chemin)

y'a surement plus propre (j'ai même souvenir d'une fonction le fait mais ça fonctione)

en gros je découpe le chemin dans un tableau puis je reconstruit le chemin dans une variable

Edit

j'ai retrouvé _PathSplit

Code : Tout sélectionner

#include <file.au3>
#include <array.au3>
$chemincomplet = "c:\test\salut\maison\test.exe"
Dim $szDrive, $szDir, $szFName, $szExt
$Path = _PathSplit($chemincomplet, $szDrive, $szDir, $szFName, $szExt)
$chemin = $Path[1]&$Path[2]
MsgBox(0,"",$chemin)

[ricky]

Oui, moi aussi sur l'autre topic grâce à GaRydelaMer.

Voici un script plus simple que j'ai trouvé : ici

Le voici modifié à ma sauce :

► Afficher le textecode

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>

Global $sRet
Local $sPath = "c:"
Local $sFindFile = "calc.exe"

Dim $szDrive, $szDir, $szFName, $szExt

$aRetArray =  _FindPathName($sPath, $sFindFile)

; Transfert du tableau dans un fichier ini
For $boucle = 1 To $aRetArray[0] Step 1
            ; Suppression du nom de fichier pour laisser que le chemin          
            $Path = _PathSplit($aRetArray[$boucle], $szDrive, $szDir, $szFName, $szExt)
            $aRetArray[$boucle] = $Path[1]&$Path[2]
            ; Ecriture dans le ini
            IniWrite("test.ini", "salut", $boucle, $aRetArray[$boucle])
Next
; Pas nécessaire, mais c'est là juste pour afficher le tableau à l'écran
_ArrayDisplay($aRetArray)


; Searches all subfolders of $sPath for $sFindFile (* and ? wildcards accepted)
; Returns an array containing full path and name of all matches.
; Number of matches is in zero index of array
Func _FindPathName($sPath, $sFindFile)
    Local $sSubFolderPath, $iIndex, $aFolders
    $search = FileFindFirstFile($sPath & "\" & $sFindFile)
    $aFolders = _FileListToArray($sPath, "*", 2)
    While 1
        $file = FileFindNextFile($search)
        If @error Then
            ExitLoop
        Else
            $sRet &= $sPath & "\" & $file & "|"
        EndIf
    WEnd
    FileClose($search)
    For $iIndex = 1 To $aFolders[0]
        $sSubFolderPath = $sPath & "\" & $aFolders[$iIndex]
        $aFoldersSubs = _FileListToArray($sSubFolderPath, "*", 2)
        If IsArray($aFoldersSubs) Then _FindPathName($sSubFolderPath, $sFindFile)
    Next
    Return StringSplit(StringTrimRight($sRet,1), "|")
EndFunc  ;==>_FindPathName

Problème résolu, merci à ceux qui m'ont aidé