9 replies to this topic

[FlyInSky]

This is my code.Why it's only get the first every subdirectory?

Plain Text        expandcollapse  popup

Global $List[1]=[0]
Func FileListToArray($Dir)
    Dim $FilePath,$FilesList,$Files,$i
    $FilesList=_FileListToArray($Dir)
    If (Not IsArray($FilesList)) and (@Error=1) Then
        MsgBox (0,"","No Files\Folders Found.")
        Return 
    EndIf
    $Files=_FileListToArray($Dir,"*",1)
    If IsArray($Files) Then
        For $i=1 To $Files[0]
            $FilePath=$Dir&"\"&$Files[$i]
            ReDim $List[UBound($List)+1]
            $List[0]=$List[0]+1
            $List[UBound($List)-1]=$FilePath
        Next
    EndIf
    $SubDir=_FileListToArray($Dir,"*",2)
    If IsArray($SubDir) Then
        For $i=1 To $SubDir[0]
            $FullPath=$Dir&"\"&$SubDir[$i]
            $tempList=FileListToArray($FullPath)
            For $i=1 To $tempList[0]
                ReDim $List[UBound($List)+1]
                $List[0]=$List[0]+1
                $List[UBound($List)-1]=$tempList[$i]
            Next    
        Next
    EndIf
    Return $List
EndFunc

Edited by FlyInSky, 27 October 2006 - 05:56 PM.

[GaryFrost]

This is Scripts and Scraps not Support

[FlyInSky]

What is another way to do it?

[Valuater]

might want to take a look at this FileListToArray() by SmOke_N

http://www.autoitscript.com/forum/index.ph...st&p=246376

8)

Edited by Valuater, 27 October 2006 - 06:43 PM.

[FlyInSky]

might want to take a look at this FileListToArray() by SmOke_N

http://www.autoitscript.com/forum/index.ph...st&p=246376

8)

Thank you
But it's not i need.I need a function of all subdirectoryies files.

Edited by FlyInSky, 27 October 2006 - 07:13 PM.

[FlyInSky]

I have another script about it,it's work,why my script don't work?

Func _filelist($searchdir)        
$search = FileFindFirstFile($searchdir & "\*.*")       
If $search = -1 Then return -1              
While 1
    $file = FileFindNextFile($search)               
    If @error Then                 

  FileClose($search)               
  return                                     
 Elseif  $file = "."  or $file = ".." Then       
  ContinueLoop                                              
 ElseIf stringinstr(FileGetAttrib($searchdir & "\" & $file),"D") then       
  _filelist($searchdir & "\" & $file)        

    EndIf                              
ConsoleWrite( $searchdir & "\" & $file & @crlf )
WEnd
EndFunc

[dabus]

Try this one: http://www.autoitscript.com/forum/index.php?showtopic=5458
Or even faster (at least for me): use dir and parse
... oh, sorry, did you want to use FileListToArray by all means?!?

[FlyInSky]

Try this one: http://www.autoitscript.com/forum/index.php?showtopic=5458
Or even faster (at least for me): use dir and parse
... oh, sorry, did you want to use FileListToArray by all means?!?

Yes.I want to get all files in the directory .

[suppa2]

I'm very new to Autoit3. Well, I needed such a function, too,so I made one which works

Func _getdirandsubdirs($dir)
$c=1;
$d=0;
$temp="";
$folders=_FileListToArray($dir,"*.",2)
While $c < UBound($folders, 1)
    $temp=_FileListToArray($musicfolder&$folders[$c],"*.",2)
        $d=1;
    While $d < UBound($temp, 1)
        _ArrayAdd($folders,$folders[$c]&"/"&$temp[$d])
        $d=$d+1;
    WEnd
    $c=$c+1;
WEnd
_ArrayDelete($folders, 0)
_ArraySort($folders);
return $folders;
EndFunc

Edited by suppa2, 03 January 2007 - 07:07 PM.

[yidabu]

I write a autoit udf to suport subdirectory and suport RegExp, see:
http://www.autoitscript.com/forum/index.php?showtopic=40063