[已解决]vbs获取快捷方式中各个ppt路径并复制到指定文件夹

志宇 · 发表于 2015-5-22 21:27:45

本帖最后由志宇于 2015-5-23 14:59 编辑

请问要怎么修改这些代码？
Set cik = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(cik.SpecialFolders("recent"))
Set fc = f.Files
For Each fs in fc
if instr(LCase(fs.name),"ppt") then
if Right(LCase(fs.name),4)=".lnk" then a = fs.name
end if
Next
set Shortcuts = cik.CreateShortcut(QQLNK)
a = Shortcuts.TargetPath
a = mid(QQpath,1,InStrRev(a,"\"))
fso.CopyFile a,"c:\",True
WScript.Quit

yu2n · 发表于 2015-5-23 02:31:05

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

志宇 · 发表于 2015-5-23 13:36:24

本帖最后由志宇于 2015-5-23 13:38 编辑

谢谢，可是运行到一半就出错了，说是在“ '打开最近访问 ”这一行系统找不到指定的文件代码：80070002 源：（null）

yu2n · 发表于 2015-5-23 13:48:06

回复 3# 志宇

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

将 17 行修改为：

wso.Run "explorer /e," & sSrcFolder

复制代码

原链接已更新。

志宇 · 发表于 2015-5-23 13:52:53

嗯嗯，可以用了，非常感谢你的帮助

pcl_test · 发表于 2015-5-23 14:07:28

问题得到解决后请在标题最前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html

志宇 · 发表于 2015-5-23 14:08:26

请问能不能把它改为整个运行过程中不出现窗口： 1. 要保存的文件类型为ppt 2.保存路径为 D:\课件 3.不要删除失效的快捷方式

志宇 · 发表于 2015-5-23 14:23:30

回复 4# yu2n

请问能不能把它改为整个运行过程中不出现窗口： 1. 要保存的文件类型为ppt 2.保存路径为 D:\课件 3.不要删除失效的快捷方式

志宇 · 发表于 2015-5-23 14:58:22

不用了，问题已解决

yu2n · 发表于 2015-5-23 14:59:24

回复 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

复制代码

志宇 · 发表于 2015-5-23 15:03:00

回复 10# yu2n

谢啦~~

		自动登录	找回密码
密码			注册

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

[问题求助] [已解决]vbs获取快捷方式中各个ppt路径并复制到指定文件夹

评分

评分

浏览过的版块