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

[问题求助] [已解决]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

回复 10# yu2n


    谢啦~~

TOP

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

评分人数

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

TOP

不用了,问题已解决

TOP

回复 4# yu2n


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

TOP

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

TOP

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

TOP

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

TOP

回复 3# 志宇

XP? 我是Win7测试,可能路径有空格:

将 17 行修改为:
  1. wso.Run "explorer /e," & sSrcFolder
复制代码
原链接已更新。
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

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

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

TOP

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

评分人数

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

TOP

返回列表