[R] Lister dossiers d'un répertoire dans un txt

[guillaume]

Bonjour à tous

Je cherche un moyen pour lister tous les dossiers et sous dossiers d'un répertoire.
par contre je ne veux pas les fichiers (ça je l'ai fait mais ça n'est pas bon pour les répertoires car du coup ça me fait plusieurs lignes avec les mêmes répertoires. )


Concraitement j'ai :

répertoire principal
.dossier1
.dossier2
.dossier3
..sous-dossier1
...utilisateur
..sous-dossier2


et je cherche à avoir la liste de la manière suivante :

répertoire principal\dossier1
répertoire principal\dossier2
répertoire principal\dossier3
répertoire principal\dossier3\sous-dossier1
répertoire principal\dossier3\sous-dossier1\utilisateur
répertoire principal\dossier3\sous-dossier2


avec si possible le moyen de choisir le niveau max de sous-dossiers que je veux afficher
1 pour répertoire principal
2 répertoire principal\dossier1
répertoire principal\dossier2
répertoire principal\dossier3
3 encore le niveau du dessous
...

merci pour votre aide !

[franco]

Salut


Il y a une commande pour cela : _FileListToArray

http://www.autoitscript.com/autoit3/doc ... oArray.htm

$iFlag [optional] specifies whether to return files folders or both
$iFlag=0(Default) Return both files and folders
$iFlag=1 Return files only
$iFlag=2 Return Folders only

Par contre, l'exemple peut t'aider à comprendre la chose

Code : Tout sélectionner

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

Local $FileList = _FileListToArray(@DesktopDir)
If @error = 1 Then
    MsgBox(0, "", "No Folders Found.")
    Exit
EndIf
If @error = 4 Then
    MsgBox(0, "", "No Files Found.")
    Exit
EndIf
_ArrayDisplay($FileList, "$FileList")

Mais si tu cherches la récursivité, regarde ceci, cela va surement t'aider : http://autoitscript.fr/forum/viewtopic.php?f=6&t=479

Personnellement, je préfère celle là : FileListToArrayNT


@++

[guillaume]

ok merci j'ai testé la première fonction, c'est ok mais ça ne me remonte pas les sous dossiers effectivement

Pour la 2ième j'ai bien toute l'arborescence !

je vais chercher maintenant comment choisir le niveau de détail souhaité sur le niveau de sous-dossiers

[guillaume]

possiblité envisageable mais peut être un peu tordue , je compte les "\" dans une nouvelle colonne
par exemple pour c:\test il y a 1 "\" donc j'affiche 1
pour c:\test\dossier il y a 2 "\" donc j'affiche 2


Mais je ne pense pas que ce soit la meilleur solution :/

[DimVar]

Bonsoir,

Sachant que le caractère "\" est interdit dans un nom de fichier et de dossier, je pense au contraire que ce n'est pas une si mauvaise solution.

Cdlt.

[jguinch]

vraiment en mode bricolage, voilà un petit truc qui pourrait aller :

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
Local $aList = _FolderList("d:\musique", 2)
_ArrayDisplay($aList)


Func _FolderList($sFolder, $iLevel)

    Local $aResult[1], $sLast, $sDir
    Local $iPid = Run(@ComSpec & ' /c dir /ad /b /s "' & $sFolder & '"', @SystemDir, @SW_HIDE, 2)
    Local $sOut

    While 1
        $sOut &= StdoutRead($iPid)
        If @error Then ExitLoop
    WEnd

    $sOut = _OEM2ANSI($sOut)
    Local $aOut = StringRegExp($sOut, "(?m)^(.*)$", 3)

    For $i = 0 To UBound($aOut) - 1
        $sDir  = StringRegExpReplace($aOut[$i], "^" & StringReplace($sFolder, "\", "\\") & "\\" , "")
        $sDir = StringRegExpReplace( StringRegExpReplace($sDir & "\", "((?:[^\\]+[\\]){1," & $ilevel & "}).*", "$1"), "\\$", "")

        If  $sDir <> $sLast Then
            $sLast = $sDir
            Redim $aResult[ UBound($aResult) + 1]
            $aResult[ UBound($aResult) - 1 ] = $sDir
            $aResult[0] = UBound($aResult) - 1
        EndIf
    Next
    
    Return $aResult
EndFunc




Func _OEM2ANSI($what)
    $ret = DllCall('user32.dll', 'Int', 'OemToChar', 'str', $what, 'str', '')
    Return $ret[2]
EndFunc   ;==>_OEM2ANSI

[mikell]

jguinch c'est quoi ce truc incroyable ?

Sur un mode plus classique, en reprenant la bonne idée de compter les "\" pour définir le niveau de récursivité :

► Afficher le texte

Code : Tout sélectionner

#Include <Array.au3>

$path = @programfilesdir & "\Java"  
$n0 = StringLen($path)
$split1 = StringSplit($path, "\")
$n1 = $split1[0]

Global $FileList[1]
_list($path, 4, 0)

_ArrayDisplay($FileList)

;===========================
Func _list($path, $level, $fullpath = 0)
    If StringRight($path, 1) <> "\" Then $path = $path & "\"
    $hSearch = FileFindFirstFile($path & "*")
    If $hSearch > 0 Then
        While 1
            $sFile = FileFindNextFile($hSearch)
            If @error Then ExitLoop
            If StringInStr(FileGetAttrib($path & $sFile), "D")  Then 
                $FileList[0] += 1
                If UBound($FileList) <= $FileList[0] Then ReDim $FileList[UBound($FileList) * 2]
                If $fullpath = 0 Then
                    $FileList[$FileList[0]] = StringTrimLeft($path & $sFile, $n0+1)
                Else
                    $FileList[$FileList[0]] = $path & $sFile
                EndIf
                $split2 = StringSplit($path, "\")
                $n2 = $split2[0]
                If $n2-$n1 < $level Then _list($path & $sFile, $level, $fullpath)
             EndIf
        WEnd
        FileClose($hSearch)
        ReDim $FileList[$FileList[0] + 1]
    EndIf
EndFunc
 

[guillaume]

merci pour votre travail ! je vais voir ce que ça donne dans mon script