怎么在VBS中浏览本地文件

tangjin

作者

怎么在VBS中浏览本地文件？很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。

XP下：

怎么在VBS中浏览本地文件

FunctionBrowseForFile()
'SelectFiledialogbasedonascriptbyMayayana
'Knownissues:
'*TreeviewalwaysopensDesktopfolder
'*InWin7/IE8onlythefileNAMEisreturnedcorrectly,thepathreturnedwillalwaysbeC:\fakepath\
'*Ifashortcuttoafileisselected,thenameofthatFILEwillbereturned,nottheshortcut's
'OnErrorResumeNext
'===========1,filebrowsererinXP==================
SetobjDialog=CreateObject("UserAccounts.CommonDialog")
objDialog.Filter="txt|*.txt"
objDialog.InitialDir="C:\"
intResult=objDialog.ShowOpen
IfintResult<>0Then
	BrowseForFile=objDialog.FileName
	exitfunction
else
	msgbox"Error."
EndIf
endfunction
BrowseForFile

2003下'for windows 2003

FunctionSelectAFile
SetobjDialog=CreateObject("SAFRCFileDlg.FileOpen")
intResult=objDialog.OpenFileOpenDlg
SelectAFile=objDialog.FileName
EndFunction

浏览器方式：

FunctionBrowseForFile()
'===========2,fileselectinIE======================
'Anotherwaytogetfilepath
DimobjIE,strSelected
BrowseForFile=""
SetobjIE=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")
DoUntilobjIE.ReadyState=4
Loop
'Centerthedialogwindowonthescreen
WithobjIE.Document.ParentWindow.Screen
objIE.Left=(.AvailWidth-objIE.Width)\4
objIE.Top=(.Availheight-objIE.Height)\4
EndWith
objIE.Document.Write"<HTML><BODY><INPUTID=""FileSelect""NAME=""FileSelect""TYPE=""file""><BODY></HTML>"
WithobjIE.Document.all.FileSelect
.focus
.click
strSelected=.value
EndWith
objIE.Quit
SetobjIE=Nothing
IfTrim(strSelected)=""Then
Msgbox"Youselectednofile."
Wscript.Quit
EndIf
BrowseForFile=strSelected
EndFunction

BrowseForFile

有没有发现上面的代码运行不易啊，这里恰卡编程网小编为大家分享一个可用的，虽然上面的的代码不能用但学习参考一下还是不错的，现在因为平台愿意导致，原来这些代码都是可以使用的。

FunctionChooseFile()
DimResult
Result=""
DimIE:SetIE=CreateObject("InternetExplorer.Application")
WithIE
.Visible=False
.Navigate("about:blank")
DoUntil.ReadyState=4:Loop
With.Document
.Write"<html><body><inputid='f'type='file'></body></html>"
With.All.f
.Focus
.Click
Result=.Value
EndWith
EndWith
.Quit
EndWith
SetIE=Nothing
ChooseFile=Result
EndFunction
ChooseFile

看完上述内容是否对您有帮助呢？如果还想对相关知识有进一步的了解或阅读更多相关文章，请关注恰卡编程网行业资讯频道，感谢您对恰卡编程网的支持。

阅读全文

发布于 2021-03-24 01:21:35

vbs