substituting command line commands in AutoIT

[Damastah]

I want to create an autoIt version of Dir. This is what i have so far.

Func listFolders()
    If FileExists("Dir.txt") then FileDelete("dir.txt")
    $search = FileFindFirstFile($directory & "*.*")  

;Check if the search was successful
;If $search = -1 Then Exit
    

    While 1
        $file = FileFindNextFile($search) 
    ;If @error Then ExitLoop

If StringInStr($file, ".", 2, -4) then MsgBox(0, @error, $file);FileWriteLine("Dir.txt", $file); if there is no Extention, meaning folder...Does not work for folders with "." in name

WEnd

; Close the search handle
    FileClose($search)
    
EndFunc

The second code box is what im having problems with. My goal is to check 4 places from the end, (or the 3 char extentions E.G: ".txt") to see if there is a "." in that place. This will help me get around possible directory names with periods in them, and not have my program mistake it for a file. I either want to fix this "algorithm" or get an alternative to the command line's Dir command with all its switches.

[Triblade]

This function: FileGetAttrib($filename)

can show if the given input is a file or directory.

String returned could contain a combination of these letters "RASHNDOCT":
"R" = READONLY
"A" = ARCHIVE
"S" = SYSTEM
"H" = HIDDEN
"N" = NORMAL
"D" = DIRECTORY  <----!!!
"O" = OFFLINE
"C" = COMPRESSED (NTFS compression, not ZIP compression)
"T" = TEMPORARY

Maybe this helps you somewhat.

I am not clear if you say your code does or does not work.

Edited June 26, 2008 by Triblade

[PsaltyDS]

There are many examples of _FileListToArray() with and without recursion. Search is your friend.

[Damastah]

My code does NOT work.

[PsaltyDS]

...

; if there is no Extention, meaning folder...

...

Where did you get this silly assumption? Drop this foolishness and determine file/directory by the attributes (as per Triblade), or use _FileListToArray() to only the ones you want (as suggested by me).

As for your function:

Func listFolders()
    If FileExists("Dir.txt") Then FileDelete("dir.txt")
    $search = FileFindFirstFile($directory & "*.*")
    While 1
        $file = FileFindNextFile($search)
        If StringInStr($file, ".", 2, -4) Then MsgBox(0, @error, $file)
    WEnd
    FileClose($search)
EndFunc  ;==>listFolders

... what sets $directory? What is the handling for trailing "\" on the path? What exits from the While/WEnd loop?

[Damastah]

Thanx TriBlade for the reference. It's going to help me solve all my problems with my DIR conversion.

I fixed the code to be:

While 1
        $file = FileFindNextFile($search) 
        If @error Then ExitLoop
        $attrib = FileGetAttrib($directory & $file)
        if StringInStr($attrib, "D")then
            MsgBox(0, $file, $attrib)
            if $attrib = "D" then FileWriteLine("Dir.txt", $file
            EndIf
    WEnd

Edited June 26, 2008 by Damastah

[Triblade]

If the above code gives error's (and I think you've probably allready noticed if you run this code)

then its because: FileWriteLine("Dir.txt", $file

See, you miss a closing )