在Win7系统上通过VBScript实现文件浏览选择功能

实现函数代码：

Function BrowseForFile()
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set tempFile=fso.CreateTextFile("tmpfile.hta")
    tempFile.Write _
    "" & Chr(13) & Chr(10) & _
    "" & Chr(13) & Chr(10) & _
    "" & Chr(13) & Chr(10) & _
    "" & Chr(13) & Chr(10) & _
    "" & Chr(13) & Chr(10) & _
    "" & Chr(13) & Chr(10) & _
    "" & Chr(13) & Chr(10) & _
    "" & Chr(13) & Chr(10) & _
    ""
    tempFile.Close
    Set shell=CreateObject("WScript.Shell")
    shell.Run "tmpfile.hta",0,True    
    Set tempFile=fso.GetFile("tmpfilepath")    
    If tempFile.size>0 Then    
        Set tempFile=fso.OpenTextFile("tmpfilepath",1,false) 
        BrowseForFile=tempFile.ReadAll     
        tempFile.close
    Else
        BrowseForFile=""
    End If    
    Set tempFile=fso.GetFile("tmpfile.hta")
    tempFile.attributes=0
    tempFile.delete
    Set tempFile=fso.GetFile("tmpfilepath")
    tempFile.attributes=0
    tempFile.delete    
    Set shell=Nothing
    Set fso=Nothing
End Function

具体调用方法：

Dim selpath
selpath=BrowseForFile()
If selpath <> "" Then
    MsgBox("你已经选择的文件"&selpath)
Else
    MsgBox("你还没有选择文件")
End If