论坛 › 已解决问题区 › 如何在搜索到xxx文件后返回xxx文件的路径

wbsgege 发表于 2008-10-8 20:49:31

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

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

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

liongodmien 发表于 2008-10-9 10:01:04

#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
        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 发表于 2008-10-9 12:58:55

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

yzh016 发表于 2009-7-29 22:24:56

dddddddddddddddd

menfan1 发表于 2009-7-30 20:15:39

学习一下。。

查看完整版本: 如何在搜索到xxx文件后返回xxx文件的路径