[C] Convertir mon batch en autoit

[labougie]

Bien le bonsoir,

Ok pour les infos sur le fait de structurer avant d'enjoliver.

je cherche a prendre différentes infos sur les fichiers sorties dans le logfile.
Telles que poids attributs création.
j'ai trouvé les commandes permettant ces recherches mais hélas, le fait d'inclure ce petit monde dans un boucle me sort par les yeux.

$size = fileGetSize(file.ext)

$create = FileGetTime(file.ext,1)

$sAttribute = FileGetAttrib(file.ext)

comment puis je indiquer le nom du fichier dans les paramètres sachant que celui-ci change à chaque tour?

le retour pour $size me donne 0 => introuvable
pour $create => rien
et pour l'attribut => c'est assez vague comme résultat.

j'ai parcouru de nombreuses lectures, mais hélas, chaque fois, un nom était dans les paramètres ce qui n'est pas le cas pour moi, car il change à chaque tour.

labougie

[labougie]

Voici le résultat que j'obtiens

► Afficher le texte

167424 26/07/2012 à 01:42:43 A c:\windows\system32\aitagent.exe
167424 26/07/2012 à 01:42:43 A c:\windows\system32\aitstatic.exe
167424 26/07/2012 à 01:42:43 A c:\windows\system32\alg.exe
167424 26/07/2012 à 01:42:43 A c:\windows\system32\append.exe
167424 26/07/2012 à 01:42:43 A c:\windows\system32\appidcertstorecheck.exe
167424 26/07/2012 à 01:42:43 A c:\windows\system32\appidpolicyconverter.exe
167424 26/07/2012 à 01:42:43 A c:\windows\system32\ARP.EXE

les soucis sont sur la taille date&heure puis l'attribut, qui ne changent pas à chaque tour.

je ne comprends pas comment imbriquer tout cela afin d'obtenir le bon résultat

► Afficher le texte

Code : Tout sélectionner

Local $path = InputBox("Question", "Quel(s) chemin recherches tu ?"  & @CRLF &  "Exemple:" & @CRLF & "c:\ ou c:\users\")
Local $ext = InputBox("Question", "Quelle extension recherches tu ?" & @CRLF &  "Exemple:" & @CRLF & ".dll .exe")



SplashTextOn ("", "Scanning Files... " & $path & "  for  " & "*" &$ext , 500, 55, -1, -1, 49)

FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " & _
                """ " & $path  & " *"& $ext & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")



            $Recherche = _FileListToArrayEx ( $path, "*"&$ext, 1, 0) ; recherche les fichiers

;_ArrayDisplay($Recherche, "Liste fichier")
                If IsArray($Recherche) Then

For $j = 1 to $Recherche[0]   ; parcourt le tableau

                            for $k = 1 to $Recherche[0]

 $size = fileGetSize($path & "*" & $ext) ; récupération de la taille du fichier

 $create = FileGetTime($path & "*" & $ext,1,0) ; mise sous forme de tableau de la date et heure de création du fichier

 $sAttribute = FileGetAttrib($path & "*" & $ext) ; attibut du dit fichier

                            Next

                   FileWriteLine($LogFile, "  " & $size & "  "& $create[2] & "/" & $create[1] & "/" & $create[0] & _
                   " à " & $create[3] & ":"  & $create[4] & ":"  & $create[5] & _
                   "  " & $sAttribute & " " & $Recherche[$j])

                    Next

                EndIf

SplashOff()

ShellExecute($LogFile)

[mikell]

hélas, le fait d'inclure ce petit monde dans un boucle me sort par les yeux.

Très ennuyeux quand on code, voire rédhibitoire. Peut-être essayer l'agriculture ?

Blague à part, si le nom de fichier change à chaque tour c'est qu'il varie... il est variable quoi... ça te rappelle rien ?

► Afficher le texte

Code : Tout sélectionner

#include <_FileListToArrayEx_v3.au3>
#Include <Array.au3>

$LogFile = "log.txt"

; Local $path = InputBox("Question", "Quel(s) chemin recherches tu ?"  & @CRLF &  "Exemple:" & @CRLF & "c:\ ou c:\users\")
Local $path = @scriptdir
; Local $ext = InputBox("Question", "Quelle extension recherches tu ?" & @CRLF &  "Exemple:" & @CRLF & ".dll .exe")
Local $ext = ".*"

SplashTextOn ("", "Scanning Files... " & $path & "  for  " & "*" &$ext , 500, 55, -1, -1, 49)
FileWriteLine($LogFile,"")
FileWriteLine($LogFile,"=~=~=~=~=~ Recherche pour " & _
                """ " & $path  & " *"& $ext & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~" &@crlf&@crlf)

$Recherche = _FileListToArrayEx ( $path, "*"&$ext, 1, 0) ; recherche les fichiers

;_ArrayDisplay($Recherche, "Liste fichier")
If IsArray($Recherche) Then
   For $k = 1 to $Recherche[0]   ; parcourt le tableau
       $size = fileGetSize($Recherche[$k]) ; récupération de la taille du fichier
       $create = FileGetTime($Recherche[$k],1,0) ; mise sous forme de tableau de la date et heure de création du fichier
       $sAttribute = FileGetAttrib($Recherche[$k]) ; attibut du dit fichier

       FileWriteLine($LogFile, $size & "    "& $create[2] & "/" & $create[1] & "/" & $create[0] & _
             " à " & $create[3] & ":"  & $create[4] & ":"  & $create[5] & "  " & $sAttribute & " " & $Recherche[$k])
   Next
EndIf

SplashOff()
ShellExecute($LogFile)

[labougie]

Mikell,

Le code c'est mieux que l'agriculture, car il se pratique au chaud .

---

Effectivement, avec une variable c'est mieux. Merci.
Pourtant il me semblait avoir tenté avec, j'ai du zappé "kek" chose.

---

Sur mon script initiale, tu me fais la remarque de d'abord créer le moteur de recherche, OK.
Il fonctionne parfaitement bien, et j'ai trouvé l'erreur qui empêche de scanner après le 1er lecteur ne possédant pas le fichier recherché.

l'erreur est: la variable n'est pas une valeur du tableau,
donc n'ayant pas fichier sur le lecteur I:\ le tableau ne se rempli pas, mais normalement Aarray[0] devrait sortir comme valeur 0, et là c'est loupé.

entête du logfile

ToolSearch by © Labougie

Outil lancé par: Labougie Depuis: [C:\Users\Labougie\Desktop\Script AutoIt] le: 09-12-2013 à: 11:01:49
Système d'exploitation: Windows 8 Pro with Media Center -
HardWare: Cpu X64 - Système X86

=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers " labougie " =~=~=~=~=~=~=~=~=~=~=~=~

Recherche pour le lecteur c:\

listing des fichiers par exemple 19 lignes

=~=~=~=~=~=~=~=~ Fin de la recherche ==> 19 fichier(s) trouvé(s) sur c: =~=~=~=~=~=~=~=~

dito pour defg

le 1er lecteur ne rentrant pas en compte est H:\

ensuite j'ai la somme intermèdiaire de la recherche, c'est cette somme intermédiaire qui coince.
j'ai tenté un compteur pour obtenir la bonne valeur, mais hélas, il compte les tours, et j'ai beau le déplacer, rien n'y fait

=~=~=~=~=~=~=~=~ Fin de la recherche ==> " & $recherche[0] & " fichier(s) trouvé(s) " & " sur " & $k &" =~=~=~=~=~=~=~=~")

-----------

pour $recherche[0] que cela soit avec 0 ou $j issue de la boucle, cela bloque tout le temps,
(117) : ==> Subscript used with non-Array variable.:
FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " & $recherche^ ERROR

Script, la mauvaise ligne est la 55

► Afficher le texte

Code : Tout sélectionner

Case  "f"  ;============ Recherche sur les fichiers

    $aDrive = DriveGetDrive("All") ; attention le tableau $aDrive commence par le nombre d'éléments donc "For $var In $aDrive" n'est pas recommandé.

; Boucle de transformation du tableau des lecteurs en chaine de caractères.
For $i = 1 To $aDrive[0]
    ;If Not FileExists($aDrive[$i] & "\") Then ContinueLoop ; On vérifie si le lecteur est accessible.

    $sDrive &= StringTrimRight($aDrive[$i], 1) ; on ne prend que la lettre (on supprime les :).
Next


; La question pour choisir le/les lecteurs de recherche. non encore traité
$sSearchDrives = InputBox("Question", "Choisissez dans la liste suivante les lecteurs pour lesquels" & _
"vous voulez effecter une recherche. Tapez les lettres les unes à la suite des autres." & _
 @CRLF & "Lecteur(s) disponible(s) : " & $sDrive)

$answer = StringSplit($answer, "|")

If IsArray($answer) Then
    SplashTextOn ("", "Initialisation ..." , 500, 55, -1, -1, 49)

    For $i = 1 To $answer[0]
     ;   msgbox(0,"", "==" & $answer[$i] & "==")
        $answer[$i] = StringStripWS($answer[$i], 3)

     ;   msgbox(0,"", "==" & $answer[$i] & "==")

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers  " & _
                """ " & $answer[$i]  & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")

        For $k in $aArray
            If IsNumber($k) Then ContinueLoop
            If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop

            FileWriteLine($LogFile,"Recherche pour le lecteur " & $k &"\")
            SplashTextOn ("", "Scanning Files... " & $k , 500, 55, -1, -1, 49)
            FileWriteLine($LogFile,"")
            $Recherche = _FileListToArrayEx ($k & "\", "*" & $answer[$i] & "*.*", 0, 1)


            If IsArray($Recherche) Then
               For $j = 1 to $Recherche[0]   ; parcourt le tableau
                   SplashTextOn ("", $Recherche[$j], 500, 55, -1, -1, 49)
                   FileWriteLine($LogFile, $Recherche[$j])
                    $comptef = $comptef + 1

               Next

           EndIf

                FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $recherche[0]  & "  fichier(s) trouvé(s) " & " sur " & $k &" =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")

       Next

   Next
EndIf


   FileWriteLine($LogFile,"")
   FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $comptef & " "  & " Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")



SplashOff()

FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

ShellExecute($LogFile)

labougie

[mikell]

n'ayant pas fichier sur le lecteur I:\ le tableau ne se rempli pas, mais normalement Aarray[0] devrait sortir comme valeur 0,

Non
Si aucun fichier trouvé _FileListToArrayEx ne retourne pas un tableau mais une valeur vide "" avec @error=4 (No File(s) Found)

[labougie]

Bonjour,

J'ai pris en compte l'erreur 4, cela fonctionne bien mieux.

Je suis maintenant sur la partie choix du lecteur.
En fonction du script de Thierry, j'ai rapporté un erreur sur laquelle je travaille.

ce script

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
local $aDrive , $sDrive, $sDrivearray, $j, $listingdrive, $i
$logfile = @ScriptDir &  "\listage des lecteurs.txt"



$aDrive = DriveGetDrive("All")
    For $i = 1 To $aDrive[0]
        $sStatus = DriveStatus ($aDrive[$i])
        ;MsgBox(4096, "Status", $sStatus & @crlf & $aDrive[$i])

        FileWriteLine ($logfile, $aDrive[$i]& "   " & $sStatus)
    Next

Me rapporte ce log

► Afficher le texte

a: NOTREADY
c: READY
d: READY
e: READY
f: READY
g: READY
h: READY
i: READY
j: READY
k: NOTREADY
l: NOTREADY
m: NOTREADY
n: NOTREADY
o: NOTREADY
p: NOTREADY

Peut on inscrire ce rapport dans un tableau à plusieurs dimensions?

J'ai balbutier un script qui bien évidemment ne fonctionne pas mais je pense être sur une piste.
Sans compter sur les erreurs de syntaxes.

► Afficher le texte

Code : Tout sélectionner

redim $listingdrive [$aDrive[0]] [2]  ; je suppose qu'ici je crée une nouvelle colonne
$listingdrive[1][2] = [$aDrive[$i]],[$sStatus] ; dans la colonne 1 le nom du lecteur, la colonne 2 son status
_arrayadd ($listingdrive[2][2] = [$adrive[0],[$sStatus]) ; ici j'incrémente en fonction du paramètre [0] et pas certain que le status ce mette à jour automatiquement

_ArrayDisplay ($aDrive,"listing")

Ensuite, il faut exploiter le résultat obtenu pour pouvoir faire un scan sur les lecteurs affichés "ready", afin de palier l'erreur que je rencontre.
Chaque Os windows devrait ainsi être pris en compte.

labougie

[Tlem]

Bonsoir. Voici une adaptation assez complète de votre code.
L'utilisation d'un tableau multidimensionnel n'est pas indispensable comme vous pourrez le constater.

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
Local $aDrive, $i
Local $sDriveList = "", $aDriveList, $aDriveStatus

$aDrive = DriveGetDrive("All")
For $i = 1 To $aDrive[0]
    $sStatus = DriveStatus($aDrive[$i])
    ; On stocke la liste sous forme de chaîne séparée par le caractère "|".
    $sDriveList &= $aDrive[$i] & $sStatus & "|"
Next

; On supprime le caractère "|" en trop de la fin pour ne pas créer un élément vide
; lors de le création du tableau.
$sDriveList = StringTrimRight($sDriveList, 1)
; On transforme la chaine en tableau.
$aDriveList = StringSplit($sDriveList, "|")

; Affichage du tableau.
_ArrayDisplay($aDriveList)

; Exploitation du tableau
For $i = 1 To UBound($aDriveList) - 1
    ; Séparation du nom du lecteur et de son status
    $aDriveStatus = StringSplit($aDriveList[$i], ":")
    ; Si le status est <> de NOTREADY
    If $aDriveStatus[2] <> "NOTREADY" Then
        MsgBox(64, "Info", "Le lecteur " & $aDriveStatus[1] & ": est " & $aDriveStatus[2] & @TAB)
    ; Sinon
    Else
        MsgBox(16, "Info", "Le lecteur " & $aDriveStatus[1] & ": est " & $aDriveStatus[2] & @TAB)
    EndIf
Next

[labougie]

Bonjour Thierry,

Merci pour ton code.
Effectivement tu as tout regroupé dans une seule colonne.
mais hélas, je n'arrive pas a exploiter le résultat afin de pouvoir lancer une recherche en fonction des lecteurs trouvés.

J'obtiens bien ceci

► Afficher le texte

mais ensuite, la recherche lance obligatoirement tous les lecteurs.
aussi si je demande le status des lecteurs il ressort ceci

► Afficher le texte

d NOTREADY

f NOTREADY

c NOTREADY

cd NOTREADY

ce NOTREADY

j'avoue ne pas être très doué, du coup cela me mine l'esprit.

-----

ne peut on pas passer par quelque chose ressemblant à ceci
For %%k in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do if exist %%k:

désolé si j'accappare votre temps, mais je suis Perdu

labougie

[Tlem]

Vous aimez vous compliquer la vie ...

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>

Local $sDriveList = ""
Local $aDrive = DriveGetDrive("All")

For $i = 1 To $aDrive[0]
    $sStatus = DriveStatus($aDrive[$i])

    If $sStatus = "READY" Then
        ; On stocke la liste des lecteur READY sous forme de chaîne séparée par le caractère "|".
        $sDriveList &= StringTrimRight($aDrive[$i], 1)
    EndIf
Next

MsgBox(64, "Liste des lecteurs READY", $sDriveList)


; ====================================================================================================
; Cette partie est pour vous montrer comment utiliser l'information du dessus pour en faire un tableau.
$aDrive = StringSplit($sDriveList, "")
_ArrayDisplay($aDrive)

For $i = 1 To UBound($aDrive) - 1
    MsgBox(64, "Lecteur", "Lecteur à traiter => " & $aDrive[$i] & ":" & @TAB)
Next
; ====================================================================================================

[labougie]

Bonjour Thierry,

Mais non suis pas compliqué

Je vais laissé de coté pour le WE cette affaire de lecteur qui me sort par les yeux .

J'ai composé ce script, je pense avoir traité de nombreux cas de figure.
Certes, je crois que vous allez trouver des coquilles.
Alors me les montrer, merci par avance.

► Afficher le texte

Code : Tout sélectionner

#include <file.au3>
#include <Array.au3>
#include <_FileListToArrayEx_v3.au3>

Msgbox(64,'ToolSearch by Labougie','Cet outil analyse:' & @crlf & '- Le chemin de ton choix' & @crlf & '- Les extensions de ton choix (pour les fichiers)')

Global $LogFile = (@HomeDrive & "\search.txt")
$OS = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
$SP = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
Global $answer, $sSearchDrives, $sLabel, $Recherche, $sRapport
Global $sDrive, $aDrive, $TmpDrives, $i, $j
$comptef = 0
$compted = 0

Local $aArray = DriveGetDrive("ALL")
Local $sLabel = DriveGetLabel(@HomeDrive & "\")
;_ArrayDisplay($aArray)

If FileExists ($LogFile) then Filedelete ($LogFile)

;================================================= Mise en forme
FileWriteLine($LogFile,"ToolSearch by © Labougie")
FileWriteLine($LogFile,"")

FileWriteLine($LogFile,"Outil lancé par: " & @UserName & "   Depuis: [" & @ScriptDir & "]     le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

FileWriteLine($LogFile,"Système d'exploitation: " & $OS & " - " & $SP)
FileWriteLine($LogFile,"HardWare: " & " Cpu " & @CPUArch & " - " & " Système " & @OSArch)




;============= Contrôle sur la recherche, soit Fichier, soit Dossier, Soit Intégrale

Local $check = InputBox("Question", "Recherches tu un fichier ou un dossier?" & @crlf & "F pour fichier (choix de l'extention possible)" & @crlf & "D pour dossier")

Switch $check ;============ Contrôle saisie sur le type de recherche



    Case  "f"  ;============ Recherche sur les fichiers


    Local $path = InputBox("Question", "Quel chemin recherches tu ?"  & @CRLF &  "Exemple:" & @CRLF & "c:\ ou c:\users\")
    Local $ext = InputBox("Question", "Quelle extension recherches tu ?" & @CRLF &  "Exemple:" & @CRLF & ".dll .exe" & @crlf & "le wilcard est possible")


;================================================= L'utilisateur ne rentre aucune donnée de recherche

    If $path & $ext  = "" and "*" Then   ; Si l'utilisateur a annulé la saisie on ferme.

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path & $ext & " "  & " 0 Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)
        exit
    endif

    If FileExists ($path)  = @error = 1 then ; Si l'utilisateur a saisi un mauvais chemin.


        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"Le chemin " & $path & "\*" & $ext & " n'existe pas. ou alors pas d'extension saisie")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path & "\*" & $ext & " "  & " 0 Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)

        exit

        EndIf




SplashTextOn ("", "Scanning Files... " & $path & "  for  " & "*" &$ext , 500, 55, -1, -1, 49)
FileWriteLine($LogFile,"")
FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " & _
                """ " & $path  & " *"& $ext & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~" &@crlf&@crlf)

$Recherche = _FileListToArrayEx ( $path, "*"&$ext, 1, 0) ; recherche les fichiers

;_ArrayDisplay($Recherche, "Liste fichier")
            If IsArray($Recherche) Then
                For $k = 1 to $Recherche[0]   ; parcourt le tableau
                    $size = fileGetSize($Recherche[$k]) ; récupération de la taille du fichier
                    $create = FileGetTime($Recherche[$k],1,0) ; mise sous forme de tableau de la date et heure de création du fichier
                    $sAttribute = FileGetAttrib($Recherche[$k]) ; attibut du dit fichier

                    FileWriteLine($LogFile,$create[2] & "/" & $create[1] & "/" & $create[0] & _
                    " à " & $create[3] & ":"  & $create[4] & ":"  & $create[5] & "  " & $sAttribute & " " & "   "& $Recherche[$k] & "  (" & $size & ")" )
                Next
            EndIf

                FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $recherche[0]  & "  fichier(s) trouvé(s) " & " sur " & $path  & " "& $ext &  " =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")



FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )



SplashOff()
ShellExecute($LogFile)


    Case  "d"  ;============ Recherche sur les dossiers

Local $path = InputBox("Question", "Quel chemin recherches tu?"  & @CRLF &  "Exemple:" & @CRLF & "c:\ ou c:\users\")


;================================================= L'utilisateur ne rentre aucune donnée de recherche

    If $path  = "" Then   ; Si l'utilisateur a annulé la saisie on ferme.

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path &  " "  & " 0 Dossiers(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)
    endif

    If FileExists ($path) = @error = 4 then ; Si l'utilisateur a saisi un mauvais chemin.


        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"Le chemin " & $path & " n'existe pas.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path & " "  & " 0 Dossier(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)

        exit

        EndIf


SplashTextOn ("", "Scanning Folders... " & $path , 500, 55, -1, -1, 49)
FileWriteLine($LogFile,"")
FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " & """ " & $path & " =~=~=~=~=~=~=~=~=~=~=~=~" &@crlf&@crlf)


$Recherche = _FileListToArrayEx ($path,'*',2,0) ; recherche les dossiers
;_ArrayDisplay($Recherche, "Liste dossier")



            If IsArray($Recherche) Then
                For $j = 1 to $Recherche[0]   ; parcourt le tableau

                    $size = DirGetSize ($Recherche[$j],1) ; mise sous forme de tableau



                    FileWriteLine($LogFile, $Recherche[$j] & "   S_D " & $size[2] & "/" & " F " & $size[1] & "/" & " (" & $size[0] & ")")
                Next
            EndIf

FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $recherche[0]  & "  dossiers(s) trouvé(s) " & " sur " & $path  &  " =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")



FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )



SplashOff()
    ShellExecute($LogFile)

     Case else  ;============ Mauvais caractères sur le choix Fichier Dossier Intégrale

    MsgBox(4096, "Contrôle saisie", "Ne pas saisir n'importe quoi, recommence.")

EndSwitch

Logfile de sortie "Fichiers"

► Afficher le texte

ToolSearch by © Labougie

Outil lancé par: Labougie Depuis: [C:\Users\Labougie\Desktop\Script AutoIt\En cours de travail] le: 14-12-2013 à: 13:58:49
Système d'exploitation: Windows 8 Pro with Media Center -
HardWare: Cpu X64 - Système X86

=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " c:\ * " =~=~=~=~=~=~=~=~=~=~=~=~

26/07/2012 à 07:53:43 A c:\autoexec.bat (24)
26/07/2012 à 07:59:20 RASH c:\bootmgr (398156)
26/07/2012 à 07:59:20 ASH c:\BOOTNXT (1)
26/07/2012 à 07:53:43 A c:\config.sys (10)
28/10/2013 à 06:32:27 ASH c:\hiberfil.sys (2791297024)
17/11/2013 à 19:08:18 A c:\labougie.txt (0)
28/10/2013 à 06:29:07 ASH c:\pagefile.sys (603979776)
28/10/2013 à 12:58:50 A c:\PDOXUSRS.NET (13030)
28/10/2013 à 12:26:33 A c:\search via batch.txt (48655)
14/12/2013 à 11:06:46 A c:\search.txt (821)
28/10/2013 à 06:29:07 ASH c:\swapfile.sys (268435456)

=~=~=~=~=~=~=~=~ Fin de la recherche ==> 11 fichier(s) trouvé(s) sur c:\ =~=~=~=~=~=~=~=~


Terminé le: 14-12-2013 à: 13:58:55

Logfile de sortie "Dossier"

► Afficher le texte

ToolSearch by © Labougie

Outil lancé par: Labougie Depuis: [C:\Users\Labougie\Desktop\Script AutoIt\En cours de travail] le: 14-12-2013 à: 13:59:26
Système d'exploitation: Windows 8 Pro with Media Center -
HardWare: Cpu X64 - Système X86

=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " c:\ =~=~=~=~=~=~=~=~=~=~=~=~

c:\$Recycle.Bin S_D 2/ F 43/ (62924)
c:\Config.Msi S_D 0/ F 0/ (0)
c:\Documents and Settings S_D 0/ F 0/ (0)
c:\ESD S_D 641/ F 1843/ (2612794697)
c:\ESD2 S_D 974/ F 2497/ (3318485610)
c:\FRST S_D 6/ F 17/ (54281515)
c:\labougie S_D 0/ F 0/ (0)
c:\MSOCache S_D 23/ F 97/ (734516316)
c:\PerfLogs S_D 0/ F 0/ (0)
c:\Program Files S_D 3759/ F 25786/ (2970685487)
c:\ProgramData S_D 410/ F 1545/ (1483503051)
c:\Recovery S_D 1/ F 3/ (168349539)
c:\System Volume Information S_D 0/ F 0/ (0)
c:\Users S_D 2360/ F 14613/ (5825318876)
c:\Windows S_D 14067/ F 65968/ (14485330878)

=~=~=~=~=~=~=~=~ Fin de la recherche ==> 15 dossiers(s) trouvé(s) sur c:\ =~=~=~=~=~=~=~=~


Terminé le: 14-12-2013 à: 13:59:34

labougie

[labougie]

Bonsoir,

Je mis sous le GUI, , une partie de mon outil.
Je vais regarder les Fonctions indiqués par Thierry en début de conversation afin d'alléger toutes les lignes de textes.

Questions:

1. Existe t'il une fonction/commande permettant de centrer les labels, ou autres?
2. Sans regarder sur la façon dont j'ai codé ce script, ai-je bien procédé. Les commandes de travail Case $btn31 & Case $btn41 sont elles judicieusement placées.
3. Comment indiquer à "Exécuter" d'être validé par "Entrée", je ne comprends pas le fonctionnement de Hotkeyset et surtout comment l'intégrer.

► Afficher le texte

Code : Tout sélectionner

HotKeySet("{Enter}", "Executer")

Func Executer()
;je ne vois pas ou intégrer ou qu'intégrer ici
EndFunc

Mon script en GUI

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <Array.au3>
#include <_FileListToArrayEx_v3.au3>


; ########## Début de la création de la GUI 1 principal ##########
$GUI1 = GUICreate("ToolSearch by © Labougie", 300, 250, -1, -1) ; Création de la GUI1
$Lb1 = GUICtrlCreateLabel("Outil de recherche", 80, 10, 200, 24) ; Création du label1
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") ; Mise en gras du texte du contrôle précédent (Label1)
;$Chb1 = GUICtrlCreateCheckbox("Checkbox1", 90, 60, 100, 20) ; Création d'une CheckBox
$Btn1 = GUICtrlCreateButton("Affiche la recherche par fichier", 60, 110, 180, 25) ; Création d'un bouton simple
$Btn2 = GUICtrlCreateButton("Affiche la recherche par dossier", 60, 180, 180,25) ; Création d'un simple bouton
; ########## Fin de la création de la GUI 1 ##########

; ########## Début de la création de la GUI 2 recherche fichier ##########
$GUI2 = GUICreate("Recherche par Fichier", 350, 150, -1, -1) ; Création de la GUI2
$Lbl2 = GUICtrlCreateLabel("Recherche d'un fichier par l'extension", 25, 10, 350, 24) ; Création du label2
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") ; Mise en gras du texte du contrôle précédent (Label2)
$lbl22 = GUICtrlCreateLabel("Saisir le chemin c:\ ou c:\users\ ", 220, 50, 80, 30)
$lbl23 = GUICtrlCreateLabel("Saisir l'extension .dll .exe ou * ", 220, 80, 100, 30)
$path2 = GUICtrlCreateInput("", 10, 50, 200, 20)
$ext2 = GUICtrlCreateInput("", 10, 80, 200, 20)
$Btn3 = GUICtrlCreateButton("Retour au menu principal", 160, 110, 180, 25) ; Création d'un bouton simple
$Btn31 = GUICtrlCreateButton("Exécuter", 50, 110, 50, 25) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0x00ff00)
; ########## Fin de la création de la GUI 2 ##########

; ########## Début de la création de la GUI 3 recherche dossier ##########
$GUI3 = GUICreate("Recherche par Dossier", 300, 150, -1, -1) ; Création de la GUI3
$Lbl3 = GUICtrlCreateLabel("Recherche d'un dossier", 50, 10, 200, 24) ; Création du label3
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") ; Mise en gras du texte du contrôle précédent (Label3)
$path3 = GUICtrlCreateInput("", 10, 50, 150, 20)
$lbl23 = GUICtrlCreateLabel("Saisir le chemin c:\ ou c:\users\ ", 180, 50, 100, 30)
$Btn4 = GUICtrlCreateButton("Retour au menu principal", 100, 110, 180, 25) ; Création d'un bouton simple
$Btn41 = GUICtrlCreateButton("Exécuter", 30, 110, 50, 25) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0x00ff00)
; ########## Fin de la création de la GUI 3 ##########

; """""""""" Déclaration des variables """"""""""
Global $LogFile = (@HomeDrive & "\search.txt")
$OS = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
$SP = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
Global $answer, $sSearchDrives, $sLabel, $Recherche, $sRapport
Global $sDrive, $aDrive, $TmpDrives, $i, $j
$comptef = 0
$compted = 0

Local $aArray = DriveGetDrive("ALL")
Local $sLabel = DriveGetLabel(@HomeDrive & "\")
;_ArrayDisplay($aArray)



GUISetState(@SW_SHOW, $GUI1) ; On affiche la GUI1 (la GUI2 reste masquée)

While 1 ; Début de la boucle infinie

    $nMsg = GUIGetMsg() ; Récupération des messages GUI
    Switch $nMsg ; Début du sélecteur de cas

        Case $GUI_EVENT_CLOSE ; Si clic fermeture fenêtre GUI1, GUI2, GUI3 on sort
            MsgBox(64, 'Info', 'Vous avez choisi de quitter ToolSearch') ; Message
            Exit ; Fin du script

        Case $Btn1 ; Si clic sur le bouton $Btn1
            GUISetState(@SW_HIDE, $GUI1) ; On masque la GUI Principale
            GUISetState(@SW_SHOW, $GUI2) ; On affiche la GUI Fichier

        Case $Btn2 ; Si clic sur le bouton $Btn2
        GUISetState(@SW_HIDE, $GUI1) ; On masque la GUI Principale
        GUISetState(@SW_SHOW, $GUI3) ; On affiche la GUI Dossier


        Case $Btn3 ; Si clic sur le bouton $Btn2
            GUISetState(@SW_HIDE, $GUI2) ; On masque la GUI Fichier
            GUISetState(@SW_SHOW, $GUI1) ; On affiche la GUI Principale

        Case $Btn4 ; Si clic sur le bouton $Btn2
            GUISetState(@SW_HIDE, $GUI3) ; On masque la GUI Dossier
            GUISetState(@SW_SHOW, $GUI1) ; On affiche la GUI Principale




            Case $btn31 ; ################## traitement des fichiers ##################

                ; """""""""" Contrôle de l'existance du Logfile """"""""""
                If FileExists ($LogFile) then Filedelete ($LogFile)

                ; """""""""" Contrôle de lecture du GUICtrlCreateInput  """"""""""
                $path = GUICtrlRead($path2)
                $ext = GUICtrlRead($ext2)
            ;================================================= L'utilisateur ne rentre aucune donnée de recherche

            FileWriteLine($LogFile,"ToolSearch by © Labougie")
            FileWriteLine($LogFile,"")

            FileWriteLine($LogFile,"Outil lancé par: " & @UserName & "   Depuis: [" & @ScriptDir & "]     le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

            FileWriteLine($LogFile,"Système d'exploitation: " & $OS & " - " & $SP)
            FileWriteLine($LogFile,"HardWare: " & " Cpu " & @CPUArch & " - " & " Système " & @OSArch)

                    If $path & $ext  = "" and "*" Then   ; Si l'utilisateur a annulé la saisie on ferme.

                    FileWriteLine($LogFile,"")
                    FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
                    FileWriteLine($LogFile,"")
                    FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path & $ext & " "  & " 0 Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")
                    FileWriteLine($LogFile,"")
                    FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


                    ShellExecute($LogFile)
                    exit
                endif

                If FileExists ($path & $ext)  = @error = 4 then ; Si l'utilisateur a saisi un mauvais chemin.


                    FileWriteLine($LogFile,"")
                    FileWriteLine($LogFile,"Le chemin " & $path & "\*" & $ext & " n'existe pas. ou alors pas d'extension saisie")
                    FileWriteLine($LogFile,"")
                    FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path & "\*" & $ext & " "  & " 0 Fichier(s) trouvé(s)=~=~=~=~=~=~=~=~")
                    FileWriteLine($LogFile,"")
                    FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


                    ShellExecute($LogFile)

                    exit

                EndIf





                    SplashTextOn ("", "Scanning Files... " & $path & "  for  " & "*" &$ext , 500, 55, -1, -1, 49)
                    FileWriteLine($LogFile,"")
                    FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " & _
                    """ " & $path  & " *"& $ext & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~" &@crlf&@crlf)

                    $Recherche = _FileListToArrayEx ( $path, "*"&$ext, 1, 0) ; recherche les fichiers

                    ;_ArrayDisplay($Recherche, "Liste fichier")
            If IsArray($Recherche) Then
                For $k = 1 to $Recherche[0]   ; parcourt le tableau
                    $size = fileGetSize($Recherche[$k]) ; récupération de la taille du fichier
                    $create = FileGetTime($Recherche[$k],1,0) ; mise sous forme de tableau de la date et heure de création du fichier
                    $sAttribute = FileGetAttrib($Recherche[$k]) ; attibut du dit fichier

                    FileWriteLine($LogFile,$create[2] & "/" & $create[1] & "/" & $create[0] & _
                    " à " & $create[3] & ":"  & $create[4] & ":"  & $create[5] & "  " & $sAttribute & " " & "   "& $Recherche[$k] & "  (" & $size & ")" )
                Next
            EndIf

                FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $recherche[0]  & "  fichier(s) trouvé(s) " & " sur " & $path  & " "& $ext &  " =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")



                FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )



                SplashOff()
                ShellExecute($LogFile)




            Case $Btn41 ; ################## traitement des dossiers ##################

                ; """""""""" Contrôle de l'existance du Logfile """"""""""
                If FileExists ($LogFile) then Filedelete ($LogFile)

                ; """""""""" Contrôle de lecture du GUICtrlCreateInput  """"""""""
                $path = GUICtrlRead($path3)


;================================================= Mise en forme
FileWriteLine($LogFile,"ToolSearch by © Labougie")
FileWriteLine($LogFile,"")

FileWriteLine($LogFile,"Outil lancé par: " & @UserName & "   Depuis: [" & @ScriptDir & "]     le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

FileWriteLine($LogFile,"Système d'exploitation: " & $OS & " - " & $SP)
FileWriteLine($LogFile,"HardWare: " & " Cpu " & @CPUArch & " - " & " Système " & @OSArch)


                ;================================================= L'utilisateur ne rentre aucune donnée de recherche

    If $path  = "" Then   ; Si l'utilisateur a annulé la saisie on ferme.

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path &  " "  & " 0 Dossiers(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)
        exit
    endif

    If FileExists ($path) = @error = 1 then ; Si l'utilisateur a saisi un mauvais chemin.


        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"Le chemin " & $path & " n'existe pas.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path & " "  & " 0 Dossier(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)

        exit

        EndIf


SplashTextOn ("", "Scanning Folders... " & $path , 500, 55, -1, -1, 49)
FileWriteLine($LogFile,"")
FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " & """ " & $path & " """ & " =~=~=~=~=~=~=~=~=~=~=~=~" &@crlf&@crlf)


$Recherche = _FileListToArrayEx ($path,'*',2,0) ; recherche les dossiers
;_ArrayDisplay($Recherche, "Liste dossier")



            If IsArray($Recherche) Then
                For $j = 1 to $Recherche[0]   ; parcourt le tableau

                    $size = DirGetSize ($Recherche[$j],1) ; mise sous forme de tableau



                    FileWriteLine($LogFile, $Recherche[$j] & "   S_D " & $size[2] & "/" & " F " & $size[1] & "/" & " (" & $size[0] & ")")
                Next
            EndIf

FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $recherche[0]  & "  dossiers(s) trouvé(s) " & " sur " & $path  &  " =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")



FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )



SplashOff()
    ShellExecute($LogFile)


    EndSwitch ; Fin du sélecteur de cas
WEnd ; Fin de la boucle infinie

Labougie

[labougie]

Bonsoir,

Je ne trouve pas comment incrémenter un nom de fichier ni le nombre de Run
Explications:

Run 1 => nom de fichier [1]
Run 2 => nom de fichier [2]
etc...

windows me rapporte cette erreur

► Afficher le texte

Script

► Afficher le texte

Code : Tout sélectionner

global $run, 
$logfile = @homedrive & "\logfiletest" & $run & ".txt"


if FileExists ($logfile)  Then ; si le fichier exist alors

    $run = $run + 1   ; je compte rien +1 au 1er tour, puis 1+1 au scd etc...

EndIf

ShellExecute ( @homedrive & "\logfiletest" & $run & ".txt") ; ici je demande à afficher logfile1 au 1er tour

Je ne comprends pas comment réaliser le script.
Au 1er Run le fichier n'existe pas donc il porte le nom de logfile1 lors du lancement d'un script. Je sais le nommer logfile mais pas logfile1.

j'ai fais des essais non conservés avec filewrite aussi, mais rien n'y fait.

merci de m'aiguiller.

Labougie

[Tlem]

Bonsoir.

Code : Tout sélectionner

Global $Count = 5
Global $Logfile = @HomeDrive & "\logfiletest.txt"

If FileExists($Logfile) Then ShellExecute($Logfile)

For $i = 1 To $Count
    $Logfile = @HomeDrive & "\logfiletest" & $Count & ".txt"
    If FileExists($Logfile) Then
        ShellExecute($Logfile)
    EndIf
Next

PS : Merci de rajouter la balise de code dans vos messages précédents.

[labougie]

Bonsoir Tlem,

Merci pour la réponse, je regarder le code avec attention afin de pouvoir l'exploiter au mieux.

Je ne comprends pas cette phrase

PS : Merci de rajouter la balise de code dans vos messages précédents.

J'ai pourtant utilisé la balise Spoiler pour masquer le script ainsi que la capture.

labougie

Edit:

J'ai compris, il faut en plus du spoiler utiliser dedans la balise code.
[ spoiler ]
[ code ]
texte
[ / code ]
[ / spoiler ]

je vais tâcher d'y être plus attentif

[Tlem]

il faut en plus du spoiler utiliser dedans la balise code.

Tout a fait. Le thème actuel laisse apparaitre la totalité du code si la balise spoiler n'est pas utilisée, mais cela va changer.

Je préfère que vous utilisiez systématiquement la balise de code tout en sachant que si vous rajoutez la balise spoiler pour un code qui est long, c'est bien, mais pas grave si vous l'oubliez. ^^

[labougie]

Bonjour,

J'ai fais des modifications suivants nos échanges et je remplis mon gui doucement avec les commandes.

Dans le script suivant, seulement le groupe Fichier est opérationnel.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <Array.au3>
#include <_FileListToArrayEx_v3.au3>


; ########## Début de la création de la GUI 1 principal ##########
$GUI1 = GUICreate("ToolSearch by © Labougie", 470, 450, -1, -1) ; Création de la GUI1
$Lb1 = GUICtrlCreateLabel("Outil de recherche", 150, 10, 200, 24) ; Création du label1
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") ; Mise en gras du texte du contrôle précédent (Label1)
Global $Group1 = GUICtrlCreateGroup("Recherche Spot Light", 25, 40, 185, 177) ;création d'un cadre dans le Gui
;GUISetBkColor(0xFFFFFF) ;code couleur blanc
;GUISetBkColor(0xE0FFFF)code couleur bleu pas beau
;GUISetBkColor(0xB9D1EA)code bleu gris type FRST

Global $Group2 = GUICtrlCreateGroup("Recherche un Fichier", 220, 40, 185, 177)
Global $Group3 = GUICtrlCreateGroup("Liste les Extensions", 25, 220, 185, 177)
Global $Group4 = GUICtrlCreateGroup("Recherche un Dossier", 220, 220, 185, 177)
Global $Group5 = GUICtrlCreateGroup("Drives", 410, 40, 45, 357)

$Btn01 = GUICtrlCreateButton("Dossier ToolSearch", 100, 410, 105, 25) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0xB9D1EA)
$Btn02 = GUICtrlCreateButton("Exit", 220, 410, 50, 25)
GUICtrlSetBkColor(-1, 0xB9D1EA) ; donne la couleur de la commande juste au dessus
; ########## Fin de la création de la GUI 1 ##########


; ########## Début de la création du Group1 Recherche Spot Light ##########
Global $Input11 = GUICtrlCreateInput("Input11", 30, 80, 90, 20)
Global $Input12 = GUICtrlCreateInput("Input12", 30, 110, 90, 20)
$lbl11 = GUICtrlCreateLabel("Saisir le chemin c:\ ou vide ", 125, 76, 80, 30)
$lbl12 = GUICtrlCreateLabel("Saisir Le nom", 125, 112, 80, 30)
$Btn11 = GUICtrlCreateButton("Exécuter", 30, 180, 50, 25) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0xB9D1EA)
$Btn12 = GUICtrlCreateButton("Rapports", 85, 180, 50, 25)
GUICtrlSetBkColor(-1, 0xB9D1EA)

; ########## Début de la création du Group2 Recherche Fichier ##########
Global $Input21 = GUICtrlCreateInput("Input21", 225, 80, 90, 20)
Global $Input22 = GUICtrlCreateInput("Input22", 225, 110, 90, 20)
Global $Input23 = GUICtrlCreateInput("Input23", 225, 140, 90, 20)
$lbl21 = GUICtrlCreateLabel("Saisir c:\ d:\ ou vide ", 320, 76, 80, 30)
$lbl22 = GUICtrlCreateLabel("Saisir Le nom", 320, 112, 80, 30)
$lbl23 = GUICtrlCreateLabel("Saisir L'extension", 320, 135, 80, 30)
$Btn21 = GUICtrlCreateButton("Exécuter", 225, 180, 50, 25) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0xB9D1EA)
$Btn22 = GUICtrlCreateButton("Rapports", 280, 180, 50, 25)
GUICtrlSetBkColor(-1, 0xB9D1EA)

; ########## Début de la création du Group3 LIster les extensions ##########
Global $Input31 = GUICtrlCreateInput("Input31", 30, 260, 90, 20)
Global $Input32 = GUICtrlCreateInput("Input32", 30, 290, 90, 20)
$lbl31 = GUICtrlCreateLabel("Saisir le chemin c:\ ou c:\users\ ", 125, 258, 80, 30)
$lbl32 = GUICtrlCreateLabel("Saisir l'extension ", 125, 292, 80, 30)
$Btn31 = GUICtrlCreateButton("Exécuter", 30, 340, 50, 25) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0xB9D1EA)
$Btn31 = GUICtrlCreateButton("Rapports", 85, 340, 50, 25)
GUICtrlSetBkColor(-1, 0xB9D1EA)

; ########## Début de la création du Group4 Recherche Dossier ##########
Global $path41 = GUICtrlCreateInput("", 225, 260, 90, 20)
Global $path42 = GUICtrlCreateInput("Input42", 225, 290, 90, 20)
$lbl41 = GUICtrlCreateLabel("Saisir le chemin c:\ ou c:\users\ ", 320, 258, 80, 30)
$lbl42 = GUICtrlCreateLabel("Saisir le nom ", 320, 292, 80, 30)
$Btn41 = GUICtrlCreateButton("Exécuter", 225, 340, 50, 25) ; Création d'un bouton simple
GUICtrlSetBkColor(-1, 0xB9D1EA)
$Btn42 = GUICtrlCreateButton("Rapports", 280, 340, 50, 25)
GUICtrlSetBkColor(-1, 0xB9D1EA)

; ########## Début de la création du Group5 Drive ##########
;Global $Input51 = GUICtrlCreateInput("Input41", 225, 260, 90, 20)



; """""""""" Déclaration des variables """"""""""
$dirToolsearch = @HomeDrive & "\ToolSearch\"
$dirSpotLight = @HomeDrive & "\ToolSearch\SpotLight\"
$dirFichier = @HomeDrive & "\ToolSearch\Fichier\"
$dirExtension = @HomeDrive & "\ToolSearch\Extension\"
$dirDossier = @HomeDrive & "\ToolSearch\Dossier\"
$dirfolders = $dirToolsearch & $dirSpotLight & $dirFichier & $dirExtension & $dirDossier


$OS = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
$SP = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CSDVersion")


Global $answer, $sSearchDrives, $sLabel, $Recherche
Global $sDrive, $aDrive, $TmpDrives, $i, $j

$comptef = 0
$compted = 0


Local $aArray = DriveGetDrive("ALL")
Local $sLabel = DriveGetLabel(@HomeDrive & "\")

#cs; """""""""" Développement des fonctions

Func Entete()
    FileWriteLine($LogFile,"ToolSearch by © Labougie")
    FileWriteLine($LogFile,"")

    FileWriteLine($LogFile,"Outil lancé par: " & @UserName & "   Depuis: [" & @ScriptDir & "]     le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

    FileWriteLine($LogFile,"Système d'exploitation: " & $OS & " - " & $SP)
    FileWriteLine($LogFile,"HardWare: " & " Cpu " & @CPUArch & " - " & " Système " & @OSArch)

EndFunc ;fin fonction entete logfile

Func Pied()

    FileWriteLine($LogFile,"")
    FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

    ShellExecute($LogFile)

EndFunc ; fin fonction pied de logfile

Func ErreurSaisieDossier()

    If $path41  = "" Then   ; Si l'utilisateur a annulé la saisie on ferme.

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path41 &  " "  & " 0 Dossiers(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)
        exit
    endif

    If FileExists ($path41) = @error = 1 then ; Si l'utilisateur a saisi un mauvais chemin.


        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"Le chemin " & $path41 & " n'existe pas.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path41 & " "  & " 0 Dossier(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)

        exit

        EndIf

EndFunc ; erreur saisie

#ce




; """""""""" Contrôle des créations de dossiers """"""""""

    If not FileExists ($dirfolders) then

            DirCreate($dirToolsearch)
            DirCreate($dirSpotLight)
            DirCreate($dirFichier)
            DirCreate($dirExtension)
            DirCreate($dirDossier)

        Else
            Exit

    EndIf


GUISetState(@SW_SHOW, $GUI1) ; On affiche la GUI1

While 1 ; Début de la boucle infinie

    $nMsg = GUIGetMsg() ; Récupération des messages GUI
    Switch $nMsg ; Début du sélecteur de cas

        Case $GUI_EVENT_CLOSE ; Si clic fermeture fenêtre GUI1,  on sort
            MsgBox(64, 'Info', 'Vous avez choisi de quitter ToolSearch') ; Message
            Exit ; Fin du script



        Case $Btn01 ; si l'on clique sur "ToolSearch" le dossier parent s'ouvre
            ShellExecute (@HomeDrive & "\ToolSearch\","open")



        Case $Btn02 ; Si l'on clique sur "exit" on sort
            $btn02 = $GUI_EVENT_CLOSE
            MsgBox(64, 'Info', 'Vous avez choisi de quitter ToolSearch')
            exit






        Case $btn31 ; ################## traitement des fichiers ##################






        Case $Btn41 ; ################## traitement des dossiers ##################

            Local $LogFile = (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt")

                ; """""""""" Contrôle de l'existance du Logfile """"""""""
                ;If FileExists ($LogFile) then Filedelete ($LogFile)

                ; """""""""" Contrôle de lecture du GUICtrlCreateInput  """"""""""
                $path = GUICtrlRead($path41)


;================================================= Mise en forme
FileWriteLine($LogFile,"ToolSearch by © Labougie")
FileWriteLine($LogFile,"")

FileWriteLine($LogFile,"Outil lancé par: " & @UserName & "   Depuis: [" & @ScriptDir & "]     le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )

FileWriteLine($LogFile,"Système d'exploitation: " & $OS & " - " & $SP)
FileWriteLine($LogFile,"HardWare: " & " Cpu " & @CPUArch & " - " & " Système " & @OSArch)


                ;================================================= L'utilisateur ne rentre aucune donnée de recherche

    If $path  = "" Then   ; Si l'utilisateur a annulé la saisie on ferme.

        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"La recherche a été annulée pour mauvaise saisie.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path &  " "  & " 0 Dossiers(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)
        exit
    endif

    If FileExists ($path) = @error = 1 then ; Si l'utilisateur a saisi un mauvais chemin.


        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"Le chemin " & $path & " n'existe pas.")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Nombre total pour la recherche ==> " & $path & " "  & " 0 Dossier(s) trouvé(s)=~=~=~=~=~=~=~=~")
        FileWriteLine($LogFile,"")
        FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )


        ShellExecute($LogFile)

        exit

        EndIf


SplashTextOn ("", "Scanning Folders... " & $path , 500, 55, -1, -1, 49)
FileWriteLine($LogFile,"")
FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour " & """ " & $path & " """ & " =~=~=~=~=~=~=~=~=~=~=~=~" &@crlf&@crlf)


$Recherche = _FileListToArrayEx ($path,'*',2,0) ; recherche les dossiers
;_ArrayDisplay($Recherche, "Liste dossier")



            If IsArray($Recherche) Then
                For $j = 1 to $Recherche[0]   ; parcourt le tableau

                    $size = DirGetSize ($Recherche[$j],1) ; mise sous forme de tableau



                    FileWriteLine($LogFile, $Recherche[$j] & "   S_D " & $size[2] & "/" & " F " & $size[1] & "/" & " (" & $size[0] & ")")
                Next
            EndIf

FileWriteLine($LogFile,"")
                FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~ Fin de la recherche ==> " &  $recherche[0]  & "  dossiers(s) trouvé(s) " & " sur " & $path  &  " =~=~=~=~=~=~=~=~")
                FileWriteLine($LogFile,"")



FileWriteLine($LogFile,"")
FileWriteLine($LogFile,  "Terminé le: " & @MDAY &"-" & @MON &"-" & @YEAR &"  à: " & @HOUR &":"& @MIN &":" & @SEC )



SplashOff()

; Modification du chemin en supprimant les : et le \ du path
    $path = StringTrimRight ($path,1)
    $path = StringReplace($path,":", "")
    $path = StringReplace($path,"\", "-")

    FileMove (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt",@HomeDrive & "\ToolSearch\Dossier\" & $path & ".txt")

        $LogFile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & ".txt")

; Nomérotation des fichiers si il est déja existant
local $run = 1

for $i = -1 to $run

    if not FileExists (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")  Then

        ;$run = $run + 1
        FileMove (@HomeDrive & "\ToolSearch\Dossier\" & $path & ".txt",@HomeDrive & "\ToolSearch\Dossier\" & $path & "[1]"& ".txt")


            $logfile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")

    EndIf

if FileExists ($logfile) then
            $run = $run +1
            FileMove (@HomeDrive & "\ToolSearch\Dossier\" & $path & ".txt",@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")
            $logfile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")

        EndIf
next

    ShellExecute($LogFile)




        Case $Btn42

            ShellExecute (@HomeDrive & "\ToolSearch\Dossier","open")



EndSwitch ; Fin du sélecteur de cas
WEnd ; Fin de la boucle infinie
 

Le dossier toolsearch est crée sous C:\ avec des sous dossiers en fonction du Groupe.
Donc dans c:\toolsearch\dossier\ sont rangés ici les fichiers résultant du script.
Chaque fichier porte le nom de la recherche lancée.
Les noms sont incrémentés de +1 à chaque lancement sur une recherche identique

Exemples:
Dans l'ordre dans lequel ils apparaîssent
c-frst[1].txt
c-frst[2].txt
c-frst[3].txt
c-frst[4].txt
c-frst.txt
Recherche dossiers.txt

Une erreur est générée sur le nombre 4 dés le premier lancement. Et je ne vois pas ou le script prends ce nombre 4.

Le fichier "Recherche Dossier" est crée normalement si une mauvaise saisie est effectuée, gui vide ou erreur de path. Mais là il apparaît en 6ième position pour la recherche c:\frst\

(Pour info, Frst est un outil de désinfection dév par Farbar.)

Merci de vous pencher sur le pourquoi du nombre 4 qui me poisse la life
entre les lignes 311 et 334.
Le script est commenté pour chaque étapes, il claire donc très lisible, enfin pour moi.
Avant de vous solliciter j'ai procédé à plusieurs test, auparavant le nombre du blocage était 5, et, l'incrémentation ne tournait pas dans le bon sens.

La seule solution a été de mettre -1 dans la boucle pour que cela roule.

labougie

Labougie

[Tlem]

Bonjour.
Vous nous parlez d'un problème concernant les lignes de codes de 311 à 334, soir en récupérant ce qui est essentiel, l'extrait de code ci-dessous :

Code : Tout sélectionner

; Numérotation des fichiers si il est déja existant
local $run = 1
For $i = -1 to $run
    if not FileExists(@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt") Then

        ;$run = $run + 1
        FileMove(@HomeDrive & "\ToolSearch\Dossier\" & $path & ".txt", @HomeDrive & "\ToolSearch\Dossier\" & $path & "[1]" & ".txt")

        $LogFile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")

    EndIf
    if FileExists($LogFile) then
        $run = $run + 1
        FileMove(@HomeDrive & "\ToolSearch\Dossier\" & $path & ".txt", @HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")
        $LogFile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt")

    EndIf
next

Sans entrer dans les détails de celui-ci, deux chose me choques :
1 - Vous utilisez une boucle For/Next avec la variable $i, mais sans que cette dernière ne soit utilisée !!! Quel est donc l’intérêt d'une boucle sur une variable si ce n'est pas pour l'utiliser !!!

2 - La ligne juste après la boucle, test si le fichier "@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt"" est inexistant. Or la ligne suivante, vous essayez de déplacer le fichier alors qu'il est inexistant.

3 - La ligne "$LogFile = (@HomeDrive ..." étant identique dans les deux tests If, elle devrait être unique et à la fin du dernier EndIf.

4 - La ligne "FileMove(..." étant 'presque identique', vous devriez mettre en forme l'élément dynamique dans les conditions If et la mettre avec celle ci-dessus.

Voilà. Il est assez difficile de ce mettre à votre place et d’appréhender le code comme vous. Mais une certaine logique est de mise. Ce qui n'est pas le cas dans le bout de code ci-dessus. Essayez de synthétiser vos demandes et de simplifier vos codes.

[labougie]

Bonsoir Tlem,

Je me doute bien qu'il vous est difficile de vous mettre dans tous les scripts pour lesquels vous contribuez .

N'ayant aucune formation de programmation, je fais du mieux que peux pour m'expliquer .

Je tente donc de simplifier le script mais ce n'est pas toujours chose facile, et la logique n'est pas universelle .

Local $LogFile = (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt")
$path = GUICtrlRead($path41)

Le path est modifié pour sortir de cette façon
C\ToolSearch\Dossier\c-frst[1].txt
Dans le script ci-dessous, le comptage se réalise fort bien.
Mais il y a 2 Mais

► Afficher le texte

Code : Tout sélectionner

; Modification du chemin en supprimant les : et le \ du path et en incrémentant de 1 le nom du path sortant
    $path = StringTrimRight ($path,1)
    $path = StringReplace($path,":", "")
    $path = StringReplace($path,"\", "-")




for $run = 1 to 100

    FileMove (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt",@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt") ; je renomme le logfile d'origine par le $path
    $LogFile = (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" &  ".txt") ; je redéfini la variable de sortie avec le nom du $path

next

ShellExecute($LogFile)
 

Mais n°1
une erreur de ce type dés le 1er Run

► Afficher le texte

Pourtant le principe de For $i = 1 to 100 est
de faire un comptage jusqu'à 100 est ensuite stop, n'est-ce pas!

Mais n°2
Le logfile ne s'affiche pas, due sans doute au mais n°1

labougie

[Tlem]

Bonsoir.
Alors dans le code que vous présentez, pour un regard extérieur, il nous manque le Path d'origine. Ceci dit avec votre message d'erreur on arrive à deviner, mais bon, ce n'est pas des plus simple !!!

Bref, voici ce que fait votre code :
- Au premier tour de boucle, il déplace et renomme le fichier "C:\ToolSearch\Dossier\Recherche Dossier.txt" en "C:\ToolSearch\Dossier\c-frst[1].txt".

- Au second tour de boucle, il essaie redéplacer et de renommer le fichier "C:\ToolSearch\Dossier\Recherche Dossier.txt" en "C:\ToolSearch\Dossier\c-frst[2].txt", or celui-ci n'existe plus puisqu'il à déjà été déplacé, donc il ne se passe rien !

- Pour les tours suivant, c'est la même chose que ci-dessus, jusqu'à ce que la boucle soit finie.

Comme la boucle est finie, la variable $LogFile est égal à (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt") soit "C:\ToolSearch\Dossier\c-frst[100].txt", mais comme ce fichier n'exista pas, ShellExecute($LogFile) = ERREUR ^^

[labougie]

Merci pour tes lectures en ces veilles de Noël. .

il nous manque le Path d'origine

Local $LogFile = (@HomeDrive & "\ToolSearch\Dossier\Recherche Dossier.txt")
$path = GUICtrlRead($path41)

Le path est modifié pour sortir de cette façon
C\ToolSearch\Dossier\c-frst[1].txt

dans cet exemple le path inscrit par l'user est c:\frst\
afin de lister ce dossier

----

Je comprends votre explication sur le comptage de

- Au second tour de boucle, il essaie redéplacer et de renommer le fichier "C:\ToolSearch\Dossier\Recherche Dossier.txt" en "C:\ToolSearch\Dossier\c-frst[2].txt", or celui-ci n'existe plus puisqu'il à déjà été déplacé, donc il ne se passe rien !

Mais pas pour ceci

Comme la boucle est finie, la variable $LogFile est égal à (@HomeDrive & "\ToolSearch\Dossier\" & $path & "[" & $run & "]" & ".txt") soit "C:\ToolSearch\Dossier\c-frst[100].txt", mais comme ce fichier n'exista pas, ShellExecute($LogFile) = ERREUR ^^

Que néni, dés le 1er run cette erreur est présente, or le logfile[1] est bon.
J'ai lancé 7 runs, les logfile sont très bien numérotés, et dans l'ordre croissant.
Pourquoi windows donne cette erreur de
"C:\ToolSearch\Dossier\c-frst[100].txt"
bien que le nombre total de run sur la même demande de recherche ne soit pas atteint.
Je viens de remplacer 100 par 10000, même résultat,
"C:\ToolSearch\Dossier\c-frst[10000].txt" est introuvable.
Et je n'ai pas lancé 10000 fois la même recherche .

labougie