Board logo

标题: [问题求助] [已解决]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 行修改为:
  1. 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行为
  1. sFilterFile = "ppt"
复制代码
2. 修改20、21、22行为
  1. sDesFolder = "d:\课件"
复制代码
3. 修改45行为
  1. 'fso.DeleteFile oFile, True
复制代码
4. 修改50行为
  1. 'Msgbox "完成!" & String(70,Chr(32)), vbSystemModal+vbInformation, sAppTitle
复制代码

作者: 志宇    时间: 2015-5-23 15:03

回复 10# yu2n


    谢啦~~




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2