【已解决】关于_FileListToArray 自定义函数 大家来看看这个两段代码

linkuncool

这个令我很头痛

#Include <File.au3>
#Include <Array.au3>

For $i = 0 to 10 step 1 
        DirCreate ("d:\123\$"&$i&"$")
Next

$folderlist=_FileListToArray ("d:\123")

If $folderlist=0 Then
        MsgBox (0,"","发生错误")
ElseIf @error = 1 Then
        MsgBox (0,"","Path not found or invalid")
ElseIf @error = 2 Then
        MsgBox (0,"","Invalid $sFilter")
ElseIf @error = 3 Then
        MsgBox (0,"","Invalid $iFlag")
ElseIf @error = 4 Then
        MsgBox (0,"","No File(s) Found")
Else
        _ArrayDisplay($FolderList,"$FileList")
EndIf

上面的代码 _FileListToArray 不带参数运行  OK

#Include <File.au3>
#Include <Array.au3>

For $i = 0 to 10 step 1 
        DirCreate ("d:\123\$"&$i&"$")
Next

$folderlist=_FileListToArray ("d:\123",2)

If $folderlist=0 Then
        MsgBox (0,"","发生错误")
ElseIf @error = 1 Then
        MsgBox (0,"","Path not found or invalid")
ElseIf @error = 2 Then
        MsgBox (0,"","Invalid $sFilter")
ElseIf @error = 3 Then
        MsgBox (0,"","Invalid $iFlag")
ElseIf @error = 4 Then
        MsgBox (0,"","No File(s) Found")
Else
        _ArrayDisplay($FolderList,"$FileList")
EndIf

我需要返回的是文件夹的列表
参数2 代表 返回文件夹名列表
执行失败

#Include <File.au3>
#Include <Array.au3>

For $i = 0 to 10 step 1 
        DirCreate ("d:\123\$"&$i&"$")
Next

$folderlist=_FileListToArray ("d:\123","",2)

If $folderlist=0 Then
        MsgBox (0,"","发生错误")
ElseIf @error = 1 Then
        MsgBox (0,"","Path not found or invalid")
ElseIf @error = 2 Then
        MsgBox (0,"","Invalid $sFilter")
ElseIf @error = 3 Then
        MsgBox (0,"","Invalid $iFlag")
ElseIf @error = 4 Then
        MsgBox (0,"","No File(s) Found")
Else
        _ArrayDisplay($FolderList,"$FileList")
EndIf

这样也不行  

返回以前只是需要文件名的返回值  

今天需要文件夹的  昨天晚上就开始调试了

实在不知道为什么

帮助文件里写的清清楚楚啊

lixiaolong

回复 1# linkuncool

这样可以

#Include <File.au3>
#Include <Array.au3>

For $i = 0 to 10 step 1 
        DirCreate ("D:\AU3\$"&$i&"$")
Next

$folderlist=_FileListToArray ("D:\AU3","*.*",2)

If $folderlist=0 Then

        MsgBox (0,"","发生错误")

ElseIf @error = 1 Then

        MsgBox (0,"","Path not found or invalid")

ElseIf @error = 2 Then

        MsgBox (0,"","Invalid $sFilter")

ElseIf @error = 3 Then

        MsgBox (0,"","Invalid $iFlag")

ElseIf @error = 4 Then

        MsgBox (0,"","No File(s) Found")

Else

        _ArrayDisplay($FolderList,"$FileList")

EndIf

linkuncool

如果123 中用 文件存在 就不行了  再说了   _FileListToArray 这个函数  我们都指定 返回的是文件夹了 filter 根本就不需要啊 ， 返回文件列表的话  需要的话 需要声明下

之前已经解决 实现了 获取指定的 文件夹列表

我就是奇怪 为什么帮助文件里 写的清清楚楚   的  
执行后出问题呢

lixiaolong

用文件存在也可以阿
$folderlist=_FileListToArray ("d:\123","*",1)

你看File.au3

Func _FileListToArray($sPath, $sFilter = "*", $iFlag = 0)
        Local $hSearch, $sFile, $sFileList, $sDelim = "|"
        $sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\" ; ensure single trailing backslash
        If Not FileExists($sPath) Then Return SetError(1, 1, "")
        If StringRegExp($sFilter, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
        If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
        $hSearch = FileFindFirstFile($sPath & $sFilter)
        If @error Then Return SetError(4, 4, "")
        While 1
                $sFile = FileFindNextFile($hSearch)
                If @error Then ExitLoop
                If ($iFlag + @extended = 2) Then ContinueLoop
                $sFileList &= $sDelim & $sFile
        WEnd
        FileClose($hSearch)
        If Not $sFileList Then Return SetError(4, 4, "")
        Return StringSplit(StringTrimLeft($sFileList, 1), "|")
EndFunc;==>_FileListToArray

看这个
_FileListToArray($sPath, $sFilter = "*", $iFlag = 0)

如果这样写$folderlist=_FileListToArray ("d:\123",2)
把$sFilter 当成2了，要使用$iFlag参数必须写$sFilter参数

代码是从左边开始读，什么函数都一样，不能跳过前边的参数

3mile

回复 1# linkuncool
看帮助了吗？仔细看了吗？参数用对了吗？
请不要随意说XXX有BUG，XXX运行出错！
借用P大的话，先自行检查1000次。

#Include <File.au3>
#Include <Array.au3>

For $i = 0 to 10 step 1 
        DirCreate ("d:\123\$"&$i&"$")
Next

$folderlist=_FileListToArray ("d:\123","*",2);注意参数，别偷懒

If $folderlist=0 Then
        MsgBox (0,"","发生错误")
ElseIf @error = 1 Then
        MsgBox (0,"","Path not found or invalid")
ElseIf @error = 2 Then
        MsgBox (0,"","Invalid $sFilter")
ElseIf @error = 3 Then
        MsgBox (0,"","Invalid $iFlag")
ElseIf @error = 4 Then
        MsgBox (0,"","No File(s) Found")
Else
        _ArrayDisplay($FolderList,"$FileList")
EndIf

linkuncool

回复 2# lixiaolong
file.au3  我看了下  里面的filter=*  是默认的
还一直在想文件夹又不分类型 filter 哪来干什么用
help 写 the filter to use, default is *.  
我的错

yingf20

学习。。。谢谢

一辈子为你

真需要这个

david890517

改P大的話 !加倍學習1000次!