标题: [问题求助] [已解决]vbs获取快捷方式中各个ppt路径并复制到指定文件夹 [打印本页]
作者: 志宇 时间: 2015-5-22 21:27 标题: [已解决]vbs获取快捷方式中各个ppt路径并复制到指定文件夹
本帖最后由 志宇 于 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
VBS 提取最近打开的文件、删除“最近访问的位置”中失效的快捷方式 by yu2n
http://www.bathome.net/viewthread.php?tid=35787&extra=
作者: 志宇 时间: 2015-5-23 13:36
本帖最后由 志宇 于 2015-5-23 13:38 编辑
谢谢,可是运行到一半就出错了,说是在“ '打开最近访问 ”这一行 系统找不到指定的文件 代码:80070002 源:(null)
作者: yu2n 时间: 2015-5-23 13:48
回复 3# 志宇
XP? 我是Win7测试,可能路径有空格:
将 17 行修改为:- wso.Run "explorer /e," & sSrcFolder
复制代码
原链接已更新。
作者: 志宇 时间: 2015-5-23 13:52
嗯嗯,可以用了,非常感谢你的帮助
作者: pcl_test 时间: 2015-5-23 14:07
问题得到解决后请在标题最前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html
作者: 志宇 时间: 2015-5-23 14:08
请问能不能把它改为 整个运行过程中不出现窗口: 1. 要保存的文件类型为ppt 2.保存路径为 D:\课件 3.不要删除失效的快捷方式
作者: 志宇 时间: 2015-5-23 14:23
回复 4# yu2n
请问能不能把它改为 整个运行过程中不出现窗口: 1. 要保存的文件类型为ppt 2.保存路径为 D:\课件 3.不要删除失效的快捷方式
作者: 志宇 时间: 2015-5-23 14:58
不用了,问题已解决
作者: yu2n 时间: 2015-5-23 14:59
回复 8# 志宇
1. 修改12、13行为复制代码
2. 修改20、21、22行为复制代码
3. 修改45行为- 'fso.DeleteFile oFile, True
复制代码
4. 修改50行为- 'Msgbox "完成!" & String(70,Chr(32)), vbSystemModal+vbInformation, sAppTitle
复制代码
作者: 志宇 时间: 2015-5-23 15:03
回复 10# yu2n
谢啦~~
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |