allen9158 发表于 2008-8-17 20:02:08

文件查找问题

各位大侠，请问如何在指定文件夹查找文件，最后把光标停留在所查找的文件上？

[ 本帖最后由 allen9158 于 2008-8-18 15:42 编辑 ]

pcbar 发表于 2008-8-17 23:44:01

不知这样行不行?
_filelist("c:\windows", "notepad.exe")
Func _filelist($searchdir, $tmp)
        $search = FileFindFirstFile($searchdir & "\*.*")
        If $search = -1 Then Return -1
        While 1
                $file = FileFindNextFile($search)
                If @error Then
                        FileClose($search)
                        Return -1
                ElseIf $file = "." Or $file = ".." Then
                        ContinueLoop
                ElseIf StringInStr(FileGetAttrib($searchdir & "\" & $file), "D") Then
                        _filelist($searchdir & "\" & $file, $tmp)
                EndIf
                If $file = $tmp Then
                        ShellExecute($searchdir)
;~                WinWait($searchdir)
                        Sleep(500)
                        Send($tmp)
                        ;FileWriteLine(@ScriptDir&"\file.txt", $searchdir & "\" & $file & @CRLF)
                EndIf
        WEnd
EndFunc   ;==>_filelist

haodd 发表于 2011-5-27 18:06:29

留名 收藏{:face (447):}

DenQ 发表于 2011-5-27 18:17:47

留名 收藏{:face (288):}
页: [1]
查看完整版本: 文件查找问题