使用VBS浏览本地文件的3种方式，获取完整路径（vbs打开网页）干货分享

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

Function BrowseForFile( )
‘===========2, fileselect in IE======================’Another way to get file path
Dim objIE, strSelected
BrowseForFile=””
Set objIE=CreateObject( “InternetExplorer.Application” )
objIE.ToolBar=False
objIE.Resizable=False
objIE.StatusBar=False
objIE.Width=300
objIE.Height=100
objIE.visible=True
objIE.Navigate( “about:blank” )
Do Until objIE.ReadyState=4
Loop
‘ Center the dialog window on the screen
With objIE.Document.ParentWindow.Screen
objIE.Left=(.AvailWidth – objIE.Width ) \ 4
objIE.Top=(.Availheight – objIE.Height) \ 4
End With
objIE.Document.Write “<HTML><BODY><INPUT ID=””FileSelect”” NAME=””FileSelect”” TYPE=””file””><BODY></HTML>”
With objIE.Document.all.FileSelect
.focus
.click
strSelected=.value
End With
objIE.Quit
Set objIE=Nothing
If Trim(strSelected)=”” Then
Msgbox “You selected no file.”
Wscript.Quit
End If
BrowseForFile=strSelected
End Function

BrowseForFile