[R] Problème avec FileFindFirstFile

[benzo]

bonjour à tous,

je tente de faire un ptit script pour sauvegarder des données,et j'aimerais faire une fonction "recursive search" sur l'ensemble des lecteurs du pc.
Afficher le résultat (chemin du dossier recherché) ds des GUICtrlCreateInput.

problème,avec FileFindFirstFile ca ne me recherche que les dossiers se trouvant à la racine du script!!
je voudrais pouvoir étendre la recherche à l'ensemble des lecteurs du pc (recherche sur poste de travail koi dans le cas d'un disque dur partitionné)

bon je sais pas si je m'exprime bien (fatigue+rhum obligent) alors voici un bout de mon code

► Afficher le textele code

Code : Tout sélectionner

#include <GUIConstants.au3>

#include <File.au3>

Opt("GUIOnEventMode", 1);
Opt("TrayIconHide", 1) 

guicreate("   ")
GUISetState () ;

guictrlcreatelabel("indiquer le chemin du serveur",10,103)
guictrlcreatelabel("Nom de la station ",35,18)
guictrlcreatelabel("profil utilisateur ",35,140)
guictrlcreatelabel("notes ",35,160)


$pc_name = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName")
GUICtrlCreateInput($pc_name,170,  15, 140, 20)
$tsap=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\DGI\COMMUN\TSAP", "TSAP_MMA")
$chemin =""
$cmdParcourir = GUICtrlCreateButton("Parcourir...",313,95,80)
GuiCtrlSetOnEvent($cmdParcourir,"parcourir")
$serverpath=GUICtrlCreateInput($chemin,170,97,140,20)



$QUITTER = GUICtrlCreateButton("Sortir",98,350,120,20)  
guictrlsetonevent($QUITTER,"quitter");
$COPIER = GUICtrlCreateButton("copier",230,350,120,20)
GUICtrlSetOnEvent($COPIER,"copier")

$search = FileFindFirstFile("ADSL")  
$search2=FileFindFirstFile("temp")  
$search3=FileFindFirstFile("notes")  

; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) ;
    If @error Then ExitLoop
    
    $result=MsgBox(4096, "File:", $file);
    $S =String($file);
    $TestPath = _PathFull($file);

$file = FileFindNextFile($search2);
If @error Then ExitLoop
    
    $result=MsgBox(4096, "File:", $file);
    $S =String($file);
    $TestPath2 = _PathFull($file);
    
    $file = FileFindNextFile($search3);
If @error Then ExitLoop
    
    $result=MsgBox(4096, "File:", $file);
    $S =String($file);
    $TestPath3 = _PathFull($file)
WEnd

; Close the search handle
FileClose($search)


 GUICtrlCreateInput($testpath,170,  140, 140, 20)
GUICtrlCreateInput($testpath2,170,  160, 140, 20)
GUICtrlCreateInput($testpath3,170,  180, 140, 20)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;FONCTION PARCOURIR............................................................
Func parcourir()
    
$chemin = FileSelectFolder("Sélectionnez le dossier de sauvegarde", "","","")
guictrlread($chemin)
GUICtrlSetData($serverpath,$chemin)
;~ While StringLeft($chemin,2) <> "\\" And $chemin <> ""
;~ MsgBox(64,"Erreur de chemin","Le chemin sélectionné doit correspondre à un dossier réseau")
;~ $chemin = FileSelectFolder("Sélectionnez un dossier réseau partagé", "::{208D2C60-3AEA-1069-A2D7-08002B30309D}","",$chemin)
;~ Wend

;~  $serverpath=GUICtrlCreateInput($allez,225,97,107,20)

EndFunc


func quitter()
    Exit
endfunc

func copier()
    
dircreate($chemin &$pc_name)
if FileExists ("C:\windows\favoris") Then
 _FileCopy("C:\windows\favoris",$chemin &$pc_name)
endif
if FileExists ("C:\windows\profiles") Then
_FileCopy("C:\windows\profiles",$chemin &$pc_name)  
EndIf
if FileExists ("C:\cfir\sauvegarde") Then
 _FileCopy("C:\cfir\sauvegarde",$chemin &$pc_name)
endif
if FileExists ("C:\mes documents") Then
 _FileCopy("C:\mes documents",$chemin &$pc_name)
endif
if FileExists ("d:\notes") Then
 _FileCopy("d:\notes",$chemin &$pc_name)
endif
if FileExists ("d:\bureau") Then
 _FileCopy("d:\bureau",$chemin &$pc_name)
endif


ENDFUNC

Func _FileCopy($fromFile,$tofile)
    Local $FOF_RESPOND_YES = 16
    Local $FOF_SIMPLEPROGRESS = 256
    $winShell = ObjCreate("shell.application")
    $winShell.namespace($tofile).CopyHere($fromFile,$FOF_RESPOND_YES)
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;BOUCLE...............................................................
while 1

    $msg = GUIGetMsg()
   
    select
    case $msg = $GUI_EVENT_CLOSE  
    case $msg=$QUITTER
        ExitLoop
    
;~  CASE $msg = $INSTALLER

endselect   

Wend
 

merci d'avance

soyez indulgents je marche à peine

[Tlem]

Je me sens désespérément non lu !!!
http://www.autoitscript.fr/viewtopic.php?p=2819#p2819

Après réflexion, je vais rajouter cette fonction dans la liste des exemples de script !

[benzo]

merci

par contre je ne sais pas comment faire pour retourner et afficher le résultat de la reherche sous forme de chemin (ex:c:\adsl) ds un GUICtrlCreateInput

Code : Tout sélectionner

$ar_Array =_FileListToArray3 ("c:\", "ADSL", 2, 1, 1,"Temp|TMP")
$result= _ArrayDisplay($ar_Array, "Liste fichier")
 

[micbar]

Tel que tu l'as écrit, cela sort bien sous la forme "C:\chemin\fichier" exemple que tu peux tester

Code : Tout sélectionner

#include<_FileListToArrayNew2h.au3>
$ar_Array =_FileListToArray3 (@MyDocumentsDir&"\", "*", 2, 1, 1,"Temp|TMP")
 _ArrayDisplay($ar_Array)