[R] _FileListToArrayRec :Je cherche à extraire uniquement la liste des fichiers exécutables.exe

[Boulanza]

Bonjour tout le monde,
Votre aide svp :
Je cherche à extraire uniquement la liste des fichiers exécutables.exe (Nom de l’executable.exe) en utilisant le code suivant :

Code: [Tout sélectionner] [Déplier/Replier]

Local $aArray = _FileListToArrayRec("C:\Program Files (x86)", "*.exe", $FLTAR_FILESFOLDERS, $FLTAR_RECUR, $FLTAR_SORT)
 _ArrayDisplay($aArray, "Sorted tree")

GeSHi © Extension Codebox Plus

Merci pour votre aide.
Cordialement.

[walkson]

Bonjour,

extraire uniquement la liste des fichiers exécutables.exe (Nom de l’executable.exe)

Code : Tout sélectionner

#include <File.au3>
Local $aArray = _FileListToArrayRec(@ProgramFilesDir, "*.exe",  $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_NOPATH)
 _ArrayDisplay($aArray, "Sorted tree")

[Boulanza]

Bonsoir cher Walkson,
C'est parfait. Merci infinint.
Cordialement.

[Boulanza]

Bonjour tous le monde et bonne année 2023,
Je ne romprons pas pourquoi $Liste_1[$i][1] = Round(FileGetSize($Liste1[$i])/1024, 2) & "Kb" me donne la taille des fichiers = 0 Kb.
Votre aide svp pour corriger ce problème.
Merci.
Cordialement.

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>
 Exemple1()
Func Exemple1()
;$Liste1 = _FileListToArray("C:", "*", 0, True)
$Liste1 = _FileListToArrayRec("C:\Program Files (x86)", "*.exe",  $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_NOPATH)
Dim $Liste_1[Ubound($Liste1)][2]
$Liste_1[0][0] = Ubound($Liste1) - 1

For $i = 1 To Ubound($Liste1) - 1
    $Liste_1[$i][0] = $Liste1[$i]
    If StringInStr(FileGetAttrib($Liste1[$i]), "D") Then ; Test répertoire
        $Liste_1[$i][1] = ""
    Else
        $Liste_1[$i][1] = Round(FileGetSize($Liste1[$i])/1024, 2) &  "Kb"
	EndIf
Next

[walkson]

Bonjour et bonne année
Essayez avec cela
$Liste1 = _FileListToArrayRec("C:\Program Files (x86)", "*.exe", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT, $FLTAR_FULLPATH)

[Boulanza]

Merci cher walkson et bonne année à vous aussi,
J'ai testé votre code il marche parfaitement sans problème.
Merci infiniment pour votre aide.
Cordialement.