'共10行 Set ws = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set desk=fso.GetFolder(ws.SpecialFolders("Desktop")) For Each fi In desk.Files Call shor(" 腾讯QQ.lnk "," c:\QQ.txt ")'腾讯QQ.lnk是要删除的快捷方式,QQ.txt是指定要复制的文件 Call shor(" 腾讯OO.lnk "," c:\OO.txt ")'腾讯OO.lnk是要删除的快捷方式,OO.txt是指定要复制的文件 Next Sub shor(ShortcutFile,copy_file) if fi.Name=ShortcutFile Then fi.Delete:fso.CopyFile copy_file,desk&"\" End Sub