- 帖子
- 10
- 积分
- 25
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2015-5-22
|
[问题求助] [已解决]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 |
|