如何批量复制同一目录下的不同文件夹中的大量不同快捷方式的源文件?
现有大量因为工程需要而整理的装有快捷方式的文件夹。如何能够直接复制这些文件夹里快捷方式的源文件,而不需要每一个都“打开文件所在的位置”,从而提高复制拷贝的效率?
网友林语风给出了一个解答:
可以用VBS复制,给个参考代码,比如要将Admin用户桌面快捷方式所指的文件或目录,复制到“D:\目标路径”。
targetfolder="d:\目标路径\"ScanLnk("c:\users\Administrator\desktop")Function ScanLnk(Path) Set Fso=CreateObject("Scripting.FileSystemObject") Set AllFiles =Fso.GetFolder(Path).Files For Each File In AllFiles If LCase(Right(File.Path,4))=".lnk" Then LnkPath=CreateObject("Wscript.Shell").CreateShortcut(File.Path).TargetPath Msgbox LnkPath If(Fso.FolderExists(LnkPath)) Then Fso.GetFolder(LnkPath).copy(targetfolder) End If If(Fso.FileExists(LnkPath)) Then Fso.GetFile(LnkPath).copy(targetfolder) End If End If NextEnd Function 用ahk实现的方法是将快捷方式的文本内容,逐一读取,然后复制到一个固定的文件夹内容里。具体参考ahk帮助文件。
赞 (0)