精华内容
下载资源
问答
  • VBS 显示“选择文件或文件夹”对话框的代码,经测试windows xp下才可以使用,win2000,win2003没有内置这样的方法。
  • vbs打开文件对话框

    千次阅读 2013-04-27 00:53:37
    Function SelectFile() Set wShell=CreateObject("WScript.Shell") Set oExec=wShell.Exec("mshta.exe ""about:FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FI
    Function SelectFile()
    	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>""")
    	SelectFile = oExec.StdOut.ReadAll
    End Function
    MsgBox SelectFile()

    展开全文
  • VBS 打开文件对话框

    千次阅读 2009-05-15 19:52:00
    Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:/" intResult = objDialog.ShowOpen() If intResult=0 then wscript.quit ELSE wscript

    Set objDialog = CreateObject("UserAccounts.CommonDialog")
    objDialog.Filter = "All Files|*.*"
    objDialog.InitialDir = "C:/"
    intResult = objDialog.ShowOpen()
    If intResult=0 then
    wscript.quit
    ELSE wscript.echo objDialog.file
    End If

     

    展开全文
  • 如何在 Windows 7 系统中向用户显示一个用来选择文件对话框
  • 西门子WinCC 如何使用 VBS 调用文件打开对话框pdf,本文介绍了在WinCC 中如何使用 VBS 调用文件打开对话框,系统环境 XP SP3, IE 6.0 SP3。
  • Window10 VBS调用文件浏览对话框

    千次阅读 2019-01-30 13:51:51
    Msgbox CreateObject("WScript.Shell").Exec("mshta vbscript:""&lt;input type=file id=f&...new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f....

     

    Msgbox CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type=file id=f><script>f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value)[close()];</script>""").StdOut.ReadAll

    原文:http://tieba.baidu.com/p/3510298148

    展开全文
  • VBS打开选择文件对话框代码(Win7)相信很多人都看过“嗨,Scripting Guy!”上面的一个问题,就算没有看过原文,也应该看过被复制粘贴后的代码。我如何向用户显示一个用来选择文件的对话框?问:嗨,Scripting Guy!...

    VBS打开选择文件对话框代码(Win7)

    相信很多人都看过“嗨,Scripting Guy!”上面的一个问题,就算没有看过原文,也应该看过被复制粘贴后的代码。

    我如何向用户显示一个用来选择文件的对话框?

    问:嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? — BF

    答:您好,BF。如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法。但如果您使用的是 Windows XP,情况就不同了。在 Windows XP 上,您可以使用“UserAccounts.CommonDialog”对象向用户显示一个标准的“文件打开”对话框。可以用类似以下代码的脚本:

    代码我就不复制粘贴了,原文里面有,网上也到处都是。但是问题在于,这段代码只能用于 Windows XP 系统(Windows 2003 或许也可以,但是我没有测试过),而现在 Windows 7 已经逐渐开始流行起来。在 Vista 和Windows 7 系统中默认是不自带 UserAccounts.CommonDialog 组件的(顺便提一句,SAFRCFileDlg.FileOpen 和 SAFRCFileDlg.FileSave 组件也是没有的)。

    那么如何在 Windows 7 系统中向用户显示一个用来选择文件的对话框呢?答案是 html 中的文件选择对话框:

    复制代码 代码如下:

    Function BrowseForFile()

    Dim shell : Set shell = CreateObject("WScript.Shell")

    Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")

    Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)

    Dim tempName : tempName = fso.GetTempName()

    Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")

    tempFile.Write _

    "" & _

    "

    " & _

    "

    Browse" & _

    "" & _

    "

    " & _

    "" & _

    "

    "var f = document.getElementById('f');" & _

    "f.click();" & _

    "var shell = new ActiveXObject('WScript.Shell');" & _

    "shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _

    "window.close();" & _

    "" & _

    "" & _

    ""

    tempFile.Close

    shell.Run tempFolder & "\" & tempName & ".hta", 0, True

    BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")

    shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"

    End Function

    'Author: Demon

    'Website: http://demon.tw

    'Date: 2011/6/2

    path = BrowseForFile()

    If path <> "" Then WScript.Echo path

    原文:http://demon.tw/programming/vbs-open-file-dialog.html相关阅读:

    基于Jquery的标签智能验证实现代码

    三种禁用FileSystemObject组件的方法

    应用技巧:CSS特殊选择符伪类

    php下使用iconv需要注意的问题

    JSP 动态树的实现

    phpcms标签模板及专题模板的制作

    用PHP生成PDF文件 with FPDF

    Ajax的六个误区

    Linux环境Centos下安装mrtg配置SNMP

    WordPress 常用的Ping List

    DOM Scripting中的图片切换[兼容Firefox]

    JS写的数字拼图小游戏代码[学习参考]

    php 函数使用方法与函数定义方法

    jquery随意添加移除html的实现代码

    展开全文
  • 大家肯定想让自己的文件喊你的名字等等,下面,我就告诉你怎么搞!...打开,就可以弹出对话框,OK了! 你肯定想让他询问你的名字,现在我也告诉你! 输入: name=inputbox("请输入你的名字","提示") msgbo...
  • 今天会讲到,怎样写一个程序,点击运行后,让它弹出一个对话框,并提示用户“你好,我是编了个程的苏苏姐。”。首先,我们并不急于写代码。先想想,我们用中文描述,表示一个人说话,是怎么表示。苏苏姐:“大家好,...
  • VBS学习笔记(九) 系统对话框

    千次阅读 2014-07-17 22:18:44
    Vbs 脚本编程简明教程之十二—使用系统对话框VBS 脚本设计中,如果能使用 windows 提供的
  • 注意:上面是最小化的参数和参数初始化操作,如果不按照上面的进行操作,很有可能无法正常打开选择文件的界面。 请使用手机"扫一扫"x 转载于:https://www.cnblogs.com/leomoli/p/6899395.html
  • 修改Atom 隐藏.gitignore忽略的文件/文件夹的配置 参考链接:.gitignored files are hidden from tree view regardless of setting 假如Atom打开的文件夹有.gitignore 文件,会隐 ... KMP的模版实现(以hdu1711为例)...
  • VBS】实用链接指南一、创建最简单的窗口(一)教你用怎么vbs写一个简易的对话框 目的:Windows系统上用最简单的方法直接创建窗口等 一、创建最简单的窗口 (一)教你用怎么vbs写一个简易的对话框 ...
  • vbscript弹出选择文件夹的对话框

    千次阅读 2010-01-12 15:32:00
    VBS脚本设计中,如果能使用windows提供的系统对话框,可以简化脚本的使用难度,使脚本人性化许多,很少有人使用,但VBS并非不能实现这样的功能,方法当然还是利用COM对象。1、SAFRCFileDlg.FileSave对象:属性有:...
  • 写在前面 本文仅供学习交流,切勿用于非法用途!vbs是基于Visual Basic的脚本语言,全称是:...第一次知道vbs是因为当时网上流行着一个电脑性别测试:打开记事本输入CreateObject("SAPI.SpVoice").S...
  • VBS 显示“选择文件或文件夹”对话框的代码一、显示“选择文件”的对话框问:嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用?答:您好。|如果您使用的是 Windows ...
  • ofn.lpstrFilter = "HEX文件 (*.hex)\0*.HEX\0所有文件 (*.*)\0*.*\0"; ofn.nMaxFile = sizeof(szFileName); GetOpenFileNameA(&ofn); CoUninitialize(); return 0; } 原因是因为GetOpenFileName函数和COINIT_...
  • 运行vbs弹出cmd窗口的避免方法

    千次阅读 2019-04-24 20:51:59
    使用Cscript.exe运行vbs会弹出cmd窗口 避免方法: 管理员权限运行cmd,输入cscript.exe //H:WScript,将默认的脚本宿主改为 WScript.exe,即可解决。
  • VBS文件运行

    千次阅读 2016-06-17 10:29:29
    首先,我的vbs文件关联已经被“豪杰”夺取了。我双击Deploy.vbs就会打开豪杰,比较郁闷。但是我用了打开方式,试了浏览器、cmd,都无济于事。 今天,我想到这个问题后,就有想法去Microsoft的News Group上去问一...
  • 注意引用 microsoft office 10.0 (或以上) object library 在文件对话框对中返回选择一个文件夹的路径. Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set d
  • 在网上找了一段打开选择对话框的程序,程序如下SubOnLButtonDown(ByValItem,ByValFlags,ByValx,ByValy)DimCDG,WSH,FilePathSetCDG=CreateObject("MSCOMDLG.CommonDialog.1")CDG.MaxFileSize=260CDG.InitDir="F:\"'...
  • 在任何情况下,如果符合以下条件,请不要使用此脚本:-不了解内置的进程管理器:任务管理器-不知道如何在文本编辑器中打开.vbs文件-不知道造成损害的法律后果未经所有者同意而将其安装到计算机上-不知道此计算机...
  • 在窗体中画一个Text1输入框和一个Command1按钮,代码如下: Option Explicit Private Declare Function SHBrowseForFolder Lib “shell32.dll” Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long...
  • 使用vbs脚本实现多条消息在活动对话框快速发送 应用:比如在QQ或者微信聊天窗口中连续快速发送消息 这次系统学习vbs是在某一次视频中看到了一个vbs的小应用,然后就来了兴趣去学了一下VBS,之前虽然也看到过但是...
  • 我将oType 设置为1,所以该文件夹成了task文件夹,此时双击打开是看不到其中的文件的。 这种情况可以通过rar压缩包浏览,将其中的desktop.ini文件删除,文件夹就会变成普通文件夹。 ww 这时就能打开文件夹看到其中...
  • 关不掉的对话框

    2021-07-25 03:35:33
    闲来无事,上网找了许多恶搞电脑的bat/vbs代码。网上资源很多,但是在这里呈现的都是经过博主亲身验证有效的代码。有一部分代码会被杀毒软件判断为木马或病毒,但是请放心,只是代码,并不是病毒。介意的朋友请自行...
  • VBS操作Excel文件的保存

    千次阅读 2009-11-13 22:59:19
    Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open ("G:\test.xls") intRow = 1 strDN = "...Do Until objExcel.Cells(intRow,1).Value = &...
  • 当你打开从网上下载好的安装程序时会出现标题为安全警告的界面,每次都是这样,很是烦人,那有没有办法去掉这个提示框,答案是有的,接下来请看小编教您如何取消打开文件的安全警告烦人的提示框?一、组策略法单击...
  • Vbs COM之打开/保存文件脚本代码您先把如下的代码复制,然后保存为FileSave.vbs,双击打开,您看到了什么呢?复制代码 代码如下:Set objDialog = CreateObject("SAFRCFileDlg.FileSave")Set fso = CreateObject(...
  • 首先,好久不用win10系统了,昨晚对系统清理了一下垃圾,可能时误删了什么文件吧,今天在打开Vivado HLS 软件的时候,就出现了 “没有扩展文件“.vbs”的脚本引擎”这种错误提示,一脸懵逼,也看了很多网上的解决...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,595
精华内容 1,438
关键字:

vbs打开文件对话框