文件查找问题

allen9158

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

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

pcbar

不知这样行不行?

_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

留名 收藏

DenQ

留名 收藏