4001
社区成员
- 全部
VBS中如何产生和双击文件一模一样的效果
---------------------------------------------------------------------
双击的时候：如果是未知类型的文件，会跳出“请选择打开方式“对话框
---------------------------------------------------------------------
用objWShell.Run "rundll32.exe url.dll" & ",FileProtocolHandler " & file, 1, False,如果是未知类型的文件，没反应。
---------------------------------------------------------------------
请高手检验一下，在D:盘新建一个 1.abc,然后
执行 objWShell.Run "rundll32.exe url.dll" & ",FileProtocolHandler " & "d:\1.abc", 1, False 没反应。而双击就不同，会跳出“请选择打开方式“对话框。在一个涉及到文件管理程序中用到，很是令我头疼，请赐教，谢谢了。
双击的时候：如果是未知类型的文件，会跳出“请选择打开方式“对话框
---------------------------------------------------------------------
用objWShell.Run "rundll32.exe url.dll" & ",FileProtocolHandler " & file, 1, False,如果是未知类型的文件，没反应。
---------------------------------------------------------------------
请高手检验一下，在D:盘新建一个 1.abc,然后
执行 objWShell.Run "rundll32.exe url.dll" & ",FileProtocolHandler " & "d:\1.abc", 1, False 没反应。而双击就不同，会跳出“请选择打开方式“对话框。在一个涉及到文件管理程序中用到，很是令我头疼，请赐教，谢谢了。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
Microogle 2008-11-30
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.NameSpace("d:\")
oDir.Items.Item("test.xxx").Verbs.Item(0).DoIt
Microogle 2008-11-30
假定在桌面上存在Test.xxx:
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.NameSpace(0)
For Each x In oDir.Items
if "test.xxx" = LCase(x.Name) Then Set oFile = x
Next
oFile.Verbs.Item(0).DoIt
blackfire9 2008-11-30
有三个方法解决你的问题：
1，通过文件扩展名检查注册表，如果没有关联程序则调用“打开方式”对话框
2，在.RUN前先On Error Resume Next 然后捕捉 Err 对象的 Number 属性代码，如果是无关联错误就调用“打开方式”对话框。
3，呵呵，最简单的方法：objWShell.Run "cmd /c d:\1.abc",0,true
1，通过文件扩展名检查注册表，如果没有关联程序则调用“打开方式”对话框
2，在.RUN前先On Error Resume Next 然后捕捉 Err 对象的 Number 属性代码，如果是无关联错误就调用“打开方式”对话框。
3，呵呵，最简单的方法：objWShell.Run "cmd /c d:\1.abc",0,true
cyy_041 2008-11-25
1楼能具体说一下吗？mark是怎么回事
android2008 2008-11-25
mark
cyy_041 2008-11-25
回5楼
是的，首先打开文件，如果是没有注册默认打开方式的文件时弹出打开方式对话框。
难点是打开文件时如何判断有没有注册默认打开方式。
如何弹出打开方式对话框我已知道。rundll32.exe shell32.dll OpenAs_RunDLL "file"
是的，首先打开文件，如果是没有注册默认打开方式的文件时弹出打开方式对话框。
难点是打开文件时如何判断有没有注册默认打开方式。
如何弹出打开方式对话框我已知道。rundll32.exe shell32.dll OpenAs_RunDLL "file"
pzhuyy 2008-11-25
一般会提示80070483错误!
没有应用程序与此操作的指定文件有关联
你如果要用打开方式的话,你可以把这些个未指定关联的后缀名全部在注册表中与你想选择的打开方式关联起来:)
没有应用程序与此操作的指定文件有关联
你如果要用打开方式的话,你可以把这些个未指定关联的后缀名全部在注册表中与你想选择的打开方式关联起来:)
pzhuyy 2008-11-25
你是想实现用vbs运行没有注册默认打开方式的文件时弹出打开方式对话框?
cyy_041 2008-11-25
在本论坛中有类似的问题，参照http://topic.csdn.net/t/20050114/17/3726738.html
但上面这个问题是用VB解决的，我现在在VBS中有同样的问题，在VBS中应该如何解决
但上面这个问题是用VB解决的，我现在在VBS中有同样的问题，在VBS中应该如何解决
Dogfish 2008-11-25
题目不是很明白。
Vbs脚本编程 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法...
为什么我用C#创建的bat文件，VBS文件双击都不能正常执行？？但是手敲的一模一样的脚本却可以执行？ 如题，我之前用记事本手敲了一个VBS文件和bat文件，双击都能正常执行，然后我用File类创建VBScript文件和bat文件，内容和我之前手敲的一模一样，但是bat文件闪退，VBS文件报错，总之都不能执行，而且我发现用C#创建...
Vbs脚本经典教材 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法...
vbs Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由...
VBS了解一下呗（有没有用学了才知道） VBS了解一下呗 标签（空格分隔）： 脚本语言 本文摘自（https://www.jb51.net/article/53280.htm） 这里推荐两个介绍基础函数的地址，然后大家可以多看下别人的代码，多练习，多写。 - [VBScript VBS用户手册]...
Vbs脚本 Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由...
VBS教程 原文： http://www.cnblogs.com/veggiegfei/p/5943260.html 感谢原文链接的作者搜集整理Vbs是一种Windows脚本，它的全称是:Microsoft Visual ...是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由W...
vbs基础教程 VBS教程 Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，...
Vbs 脚本编程简明教程之一 在 Windows 中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动 计算机第一件事情就是打开 WORD ，切换到你喜爱的...
[转帖]VBS 教程 VBS教程 http://www.cnblogs.com/veggiegfei/p/5943260.html 原作者真牛B 网上找了好多 没找到 没想到整理的这么好, 转来学习一下 改天打印出来. Vbs是一种Windows脚本，它的全称是:Microsoft ...
vbs教程 Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由...
VBS看看就会 Vbs脚本经典教材(最全的资料还是MSDN) ...在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启...
vbs学习经典教程 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法...
Linux学习笔记---记一次rootfs根文件系统下载时掉进的大坑 俗话说要想技术好，踩坑少不了。技术的好坏和踩坑的多少基本是成正比的。这次就大大的提升了一次技术（大大的踩了一次坑）。...跟着文档一步步从uboot 到设备树到Linux内核移植，最后到根文件系统移植，都比较顺利...
Vbs脚本经典教材(转) 在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法...
敏捷软件开发－原则、模式与实践.pdf 本书讲授了一些原则、模式以及实践，它们可以帮助软件开发人员在追求美的程序、设计以及团队的道路上迈出第一步。本书探索了基本的设计原则，软件设计结构的通用模式以及有利于团队融为一个有机整体的一系列实践。本书包含了许多代码，仔细研读这些代码是学习本书所教授的原则、模式及时间的最有效方法
juniper路由器学习资料 从网络搜集的关于juniper的资源，包含
fru-mx960-acoustic.pdf
fru-mx960-cable-manager.pdf
JNCIA_学习指南中文.pdf
Juniper_EX交换机中文操作手册V1.0.pdf
Juniper_MX_路由器介绍.pdf
Juniper_MX960配置模板v1.2.docx
Juniper_netscreen.ppt
Juniper路由器（M10i）配置手册.pdf
Juniper路由器命令行配置手册.pdf
Juniper路由器实验手册.pdf
junos-cli.pdf
junos-release-notes-13.3.pdf
mx960-hwguide.pdf
mx960-install-quick-start.pdf
MX960操作维护介绍.pdf
MX960路由器操作手册.pdf
mx-series-line-card-guide.pdf
中国象棋人工智能论文集 这是本人收集的有关中国象棋人工智能的论文集
2009计算机博弈专辑文章.pdf
Computer Games Are an Efficient Tool for Event Game Theory.pdf
MINORS HASH TABLE IN COMPUTER CHINESE CHESS.pdf
中国象棋机器博弈的时间自适应分配策略研究.pdf
中国象棋计算机博弈中搜索算法的研究与改进.pdf
中国象棋计算机博弈关键技术分析.pdf
人工神经元网络结合TD(λ)算法在中国象棋机器博弈中的应用.pdf
博弈论的里程碑成果与局限性分析.pdf
基于剪枝策略的中国象棋搜索引擎研究.pdf
基于机器博弈的作战模拟系统探讨.pdf
大师级象棋机器人研究与开发.pdf
机器博弈研究面临的各种挑战.pdf
棋牌游戏与事件对策.pdf
积极开展民间棋类的计算机博弈活动.pdf
解剖大象的眼睛-中国象棋开发.pdf
计算机博弈原理与方法学概述.pdf
EXCEL VBA编程（excel办公高手必经之路） 宏基础
VBA编程基础
常用语句（分支、循环语句的基础及应用）
VBA结合工作表的函数功能的应用等 如果您会了所有的excel技能都不能解决工作的数据问题。那请选择VBA技术完成。本季主要讲解关于VBA的基础知识。为走向更高阶的excel技术打下基础。为更高效的办公打下基础。
