本帖最后由 apang 于 2014-9-19 19:22 编辑
- strPath = Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\")-1)
- Set objShell = CreateObject("Shell.Application")
- Set objFolder = objShell.Namespace(strPath)
- Set fso = CreateObject("Scripting.FileSystemObject")
-
- For Each file in fso.GetFolder(strPath).Files
- If LCase(Right(file, 4)) = ".lnk" Then
- Set objShellLink = objFolder.ParseName(file.Name).GetLink
- objShellLink.ShowCommand = 3
- objShellLink.Save
- End If
- Next
-
- MsgBox "OK"
复制代码
|