• 售前

  • 售后

热门帖子
入门百科

利用VBS浏览本地文件的3种方式,获取完备路径

[复制链接]
风吹吹蛋蛋疼风w 显示全部楼层 发表于 2021-8-19 19:11:13 |阅读模式 打印 上一主题 下一主题
因为体系组件差异,以是代码也有差别文章最后脚本之家给出一个通用的代码
XP下:
  1. Function BrowseForFile( )
  2. ' Select File dialog based on a script by Mayayana
  3. ' Known issues:
  4. ' * Tree view always opens Desktop folder
  5. ' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\
  6. ' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's
  7. 'On Error Resume Next 
  8. '===========1, file browserer in XP ==================
  9. Set objDialog = CreateObject("UserAccounts.CommonDialog")
  10. objDialog.Filter = "txt|*.txt"
  11. objDialog.InitialDir = "C:"
  12. intResult = objDialog.ShowOpen
  13. If intResult <> 0 Then
  14.         BrowseForFile = objDialog.FileName
  15.         exit function
  16. else
  17.         msgbox "Error."
  18. End If
  19. end function
  20. BrowseForFile
复制代码
2003下'for windows 2003
  1. Function SelectAFile
  2. Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")
  3. intResult = objDialog.OpenFileOpenDlg
  4. SelectAFile = objDialog.FileName
  5. End Function
复制代码
欣赏器方式:
  1. Function BrowseForFile( )
  2. '===========2, fileselect in IE ======================
  3. 'Another way to get file path
  4.   Dim objIE, strSelected
  5.   BrowseForFile = ""
  6.   Set objIE = CreateObject( "InternetExplorer.Application" )
  7. objIE.ToolBar = False
  8. objIE.Resizable = False
  9. objIE.StatusBar = False
  10. objIE.Width = 300
  11. objIE.Height = 100
  12.   objIE.visible = True
  13.   objIE.Navigate( "about:blank" )
  14.   Do Until objIE.ReadyState = 4
  15.   Loop
  16. ' Center the dialog window on the screen
  17. With objIE.Document.ParentWindow.Screen
  18. objIE.Left = (.AvailWidth - objIE.Width ) \ 4
  19. objIE.Top = (.Availheight - objIE.Height) \ 4
  20. End With
  21.   objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>"
  22.   With objIE.Document.all.FileSelect
  23.     .focus
  24.     .click
  25.     strSelected = .value
  26.   End With
  27.   objIE.Quit
  28.   Set objIE = Nothing  
  29. If Trim(strSelected) = "" Then
  30. Msgbox "You selected no file."
  31. Wscript.Quit
  32. End If
  33. BrowseForFile = strSelected
  34. End Function
  35. BrowseForFile
复制代码
有没有发现上面的代码运行不易啊,这里脚本之家小编为大家分享一个可用的,固然上面的的代码不能用但学习参考一下照旧不错的,现在因为平台愿意导致,原来这些代码都是可以使用的。
  1. Function ChooseFile()
  2.    Dim Result
  3.    Result = ""
  4.    Dim IE : Set IE = CreateObject("InternetExplorer.Application")
  5.    With IE
  6.      .Visible = False
  7.      .Navigate("about:blank")
  8.      Do Until .ReadyState = 4 : Loop
  9.      With .Document
  10.        .Write "<html><body><input id='f' type='file'></body></html>"
  11.        With .All.f
  12.          .Focus
  13.          .Click
  14.          Result = .Value
  15.        End With
  16.      End With
  17.      .Quit
  18.    End With
  19.    Set IE = Nothing
  20.   ChooseFile = Result
  21. End Function
  22. ChooseFile
复制代码
好了这篇 关于vbs选择当地文件功能的代码就介绍到这了,必要的朋友可以参考一下。

帖子地址: 

回复

使用道具 举报

分享
推广
火星云矿 | 预约S19Pro,享500抵1000!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

草根技术分享(草根吧)是全球知名中文IT技术交流平台,创建于2021年,包含原创博客、精品问答、职业培训、技术社区、资源下载等产品服务,提供原创、优质、完整内容的专业IT技术开发社区。
  • 官方手机版

  • 微信公众号

  • 商务合作