[已解决]vbs获取快捷方式中各个ppt路径并复制到指定文件夹 - VBS求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 5 Rank: 5

1楼 跳转到 »

发表于 2015-5-23 02:31 | 显示全部帖子

VBS 提取最近打开的文件、删除“最近访问的位置”中失效的快捷方式 by yu2n
http://www.bathome.net/viewthread.php?tid=35787&extra=

1 评分人数

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/

Rank: 5 Rank: 5

2楼

发表于 2015-5-23 13:48 | 显示全部帖子

回复 3# 志宇

XP？我是Win7测试，可能路径有空格：

将 17 行修改为：

wso.Run "explorer /e," & sSrcFolder
复制代码

原链接已更新。

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/

Rank: 5 Rank: 5

3楼

发表于 2015-5-23 14:59 | 显示全部帖子

回复 8# 志宇

1. 修改12、13行为

sFilterFile = "ppt"
复制代码

2. 修改20、21、22行为

sDesFolder = "d:\课件"
复制代码

3. 修改45行为

'fso.DeleteFile oFile, True
复制代码

4. 修改50行为

'Msgbox "完成！" & String(70,Chr(32)), vbSystemModal+vbInformation, sAppTitle
复制代码

1 评分人数

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考