XP下:
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.ShowOpenIfintResult<>0ThenBrowseForFile=objDialog.FileNameexitfunctionelsemsgbox"Error."EndIfendfunctionBrowseForFile2003下'for windows 2003
FunctionSelectAFileSetobjDialog=CreateObject("SAFRCFileDlg.FileOpen")intResult=objDialog.OpenFileOpenDlgSelectAFile=objDialog.FileNameEndFunction瀏覽器方式:
FunctionBrowseForFile()'===========2,fileselectinIE======================'AnotherwaytogetfilepathDimobjIE,strSelectedBrowseForFile=""SetobjIE=CreateObject("InternetExplorer.Application")objIE.ToolBar=FalseobjIE.Resizable=FalseobjIE.StatusBar=FalseobjIE.Width=300objIE.Height=100objIE.visible=TrueobjIE.Navigate("about:blank")DoUntilobjIE.ReadyState=4Loop'CenterthedialogwindowonthescreenWithobjIE.Document.ParentWindow.ScreenobjIE.Left=(.AvailWidth-objIE.Width)\4objIE.Top=(.Availheight-objIE.Height)\4EndWithobjIE.Document.Write"<HTML><BODY><INPUTID=""FileSelect""NAME=""FileSelect""TYPE=""file""><BODY></HTML>"WithobjIE.Document.all.FileSelect.focus.clickstrSelected=.valueEndWithobjIE.QuitSetobjIE=NothingIfTrim(strSelected)=""ThenMsgbox"Youselectednofile."Wscript.QuitEndIfBrowseForFile=strSelectedEndFunctionBrowseForFile有沒有發現上面的代碼運行不易啊,這里本站小編為大家分享一個可用的,雖然上面的的代碼不能用但學習參考一下還是不錯的,現在因為平臺愿意導致,原來這些代碼都是可以使用的。
FunctionChooseFile()DimResultResult=""DimIE:SetIE=CreateObject("InternetExplorer.Application")WithIE.Visible=False.Navigate("about:blank")DoUntil.ReadyState=4:LoopWith.Document.Write"<html><body><inputid='f'type='file'></body></html>"With.All.f.Focus.ClickResult=.ValueEndWithEndWith.QuitEndWithSetIE=NothingChooseFile=ResultEndFunctionChooseFile看完上述內容是否對您有幫助呢?如果還想對相關知識有進一步的了解或閱讀更多相關文章,請關注本站行業資訊頻道,感謝您對本站的支持。
本文由 貴州做網站公司 整理發布，部分圖文來源于互聯網，如有侵權，請聯系我們刪除，謝謝！
c語言中正確的字符常量是用一對單引號將一個字符括起表示合法的字符常量。例如‘a’。數值包括整型、浮點型。整型可用十進制，八進制，十六進制。八進制前面要加0，后面...
2022年天津專場考試原定于3月19日舉行，受疫情影響確定延期，但目前延期后的考試時間推遲。 符合報名條件的考生，須在規定時間登錄招考資訊網(www.zha...
：喜歡聽，樂意看。指很受歡迎?！巴卣官Y料”喜聞樂見：[ xǐ wén lè jiàn ]詳細解釋1. 【解釋】：喜歡聽，樂意看。指很受歡迎。2. 【示例】：這是...
經銷商融資的含義是什么?經銷商融資是一種由零售商向其客戶發放的貸款，然后出售給零售商銀行或其他第三方金融機構。銀行以折扣價購買這些貸款，然后向借款人收取本金和利息。這也稱為間接貸款。關鍵要點經銷商融資是零售商向客戶發放的貸款，然后出售給銀行或其他第三方金融機構。經銷商融資的一個著名例子是提供購車融資的汽車經銷商;買入利率是金融機構向交易商報出的利率。但是，經銷商向客戶提供的實際利率可以設置得更高。...
我國的證券交易所分為上海證券交易所與深圳證券交易所，簡稱滬深兩市，那么你知道滬市A股和深市A股有什么區別嗎?一起來看看吧。滬市A股和深市A股有什么區別?滬市A股和深市A股的區別主要有代碼不同、板塊不同、部分股票上市條件不同、部分股票的交易門檻不同等區別?！?】代碼不同：滬市A股以6開頭，深市A股則以000、002或者300開頭?！?】板塊不同：滬市A股包括滬市主板以及科創板兩大板塊，深市A股則包括...
2018年股市為什么大跌?2018年12月28日是2018年a股的最后一個交易日。這一年，a股相當跌宕起伏。對于投資者來說，他們度過了悲傷的2018年，但對于一些企業來說，他們度過了悲慘的2018年。2018的股市已經讓人走的很艱難了。a股三大指數今年以來跌幅均超過20%，而個股情況更為慘烈。根據相關統計可以知道，2018年中，除了股價遭遇腰斬，還有3200多只股票收跌，共有503只股票跌幅超過5...
免責聲明：本站內容部分文字和圖片來源于網絡，版權屬于原作者所有，若有冒犯，請聯系我們進行刪除，謝謝。聯系郵箱：1051388971#qq.com （把#換成@）