Mapping directory and file

[Cyber]

I search in example area but i dont found this script

I need too map a directorys and files in a txt file

can you please help me?

Thanks!

Edited January 29, 2007 by Cyber

[Xenobiologist]

Hi,

please explain a bit more and show us what you got.

So long,

Mega

[Cyber]

Example

directory programs

txt file:

programs

----autoit

-------- autoit2

------------- autoit2.exe

---------autoit.exe

---------autoit.dll

-----games

----------starcraft

---------------stacraft.exe

----------------main.ini

ecc....

Edited January 29, 2007 by Cyber

[gear]

The following is the function to find all the folders within a specified directory, including all the sub-folders at any sub-levels. if you also want to get all the files, you just need to change or add a little code to the function.

Func ListAllFolder($Folder, $MaxFolderDepth)
    $FolderList = _FileListToArray($Folder, "*", 2);only finf folders
    If IsArray($FolderList) And $FolderList[0] >= 1 Then
        For $j = 1 To $FolderList[0]
            _ArrayAdd($AllFolderList, $Folder & "\" & $FolderList[$j])
            $AllFolderList[0] = $AllFolderList[0] + 1
        Next
    EndIf
    $FolderCountDepth = StringReplace($Folder, "\", "");test how deep of the current folder depth
    $DepthNumber = StringLen($Folder) - StringLen($FolderCountDepth);count the folder depth
    If $DepthNumber <= $MaxFolderDepth Then $rrr = 999
    If IsArray($FolderList) And $FolderList[0] >= 1 And $DepthNumber <= $MaxFolderDepth Then
        For $j = 1 To $FolderList[0]
            ListAllFolder($Folder & "\" & $FolderList[$j], $MaxFolderDepth)
        Next
    EndIf
EndFunc

gear

[Cyber]

FANTASTIC!

GREAT!

THANKS!