网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月08日
漏签
0
天
vbs吧
关注:
18,273
贴子:
104,623
看贴
图片
吧主推荐
游戏
19
回复贴,共
1
页
<<返回vbs吧
>0< 加载中...
VBS打开选择文件对话框(Windows 7)【最简化 一句代码】
只看楼主
收藏
回复
nefu_20061617
铁杆吧友
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
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
nefu_20061617
铁杆吧友
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
去掉4个单引号
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
nefu_20061617
铁杆吧友
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
再修改一下,解决点“打开”按钮之后,Msgbox之前会弹出mshta窗口闪一下的问题。
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
8888888888q1
知名人士
10
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
代码很厉害^-^以前我用IE对象做了一个代码就长得多了。。
另外想请教楼主一个问题:
GetStandardStream方法是干什么的呢?我查了一下是返回TextStream对象,可是测试又貌似只能在cscript下执行,所得的stdout,stdin,stderr貌似和wscript.stdout,in,err没区别?和文件没关啊?为什么fso里会有这么一个方法呢?
卵石之美
人气楷模
12
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
好方法!
测试Windows 10 可行,其实我也是用IE解决的……
狗头人
核心吧友
7
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
异常强悍的文件选择!!!! 力顶
radishhead
初级粉丝
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
楼主能回答我一个问题吗?
我找遍千山万水,都没办法找到,可以实现在win7以上的64位系统的
VBS 多文件选择对话框。。。
楼主的代码也只能选择单文件。原代码在这里:
http://www.robvanderwoude.com/vbstech_ui_fileopen.php
http://www.jb51.net/article/26390.htm
("UserAccounts.CommonDialog") 和("MSComDlg.CommonDialog")
多文件选择对话框只找到这两个,都只能在32位下使用。
一到64位,就不行了。
其它的都是只能单文件选择。
请有知情的,告之一二。。。真的是找遍千山万水,无解。
Keeper丶Time
初级粉丝
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
需要哪些方面的知识才可以写"(ºДº*)
love大侠阿木
初级粉丝
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
选择后的文件路径怎么调用?
哦inglan
初级粉丝
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
楼主还在么
我初学者能很感谢楼主的帖子
如何指定文件路径,选择文件呢
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示