本帖最后由 pcl_test 于 2016-1-4 23:56 编辑
回复 33# nevergiveup520
保存为vbs运行,出现提示框,点确定即可- Set fso = CreateObject("scripting.filesystemobject")
- Set objws = wscript.CreateObject("Wscript.Shell")
- desktop = objws.SpecialFolders("Desktop")
- t = "桌面:"& desktop& vbCrLf &"VBS所在路径:"& objws.CurrentDirectory & vbCrLf
- Set Folder = fso.GetFolder(objws.CurrentDirectory)
- Set Files = Folder.Files
- For Each f In Files
- Ext = LCase(fso.GetExtensionName(f))
- IF Ext = "exe" Then
- lnk = Desktop & "\" & Left(f.Name, InStrRev(f.Name, ".")-1) & ".lnk"
- Set objLink = objws.CreateShortcut(lnk)
- objLink.TargetPath = f
- objLink.Save
- msgbox t & lnk & vbCrLf &"程序所在路径:" &f
- End If
- Next
复制代码
|