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

最新推荐文章于 2023-02-08 12:23:09 发布

princewwj

最新推荐文章于 2023-02-08 12:23:09 发布

阅读量564

点赞数

CC 4.0 BY-SA版权

分类专栏：脚本编程文章标签： Win7 VBScript 浏览选择文件

本文链接：https://blog.youkuaiyun.com/princewwj/article/details/82905682

脚本编程专栏收录该内容

1 篇文章

订阅专栏

实现函数代码：

Function BrowseForFile()
   Set fso=CreateObject("Scripting.FileSystemObject")
   Set tempFile=fso.CreateTextFile("tmpfile.hta")
   tempFile.Write _
   "<html>" & Chr(13) & Chr(10) & _
   "<head>" & Chr(13) & Chr(10) & _
   "<title>Browse</title>" & Chr(13) & Chr(10) & _
   "</head>" & Chr(13) & Chr(10) & _
   "<body>" & Chr(13) & Chr(10) & _
   "<input type='file' id='file'/>" & Chr(13) & Chr(10) & _
   "<script type='text/javascript'>" & Chr(13) & Chr(10) & _
   "var ForReading=1;" & Chr(13) & Chr(10) & _
   "var ForWriting=2;" & Chr(13) & Chr(10) & _
   "var file = document.getElementById('file');" & Chr(13) & Chr(10) & _
   "file.click();" & Chr(13) & Chr(10) & _
   "var fso=new ActiveXObject('Scripting.FileSystemObject');" & Chr(13) & Chr(10) & _
   "fpw=fso.CreateTextFile('tmpfilepath');" & Chr(13) & Chr(10) & _
   "fpw.Write(file.value);" & Chr(13) & Chr(10) & _
   "fpw.close();" & Chr(13) & Chr(10) & _
   "window.close();" & Chr(13) & Chr(10) & _
   "</script>" & Chr(13) & Chr(10) & _
   "</body>" & Chr(13) & Chr(10) & _
   "</html>"
   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