Getting Folder names?

[D4rk^S0ul]

Is it possible to get all the folder names in a defined folder? I have searched the forum but i couldnt find anything that i could use

[trids]

Capture the output (of which there are several methods) from the following DOS cmd ..

dir /ad /b

BTW .. to capture all child folders as well, use this instead ..

dir /ad /b /s

[DaveF]

The popular way to do this has been with FindFind... and FileGetAttrib, here's a thread with an example.

To find this I searched the forum for +FileFind* and +FileGetAttrib*

[randallc]

Hi,

To expand on trids' remark;

try this (cd link in my sig to doscoms.au3)

;DosSwitchesFolderExample1.au3

#include<DOSComs.au3>

$Folder=@ScriptDir

$t = TimerInit()

;_DIR($Folder, "/4/O-g/O-d/n/b/s")

; **============This lists all folders and sub-folders in $Folder directory

_DIR($Folder, "/ad/s")

ConsoleWrite(Timerdiff($t) & @CRLF)

;@TempDir & "\FileList.tmp"

RunWait("Notepad.exe " &@TempDir & "\FileList.tmp",@ScriptDir,@SW_SHOW)

Best, Randall

[D4rk^S0ul]

Thx for the help but is there anyway i can do it in the script so i can return the answer as a defined name? So i can make a combo of the names.

[GaryFrost]

#include <GuiConstants.au3>
#include <GuiCombo.au3>

Opt('MustDeclareVars',1)

Dim $Combo,$ret,$Btn_Exit,$Status,$msg,$allocated

GuiCreate("ComboBox Add Dir", 392, 254)

$Combo = GuiCtrlCreateCombo("", 70, 10, 270, 100,$CBS_SIMPLE)
$ret = _GUICtrlComboAddDir($Combo,"D,E", "*.*")
$Btn_Exit = GuiCtrlCreateButton("Exit", 150, 180, 90, 30)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
            ExitLoop
    EndSelect
WEnd
Exit

Edited December 13, 2005 by gafrost

[ChrisL]

Thx for the help but is there anyway i can do it in the script so i can return the answer as a defined name? So i can make a combo of the names.

You could probably addapt this

expandcollapse popup

#include <file.au3>
processFolder(@scriptDir)

func processFolder($path)

    local $fileHandle, $file, $dirHandle, $dir

    local const $FILESPEC = "*.*"
; debug("Starting with " & $path)

; debug("Going to search for " & $path & "\" & $FILESPEC)
    $fileHandle = fileFindFirstFile($path & "\" & $FILESPEC)
    if ($fileHandle <> -1) then
        while (1)
            $file = fileFindNextFile($fileHandle)
            if (@error = 1) then exitLoop
            if ($file = "." or $file = "..") then continueLoop
            $file = $path & "\" & $file
            if (isFolder($file)) then continueLoop
           ;debug("Found file " & $file)
                  
         
         
        wEnd
        fileClose($fileHandle)
     

    endIf

; debug("Going to search for subfolders")
    $dirHandle = fileFindFirstFile($path & "\*.*")
    if ($dirHandle <> -1) then
        while (1)
            $dir = fileFindNextFile($dirHandle)
            if (@error = 1) then exitLoop
            if ($dir = "." or $dir = "..") then continueLoop
            $dir = $path & "\" & $dir
            if (not(isFolder($dir))) then continueLoop
      debug("Found subfolder " & $dir)
            processFolder($dir)
        wEnd
        fileClose($dirHandle)
    endIf

endFunc

func isFolder($path)
    if stringInStr(fileGetAttrib($path), "D") then return 1
    return 0
endFunc

func debug($text)
    msgBox(0x40, "processFolder()", $text)
endFunc

[randallc]

Thx for the help but is there anyway i can do it in the script so i can return the answer as a defined name? So i can make a combo of the names.

From my script, simply loop through filereadline from the answerFile?...

randall

[Valuater]

another choice is FileListToArray()

example

#include <GUIConstants.au3>
#Include <File.au3>

$Location = @ProgramFilesDir

$FileList=_FileListToArray($Location, "*.*", 2)
If (Not IsArray($FileList)) and (@Error=1) Then
    MsgBox (0,"","No Files\Folders Found.")
    Exit
EndIf


GUICreate("My GUI combo"); will create a dialog box that when displayed is centered

GUICtrlCreateCombo ("", 10,10); create first item
For $x = 1 to $FileList[0]
    GUICtrlSetData(-1,$FileList[$x],"|"); add other item send set a new default
Next
GUISetState ()

; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

8)

Edited December 13, 2005 by Valuater

[randallc]

$ret = _GUICtrlComboAddDir($Combo,"D,E", "*.*")

How good is that!

Randall

Edited December 14, 2005 by randallc

[GaryFrost]

$ret = _GUICtrlComboAddDir($Combo,"D,E", "*.*")

D = DIRECTORY - Includes subdirectories. Subdirectory names are enclosed in square brackets ([ ]).

E = EXCLUSIVE - Includes only files with the specified attributes. By default, read-write files are listed even if READWRITE is not specified.

"*.*" - can have a path to look in also i.e. c:\*.*

[seandisanti]

alot of good replies; i just wanted to toss in another alternative... this is a recursive file lister that i made as an example for another thread, currently it starts at root of c and lists all sub files and folders and their size. if you change 3-4 lines, you should be able to create an output file of just the directories, and make an input box/fileopendialog()/etc to take user input on where to start....

$tosearch = "C:"
$output = FileOpen("c:\filelist.txt",2)
Global $deep = 0
$start = TimerInit()
RecFileSearch($tosearch)
FileClose($output)
MsgBox(0,"done","it only took " & int(TimerDiff($start)/1000) & " seconds")
Func RecFileSearch($current)
    $deep = $deep +1
    Local $search = FileFindFirstFile($current & "\*.*")
    While 1
    Dim $file = FileFindNextFile($search)
    If @error Or StringLen($file)<1 Then ExitLoop
    FileWriteLine($output,$current & "\" & $file & "     " & FileGetSize($file))
    If StringInStr(FileGetAttrib($current & "\" & $file),"D") And ( $file <> "." Or $file <> ".." ) Then RecFileSearch($current & "\" & $file)
    WEnd
    FileClose($search)
EndFunc