老熟女激烈的高潮_日韩一级黄色录像_亚洲1区2区3区视频_精品少妇一区二区三区在线播放_国产欧美日产久久_午夜福利精品导航凹凸

VBS中怎么瀏覽本地文件

VBS中怎么瀏覽本地文件,很多新手對此不是很清楚,為了幫助大家解決這個難題,下面小編將為大家詳細講解,有這方面需求的人可以來學習下,希望你能有所收獲。

二道江網站制作公司哪家好,找創新互聯!從網頁設計、網站建設、微信開發、APP開發、成都響應式網站建設等網站項目制作,到程序開發,運營維護。創新互聯公司2013年成立到現在10年的時間,我們擁有了豐富的建站經驗和運維經驗,來保證我們的工作的順利進行。專注于網站建設就選創新互聯。

因為系統組件差異,所以代碼也有不同文章最后我們給出一個通用的代碼

XP下:

Function BrowseForFile( )' Select File dialog based on a script by Mayayana' Known issues:' * Tree view always opens Desktop folder' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's'On Error Resume Next'===========1, file browserer in XP ==================Set objDialog = CreateObject("UserAccounts.CommonDialog")objDialog.Filter = "txt|*.txt"objDialog.InitialDir = "C:\"intResult = objDialog.ShowOpenIf intResult <> 0 ThenBrowseForFile = objDialog.FileNameexit functionelsemsgbox "Error."End Ifend functionBrowseForFile

2003下'for windows 2003

Function SelectAFileSet objDialog = CreateObject("SAFRCFileDlg.FileOpen")intResult = objDialog.OpenFileOpenDlgSelectAFile = objDialog.FileNameEnd Function

瀏覽器方式:

Function BrowseForFile( ) '===========2, fileselect in IE ======================  'Another way to get file path  Dim objIE, strSelected  BrowseForFile = ""  Set objIE = CreateObject( "InternetExplorer.Application" )objIE.ToolBar = FalseobjIE.Resizable = FalseobjIE.StatusBar = False objIE.Width = 300objIE.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 ""  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 = strSelectedEnd FunctionBrowseForFile

有沒有發現上面的代碼運行不易啊,這里我們小編為大家分享一個可用的,雖然上面的的代碼不能用但學習參考一下還是不錯的,現在因為平臺愿意導致,原來這些代碼都是可以使用的。

Function ChooseFile()   Dim Result   Result = ""   Dim IE : Set IE = CreateObject("InternetExplorer.Application")   With IE     .Visible = False     .Navigate("about:blank")     Do Until .ReadyState = 4 : Loop     With .Document       .Write ""       With .All.f         .Focus         .Click         Result = .Value       End With     End With     .Quit   End With   Set IE = Nothing  ChooseFile = ResultEnd FunctionChooseFile

看完上述內容是否對您有幫助呢?如果還想對相關知識有進一步的了解或閱讀更多相關文章,請關注創新互聯行業資訊頻道,感謝您對創新互聯的支持。


網頁標題:VBS中怎么瀏覽本地文件
標題路徑:http://www.xueling.net.cn/article/gcgipj.html

其他資訊

在線咨詢
服務熱線
服務熱線:028-86922220
TOP
主站蜘蛛池模板: 四虎在线永久免费观看 | 欧美精品国产制服第一页 | 免费的网站www | 天天干天天射天天操天天摸 | 精品国产一区二区亚洲人成毛片 | 日日操操操 | 青青草护士中出内射 | 超碰伊人久久 | 美女zzzwww色 | 国产性色AV高清在线观看 | 国产一级毛片国语普通话对白 | 日韩精品在线观看视频 | 欧美日韩ab | 亚洲一区二区三区小说 | 午夜影视啪啪免费体验区入口 | 成人在线综合 | 午夜在线成人 | 无码精品人妻一区二区三区共妻 | 97超碰人人做人人爽3d | 国产在线高清视频无码不卡互動交流 | 日日摸处处碰夜夜爽 | 超碰97干 | 国产精品无码专区在线观看 | 免费国产精品一区 | 中文字幕日本在线 | 国产成人精品免费视频大全最热 | 国产麻花豆剧传媒精品mv在线 | 久久综合伊人77777 | 国产毛1卡2卡3卡4卡视频 | 九九视频在线观看 | 美女zzzwww色| 国产精品绯色蜜臀99久久 | JK小仙女自慰流白浆免费网站 | 在线欧美一级视频 | 97精品国产99久久久久久免费 | av私库在线| 一区二区亚洲 | 91精品国产综合久久久蜜臀九色 | 久久久女人 | 韩国免费A级作爱片无码 | 精品国产第一区二区三区的区别 |