如何获得被测系统.exe文件的路径

smalliv4125

如题，如何用vbs编写几句代码实现寻找被测系统.exe文件（比如：aaa.exe）的路径。请高手告知。谢谢

lvguobin

我记得有这样的API你可以自己去找一下。

fei.ge

以前有个帖子这样写的，不去翻了，脚本如下：

【查找文件是否存在于“某目录或其子目录”的问题】

foldername =  "G:\Test2"
filename ="标准版测试用例_new.xls"
Dim find,temp
find = False
call FindFilePath(foldername,filename)
msgbox temp   

'在foldername文件夹及其子文件夹下找到一个名字为filename的文件的路径
Function FindFilePath(foldername,filename)                        
        Dim fso,UtilFolder,UtilFolderCollection
        Dim tpath

        Set fso = CreateObject("Scripting.FileSystemObject")         
'        On error resume next
        Set UtilFolder=fso.GetFolder(foldername)
        If  UtilFolder is nothing Then
                msgbox "FindFilePath的foldername参数不正确"
        End If
        '搜索当前所有子目录
                If not find Then
                            For each f in UtilFolder.files
                                        If StrComp(Lcase(f.name),Lcase(trim(filename))) = 0 Then
                        find = True
                        tpath = f.path
                                                temp = Cstr(tpath)
                        Exit For
                                        End If
                                Next
                End If

               
        If not  find Then
                Set UtilFolderCollection = UtilFolder.SubFolders
                If Not UtilFolderCollection Is Nothing Then                '如果子目录不为空
                        For each ufolder in UtilFolderCollection
                                 FindFilePath ufolder,filename
                        Next
                End If
        Else

        End If
        Set UtilFolder = Nothing
        Set UtilFolderCollection = Nothing
        Set fso = Nothing
End Function