如何在搜索到xxx文件后返回xxx文件的路径

wbsgege

如题,如何在搜索到xxx文件后返回xxx文件的路径,希望能够给出代码,谢谢

[ 本帖最后由 wbsgege 于 2008-10-9 12:59 编辑 ]

liongodmien

#NoTrayIcon

Opt("MustDeclareVars", 1)
#include <Constants.au3>

Local $Drive, $I, $File

$File = InputBox("输入", "输入要查找的文件名：", "", "", 180, 80, -1, -1)
If @error Or $File = "" Then Exit

$Drive = DriveGetDrive("FIXED")

For $I = 1 To $Drive[0]
        Local $foo, $line, $lines
        $foo = Run(@ComSpec & " /c dir /b /s /a " & $File, $Drive[$I] & "\", @SW_HIDE, $STDOUT_CHILD)
        $lines = ""
        While 1
                $line = StdoutRead($foo)
                If @error Then ExitLoop
                $lines &= $line
        WEnd
        If $lines = "" Then
                MsgBox(16, "错误", "在驱动器" & $Drive[$I] & "没有找到要找的文件！", 2)
                ContinueLoop 1
        EndIf
        MsgBox(0, "找到的文件：", $lines)
Next

wbsgege

谢谢了,写的很棒,把这个修改下就可以实现更多的功能和效果了

yzh016

dddddddddddddddd

menfan1

学习一下。。