VBScript 打开一个对话框来选择文件路径

2023-12-30

目前我正在使用 vbscript 打开一个文件,如下所示:

strFile = "C:\Users\test\file.txt"
Set objFile = objFSO.OpenTextFile(strFile)

我想更改此设置,以便用户可以选择/导航到文件,并且该文件可以在脚本中使用。怎样才能添加这个能力呢?我尝试搜索如何加载文件对话框/提示用户输入文件等,只是不确定如何在 VBScript 中完成。


我发现另一个有趣的解决方案微软技术网 http://social.technet.microsoft.com/Forums/scriptcenter/en-US/a3b358e8-15ae-4ba3-bca5-ec349df65ef6/windows7-vbscript-open-file-dialog-box-fakepath?forum=ITCG更少的定制,但得到你想要实现的目标。这将返回所选文件的完整路径。

Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
sFileSelected = oExec.StdOut.ReadLine
wscript.echo sFileSelected
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

VBScript 打开一个对话框来选择文件路径 的相关文章

  • 如何使用 VbScript 创建选项对话框?

    我有一个第三方应用程序 它调用 vsbscript 文件来执行某些操作 我想提供一个带有选项选择的用户提示 可以是下拉列表或复选框或类似的选项 然而 我能找到的只是输入框选项 我不认为 HTA 适合我的情况 除非有办法从 vbs 文件调用它
  • 在 Excel 中用 VBA 替换 Chr(160) 时遇到问题

    我收到 Excel 文件已有一段时间了 这些文件通常在帐户后面受特殊字符 alt 0160 的困扰 我通常只是在 Excel 中手动替换它 但最近我变得懒惰了 想使用我的 VBA 脚本替换它 该脚本用于将所需的列插入到我们的数据库中 Sub
  • VBA getelementsbytagname问题

    早上好 我正在尝试提取 HTML 表信息并在 Excel 电子表格上整理结果 我正在使用getelementsbytagname table 0 函数来提取 HTML 表格信息 效果很好 有人可以告诉我这有什么意义吗 0 桌子之后 另外 我
  • 变量的变化触发事件

    是否可以通过变量的更改来触发事件 例如 这将触发事件 Dim t As Integer Dim Fire As Boolean Private Sub Test t 0 Fire True IIf Fire t 1 t 2 End sub
  • VBA 中 Thisworkbook.name 和 Activeworkbook.name 之间的区别

    Thisworkbook 和 ActiveWorkbook 有什么区别吗 示例代码 Sub workbook name MsgBox Thisworkbook name End Sub Sub active name MsgBox Acti
  • 如何修复在 Excel VBA 中使用查找函数的错误

    我尝试从另一张表中搜索值 而不是使用 FIND 函数 Private Function Search rng As Range FindString As String As Range With rng Set Search Find w
  • 将变量从 vbscript 传递到批处理文件

    我正在使用 vbscript 调用批处理文件 我的脚本如下所示 dim shell set shell createobject wscript shell shell run a bat set shell nothing 我的批处理文件
  • 从“查找”结果中出现“下标超出范围”错误

    我想在 Excel 工作表中查找一个字符串 Excel 单元格值是使用公式计算的 当我运行这段代码时 Set firstExcel CreateObject Excel application firstExcel Workbooks Op
  • 将按颜色过滤的行复制到新工作表

    我有一个 Excel 电子表格 如下所示 Job1 Job2 Job3 Job4 Job5 Job1 Job2 Job3 Job4 Job5 每行和列之间的单元格颜色不同 我需要按橙色对每列进行排序 然后将行名称复制到新工作表中 所以最后我
  • 从网站上的表格中抓取数据,而无需搜索标签

    这是这个问题的延续使用 InStr 搜索引号 空格 冒号等 https stackoverflow com questions 52673819 using instr to search for quotes spaces colons
  • 文本到行 VBA Excel

    我有一个电子表格 其中包含大约 4000 行数据 其中一列数据具有唯一的订单号 我希望使用 作为分隔符将其分隔 所以本质上我想要 Name Order Date Jane 123 001 111 08 15 2013 Gary 333 12
  • 如何模拟“焦点”和“打字”事件

    尝试模拟 onfocus 和打字事件 但它不起作用 Sub Login MyLogin MyPass Dim IEapp As InternetExplorer Dim IeDoc As Object Dim ieTable As Obje
  • 导出到excel时如何显示前导零?

    我正在通过更改内容类型来创建 Excel 报告 Response ContentType application vnd ms excel 我有包含前导零的值 问题是导出到 Excel 时缺少前导零 e g 000123 gt 123 我知
  • 将包含宏的工作簿复制到不带宏的工作簿

    我能够复制工作簿 复制到所需位置 其中在后台包含宏 该副本还包含相同的宏 我的问题是我不希望这个重复的工作簿包含宏 谁能告诉怎么做吗 先感谢您 将您的工作簿保存为无宏 即简单地保存为 Excel 工作簿 对于我的 Excel 2007 这是
  • 我如何以更好的方式编码而不是像这样的VBA编码

    我正在 Excel 中创建一个仪表板 但是我想知道是否有比这更好的编码方式 我想对其进行模块化 而不是这样做以使其更加整洁 Private Sub Afford If af Value True Then af afr Value Shee
  • 检查未绑定控件是否具有值的正确方法

    简单场景 一个表单和一个文本框 未绑定 Text1 If lt gt Text1 Then MsgBox Not Empty End If 上面的代码有效 表达方式 lt gt Text1如果文本框包含字符 则计算结果为 True 无论文本
  • 比较数组中的文件、从文本文件中删除行、函数、日志记录

    所以我创建了这两个数组 Approved Shares 和 Current Shares Reads Approvedshare txt and makes the txt file into an array public objFSO
  • 在 Excel 中使用 VBA 设置图像透明度

    有没有办法使用 VBA 脚本对图像应用一些透明度 我录制了一个 宏 但似乎没有录制艺术效果 我已经找到了如何制作形状 但没有找到图像 这需要几个步骤 将自选图形 如矩形 放置在工作表上 使用以下方法将您的实际图片嵌入矩形中 ShapeRan
  • 使用 split 函数到数组中会导致编译错误:无法分配给数组

    我正在尝试使用split 函数根据给定名称字符串中的空格拆分名称 当尝试编译我在下面编写的代码时 出现编译错误 无法分配给数组 我几乎从这里复制了微软的示例 https support microsoft com en us kb 2662
  • 使用 XMLHTTP 进行抓取会在特定类名处引发错误

    我正在尝试使用此代码抓取网站以提取姓名和联系人 Sub Test Dim htmlDoc As Object Dim htmlDoc2 As Object Dim elem As Variant Dim tag As Variant Dim

随机推荐

  • 将单词添加到用户词典中并从词典中检索它们

    我的应用程序中几乎没有编辑文本 用户可以在其中输入公司名称 客户名称 目的 诸如此类的内容 现在我想以编程方式将这些单词添加到字典中 因此他们不必每次都重新输入整个单词 相反 字典应该在他们开始输入时建议单词 我在网上搜索了同样的内容 得到
  • pyinstaller 2.0 - 如何为 Windows exe 文件添加描述?

    如何向单个文件 exe 添加版本 版权 文件描述等描述 python pyinstaller py F w i favicon ico C Projekte Eclipse MyApp app pyw version file 版本信息 t
  • 如何忽略 Jacoco 的 lombok.@UtilityClass?

    我用过lombok UtilityClass to 生成私有构造函数 使班级最终 将实用程序类中的所有字段设为静态 并且 Jacoco 不涵盖 Lombok 生成的代码 如果我显式定义一个私有构造函数 Jacoco 可以识别它 因此 有任何
  • MSMPI 就地 MPI_Allreduce 不适用于 MinGW-w64 gfortran

    我正在尝试使用就地MPI Allreduce结合MinGW w64 gfortran MSYS64提供的版本9 2 和Microsoft MPI 版本10 call MPI Allreduce MPI IN PLACE srcdst n M
  • 如果我在开发代码中使用 Smart::Comments 应该注意什么?

    我知道 Smart Comments 不应在生产代码中使用 因为它是源过滤器 然而 我一直在使用Smart Comments http search cpan org perldoc Smart Comments在我的开发代码中 然后在将代
  • 我们什么时候需要 IOptions?

    我正在 Net Core 中学习 DI 但我不知道使用 DI 的好处IOptions 为什么我们需要IOptions如果我们可以没有它吗 With IOptions interface IService void Print string
  • TypeORM 上传和服务(下载)文件

    介绍 在我的项目中 我尝试将文件存储在 MySQL 中 用户可以上传文件 html WEB APP 之后用户就有了上传文件的列表 html WEB APP 用户可以通过Link下载文件 在后端 我使用一个node js TypeORM 项目
  • 页面操作和浏览器操作有什么区别?

    我做了一个浏览器操作 但我只是尝试测试页面操作 按钮放置在同一位置 但页面操作按钮无法单击 图标呈灰色 我认为页面操作按钮位于地址栏上 而不是工具栏中 为什么它位于同一个地方 My browser action button My page
  • 合并不同目录级别的 git 存储库

    我有一个存储库 B 其内容需要驻留在 A src B 中 A 的子目录中 我希望最终得到一个存储库 A 其中包含 A 和 B 的提交历史记录 网络上的其他解决方案似乎向我展示了如何在单独的子树中保持树完整 或合并具有相同目录结构的存储库的选
  • 在 Pandas 数据帧上使用 groupby 按财政年度进行分组

    我有一个数据框 with a 日期时间64称为 DT 的列 是否可以使用groupby按财政年度从4月1日到3月31日进行分组 例如 Date PE LOW 2010 04 01 15 44 2011 03 31 16 8 2011 04
  • 下载 Excel 文件

    我之前曾问过这个问题 但在启动文件下载时仍然遇到困难 var fileName ExcelData xlsx var file new FileInfo fileName using var package new OfficeOpenXm
  • 撤销权限 android.permission.CAMERA

    我收到错误revoked permission android permission CAMERA 我在清单上使用了相机权限 private void dispatchTakePictureIntent int actionCode Int
  • 程序崩溃,但调试诊断说这是第一次机会异常,对吗?

    也许这是正常情况 但我很困惑 我正在从 Visual Studio 运行我的 C 调试应用程序 DebugDiag 设置为自动附加到进程 我有一条规则从该 应用程序收集故障转储 并且该规则定义未配置的第一次机会异常的操作应为 无 但是当应用
  • 如何将 EL 变量传递给 JavaScript

    我有一个变量 bean name 我如何将它传递给 JavaScript 变量 我试过了var name bean name and var name bean name 但它不起作用 我的想法是将其放入隐藏输入中 就像隐藏中一样
  • Phonegap iOS:将图像下载到照片库

    是否可以下载文件 图像 并将其保存在照片库中 我知道这一点download http docs phonegap com en 2 3 0 cordova file file md html FileTransfer download方法
  • 获取整数的第 n 位

    我得到一个大整数a 和一个 相对较小的 整数n 最快的获取方式是什么n二进制表示的第 th 位 从右起 a使用原生Python 将位移到最后一个位置 屏蔽其他所有内容 bit a gt gt n 1 这假设这些位以通常的方式索引 即最低有效
  • 如何在 asp.net MVC 中压缩内容?

    如何压缩 asp net mvc 应用程序发送的输出 这是我使用的 截至目前 using System IO Compression public class CompressAttribute ActionFilterAttribute
  • 从 kpcs7 (.p7b) 文件中提取私钥和证书

    我有一个 p7b 文件 如何提取密钥和证书 我尝试过 openssl 但无法获得确切的命令 选项 Thanks PKCS 7 文件不包含私钥 至于证书 您尚未指定您使用的平台以及您的问题与编程有何关系
  • 在 Windows 上安装更新时 Electron 自动更新失败

    我有一个电子应用程序 它使用electron builder用于构建 打包和发布应用程序 我有以下自动更新代码 autoUpdater logger log autoUpdater logger transports file level
  • VBScript 打开一个对话框来选择文件路径

    目前我正在使用 vbscript 打开一个文件 如下所示 strFile C Users test file txt Set objFile objFSO OpenTextFile strFile 我想更改此设置 以便用户可以选择 导航到文