Vlasssov Posted January 24, 2010 Posted January 24, 2010 Standart functions FileFindFirstFile and FileFindNextFile find file in current directories. As I can find a file including subdirectories? If there is a standard example where I can look it?
Mat Posted January 24, 2010 Posted January 24, 2010 Heres one I did, there are lots of examples though.http://www.autoitscript.com/forum/index.php?showtopic=104982 AutoIt Project Listing
Vlasssov Posted January 24, 2010 Author Posted January 24, 2010 Heres one I did, there are lots of examples though. http://www.autoitscript.com/forum/index.php?showtopic=104982 I have written function expandcollapse popup#Include <File.au3> #include <Array.au3> Func _FindFilesName($sRoot, $sFile,byref $sp) dim $ss dim $i if StringRight($sRoot,1) = "\" Then $sRoot = StringLeft($sRoot,StringLen($sRoot)-1) EndIf $ss = "" _FindFiles($sRoot, $sFile,$ss) $sp1 = StringSplit($ss, @TAB) if $sp1[0]>0 then redim $sp[$sp1[0]-1] for $i=1 to $sp1[0]-2 $sp[$i] = $sp1[$i+1] Next $sp[0] = $sp1[0]-2 Else $sp[0] = 0 EndIf EndFunc Func _FindFiles($sRoot, $sFile, byref $ss) Local $FileList $FileList = _FileListToArray($sRoot, $sFile, 1) If Not @error Then For $i = 1 To $FileList[0] $ss = $ss &$sRoot & '\' & $FileList[$i]& @TAB Next EndIf $FileList = _FileListToArray($sRoot, '*', 2) If Not @error Then For $i = 1 To $FileList[0] _FindFiles($sRoot & '\' & $FileList[$i], $sFile,$ss) Next Else EndIf EndFunc Look, whether it is possible to simplify it.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now