Help ! Howto auto input drive target

[Priorityboy]

I wold like to set this command ( oShellLink.TargetPath = ) able to identify and search "Drive and Folder" automatically by itself.

For example command

set WshShell = WScript.CreateObject("WScript.Shell")
strDirectory = "MyApp"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strDirectory) Then
Else
Set objFolder = objFSO.CreateFolder(strDirectory)
End if

strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\MyApp\app.lnk")
oShellLink.TargetPath = "sPath & "\MyAppFolder\app.exee" 
oShellLink.IconLocation = "?:\MyAppFolder\app.exe"
oShellLink.WindowStyle = 1
oShellLink.Description = "Thankyou use"
oShellLink.WorkingDirectory = "?:\MyAppFolder\"
oShellLink.Save

"?" in the example command is the "drive" that will be searched, identified and verified automatically by the program

[mLipok]

Could you formulate your question again - but in a different way ?

btw.

Please read:   * How to post code on the forum *

set WshShell = WScript.CreateObject("WScript.Shell")
strDirectory = "MyApp"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strDirectory) Then
Else
Set objFolder = objFSO.CreateFolder(strDirectory)
End if

strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\MyApp\app.lnk")
oShellLink.TargetPath = sPath & "\MyAppFolder\app.exe" 
oShellLink.IconLocation = "?:\MyAppFolder\app.exe"
oShellLink.WindowStyle = 1
oShellLink.Description = "Thankyou use"
oShellLink.WorkingDirectory = "?:\MyAppFolder\"
oShellLink.Save

 

edit:
There was an error in this line:

oShellLink.TargetPath = "sPath & "\MyAppFolder\app.exee"

 

Edited May 24, 2016 by mLipok