婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 使用VBS瀏覽本地文件的3種方式,獲取完整路徑

使用VBS瀏覽本地文件的3種方式,獲取完整路徑

熱門標簽:地圖標注政府哪個部門管 東營快遞外呼系統 百度地圖標注點距離代碼 神行者美術館地圖標注 齊齊哈爾高德地圖標注店 哪里有便宜的地圖標注公司 如何用機器人進行電銷 除了地圖標注還有這種生意嗎 佛山真人電銷機器人廠家

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

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.ShowOpen
If intResult > 0 Then
	BrowseForFile = objDialog.FileName
	exit function
else
	msgbox "Error."
End If
end function
BrowseForFile

2003下'for windows 2003

Function SelectAFile
Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")
intResult = objDialog.OpenFileOpenDlg
SelectAFile = objDialog.FileName
End Function

瀏覽器方式:

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

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

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 "html>body>input id='f' type='file'>/body>/html>"
       With .All.f
         .Focus
         .Click
         Result = .Value
       End With
     End With
     .Quit
   End With
   Set IE = Nothing
  ChooseFile = Result
End Function
ChooseFile

好了這篇 關于vbs選擇本地文件功能的代碼就介紹到這了,需要的朋友可以參考一下。

標簽:西安 文山 四平 邢臺 湖州 銅川 鶴壁

巨人網絡通訊聲明:本文標題《使用VBS瀏覽本地文件的3種方式,獲取完整路徑》,本文關鍵詞  使用,VBS,瀏覽,本地,文件,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《使用VBS瀏覽本地文件的3種方式,獲取完整路徑》相關的同類信息!
  • 本頁收集關于使用VBS瀏覽本地文件的3種方式,獲取完整路徑的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 四川省| 鲁甸县| 黑水县| 恩施市| 临安市| 东乡| 额尔古纳市| 永宁县| 固阳县| 沭阳县| 霍州市| 墨江| 河西区| 沙湾县| 株洲市| 社会| 壶关县| 洞口县| 卢湾区| 玛纳斯县| 田东县| 册亨县| 延庆县| 左贡县| 清丰县| 莒南县| 宝兴县| 米林县| 吴堡县| 疏勒县| 安阳县| 嘉兴市| 图木舒克市| 盐源县| 鹰潭市| 德阳市| 轮台县| 灵武市| 宝坻区| 蒙阴县| 赤壁市|