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

志宇

请问要怎么修改这些代码？
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

志宇

回复 10# yu2n


    谢啦~~

yu2n

回复 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
复制代码

志宇

不用了，问题已解决

志宇

回复 4# yu2n


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

志宇

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

pcl_test

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

志宇

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

yu2n

回复 3# 志宇

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

将 17 行修改为：

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

原链接已更新。

志宇

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

yu2n

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