|
原帖由 awfymwvf 于 2010-12-31 13:10 发表
支持更新。我的几层目录搜索功能还没实现。。。。唉。。。。
好象你在用AU3吧,给你一个最初的例子参考
#include <File.au3>
_filelist("D:", ".exe", 2) ;_filelist("搜索目标", "文件类型", "目录层")
Func _filelist($path, $type, $ceng)
$FileList = _FileListToArray($path)
If Not @error Then
For $i = 1 To $FileList[0]
If StringRight($FileList[$i], 4) = $type then
MsgBox(0, $i, $path & "\" & $FileList[$i])
Else
$array = StringSplit($path, "\", 1)
If $array[0] < $ceng Then
_filelist($path & "\" & $FileList[$i], $type, $ceng)
EndIf
EndIf
Next
EndIf
EndFunc |
|