Searching For Directories

[PC.MAX]

how can i add the directories found in one directory to an array?

like i have many directories in "C:\dir\" and i want to get all the names of the directories found in it

[Thatsgreat2345]

check out filefindnextfile

$search = FileFindFirstFile("*.*")  

; 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
    
    MsgBox(4096, "File:", $file)
WEnd

; Close the search handle
FileClose($search)

[SpookMeister]

Also look at FileGetAttrib()

[PC.MAX]

and then how can i put these values in an array?

[elgabionline]

and then how can i put these values in an array?

Maybe that:

$search = FileFindFirstFile("*.*")  
$results=""

; 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
    If StringInStr ($file,".")=0 Then $results=$results&$file&"|"
WEnd

; Close the search handle
FileClose($search)
$results=StringSplit ($results,"|"); Retrieves an array. First value $results[0] is number of folders.

[SpookMeister]

I'd do it like this:

#include <Array.au3>
Dim $aryFolder[1]
$aryFolder[0]=0
$count = 0

$search = FileFindFirstFile("C:\dir\*.*")  
; 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
    If FileGetAttrib($file) = "D" Then
        $count = $count + 1
        $aryFolder[0] = $count
        _ArrayAdd($aryFolder,$file)
    EndIf
WEnd

; Close the search handle
FileClose($search)

Edit: tested after I posted... looking into my errors now

Edit 2: Fixed it

#include <Array.au3>
Dim $aryFolder[1]
$aryFolder[0] = 0
$count = 0

$search = FileFindFirstFile("C:\*.*")
; 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
    If FileGetAttrib("C:\" &  $file) = "D" Then
        $count = $count + 1
        $aryFolder[0] = $count
        _ArrayAdd($aryFolder, $file)
    EndIf   
WEnd
; Close the search handle
FileClose($search)
_ArrayDisplay($aryFolder, "Folders")

Edited April 24, 2006 by SpookMeister

[Jos]

The wheel exists already: _FileListToArray()