China DOS Union

set args = WScript.Arguments

linkname = args(0)

set wshshell = CreateObject("WScript.Shell")

set scut = wshshell.CreateShortcut(linkname)

set fs = CreateObject("Scripting.FileSystemObject")

folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"

wshshell.Run(folder)

This is a VBScript code. There is a BUG in it. The attached file is the installation and uninstallation BAT, which includes the VBScript code.

This is a program to add the right-click "Open containing folder" to a shortcut. The function is to open the corresponding directory of the shortcut when right-clicking.

It is similar to Right-click Properties - Find Target, but the difference is that you don't need to view the properties, and Find Target selects the target, while Open containing folder directly opens the corresponding folder of the shortcut without selecting the target.



The problem I raised is that there is a BUG when this VBS runs. In fact, this VBS is widely spread on the Internet. I accidentally discovered it and hope brothers can solve the problem and fix the BUG to improve the program.

For example: I have a Maxthon shortcut on the desktop, and the corresponding program is E:\Maxthon\Maxthon.exe
If there is also the program E:\Maxthon.exe (that is, the file maxthon.exe exists in the E drive)

Then when right-clicking the maxthon to open the containing folder, it is running E:\Maxthon.exe. Of course, if there is no E:\Maxthon.exe, the function can be realized. This is the BUG.


Hope everyone can fix it, so that even if the file E:\Maxthon.exe exists, it can still enter the corresponding folder of the shortcut normally.

[ Last edited by kidzgy on 2009-8-7 at 08:56 ]

Another code:
(Source: http://bbs.360safe.com/viewthread.php?tid=99058&page=1#pid352070)

dim ws,objArgs,strPath

Set objArgs = WScript.Arguments

if objArgs.Count>0 then

    strPath=mid(objArgs(0),instr(objArgs(0),"/")+1,len(objArgs(0))-instr(objArgs(0),"/"))

end if

set ws=CreateObject("Wscript.Shell")

ws.run "Explorer /select, " & GetTargetPath(strPath)



Function GetTargetPath(LinkName)

  On Error Resume Next

  Dim Shortcut

  Set Shortcut = CreateObject("Wscript.Shell").CreateShortcut(LinkName)

  GetTargetPath = Shortcut.TargetPath

  Shortcut.Save

  Set Shortcut = Nothing

End Function

Thank you very much for your code. Your function is exactly equivalent to finding the target.

And what I need is to open the path where the shortcut is located without selecting the target, just like clicking the mouse once. There is the "Find Target", what I want is not, and it is best to maximize the window.

Sweat～

Combine below...

wshshell.Run(folder)
changed to
wshshell.Run("explorer " & folder)

Wow, no way, it's that simple.

Thanks a lot. Then the new code is

set args = WScript.Arguments

linkname = args(0)

set wshshell = CreateObject("WScript.Shell")

set scut = wshshell.CreateShortcut(linkname)

set fs = CreateObject("Scripting.FileSystemObject")

folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"

wshshell.Run("explorer " & folder) 

I don't know what benefits there are if it's not selected...

It's like this. If there are a lot of files in a folder and you select one, it will go to that file, but the scroll bar is not at the top. If you don't select, it's like double-clicking the folder and just entering, which is a faster way to browse.

By the way, a new problem has emerged. When there are double quotes at the beginning and end of the "Target" and "Start in" properties of the shortcut, the location cannot be opened. Then, how should this be solved?

folder = """" & fs.GetParentFolderName(scut.TargetPath) & """"

Because you added it again...

First, check if there are quotes already. If not, add them

The code modified by floor 5 pops up such a prompt. Then how to modify it?



[ Last edited by kidzgy on 2009-8-6 at 08:18 ]

I tried to subtract one double quote or two from both the beginning and the end as you said, but it didn't work, and there's still such a prompt.

wshshell.Run(folder)
Before
msgbox folder you'll know your modification is wrong

After I added the msgbox folder, running without double quotes pops up with double quotes at the beginning and end.

But running with double quotes at the beginning and end is still the prompt from post 10. The reason might be ending with.lnk or.url.

Thus, the problem is how to make VBS support shortcuts with double quotes.



[ Last edited by kidzgy on 2009-8-6 at 08:20 ]

Don't add quotation marks to the ones that already have quotation marks...

Please provide the content that needs to be translated, including the Chinese text and any relevant code blocks if applicable. Currently, the input only has the Chinese request without the specific code or content from the 5th floor that needs to be translated. Please provide the full relevant content for translation.