如果顺序执行一个文件夹中的所有exe?

douyuan

如题，我有一个文件夹是D:\保护程序,
里面有多个不同名字的exe,我想按顺序一个接一个的全部执行，有没有什么方法可以实现我用RUN（“*.exe”）不行。

[ 本帖最后由 douyuan 于 2008-7-9 12:32 编辑 ]

xb0x

$FilePath = "D:\保护程序"
$searchFile = FileFindFirstFile($FilePath & "\*.exe")
If $searchFile = -1 Then
    MsgBox(0, "错误", "无任何文件或文件夹与指定的搜索字符串匹配")
    Exit
EndIf

While 1
    $file = FileFindNextFile($searchFile)
    If @error Then ExitLoop
    run($FilePath & "\" & $file)
WEnd

FileClose($searchFile)

[ 本帖最后由 xb0x 于 2008-7-5 07:26 编辑 ]

lxz

楼上的不能按顺序一个接一个的执行,好象是同时执行.

大绯狼

如此这般
Search("D:\保护程序","exe")
Func Search($current, $ext)
        Local $search = FileFindFirstFile($current & "\*.*")
        While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($file) < 1 Then ExitLoop
                If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."  Or $file <> "..") Then
                        If StringRight($current & "\" & $file, StringLen($ext)) = $ext Then
                                RunWait($file,$current & "\")
                        EndIf
                EndIf
                If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "."  Or $file <> "..") Then
                        Search($current & "\" & $file, $ext)
                EndIf
        WEnd
        Return
EndFunc

lxz

原帖由 大绯狼 于 2008-7-5 14:47 发表
如此这般
Search("D:\保护程序","exe")
Func Search($current, $ext)
        Local $search = FileFindFirstFile($current & "\*.*")
        While 1
                Dim $file = FileFindNextFile($search)
                If @error Or StringLen($ ...

运行,结果

顽固不化

用run不行就用runwait呀，后者是等待运行结束的。关于按顺序执行就用FileFindFirstFile配合FileFindNextFile完成。

lxz

原帖由 顽固不化 于 2008-7-5 21:05 发表
用run不行就用runwait呀，后者是等待运行结束的。关于按顺序执行就用FileFindFirstFile配合FileFindNextFile完成。

顽固就是能化,行了.呵呵

蓝血鱼

直接收下了，今天直接把Search函数用到了我的程序中，很省事。多谢！！

douyuan

好像这样搞还有是点错误

dream_one

Search函数真的很神吗？

pdp320921

runwait
FileFindFirstFile
FileFindNextFile

这3个函数能够做到~

huohukiss