batch file

[Arnoud]

Omdat er omder jullie een aantal specialisten zitten op dit gebied...

 

Ik ben bezig met een bach file om FMP te installeren.

De batch file roept tevens een VB script aan om een snelkoppeling op

het buroblad te plaatsen. Dit werkt perfect.

Alleen wil ik tevens een snelkoppeling in de Program Files van mijn

Start Menu zetten.

Dit wil maar niet lukken, omdat ik het pad niet weet.

 

Ter verduidelijking: op mijn desktop bevindt zich folder INSTALL met daarin MyShortcurt.lnk en de shortcut wil ik ook terugzien in mijn startmenu.

 

Heeft iemand de oplossing (code)?

[AvD]

Is dit het pad dat je nodig hebt?

 

C:\Documents and Settings\AvD\Start Menu\Programs

[AvD]

En je desktop staat hier:

C:\Documents and Settings\AvD\Desktop

[Arnoud]

Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Relaties.lnk") 

 

Dit is de regel uit het VB scriptje die de shortcut op de Desktop zet.

Ik zoek dus een universele code (CMD of VB) die op elke Windoos draait.

 

Wellicht moet ik het zoeken in een CMD die er ongeveer zo uit ziet:

copy Install\MyShortcut.lnk userprofile%"\StartMenu\Programma's\"

 

Ondanks veel spitten op het net heb ik nog geen werkende code kunnen vinden.

[wmoerdijk]

Onder XP NL:

 

copy Install\MyShortcut.lnk "%userprofile%\Menu Start\Programma's\MyShortcut.lnk"

[Arnoud]

Dit werkt prima!

Met dit voorbeeld kan ik nu ook op de desktop kopieren.

 

Ik maak nog steeds dankbaar gebruik van een VB script om de shortcuts te maken (http://www.clarify.net/viewtopic.php?t=558&start=15&postdays=0&postorder=asc&highlight=batch):

 

Dim WSHShell 
Dim MyShortcut, MyDesktop, DesktopPath 

Set WSHShell = WScript.CreateObject("WScript.Shell") 
DesktopPath = WSHShell.SpecialFolders("Desktop") 


'----- locatie en naam van de shortcut 

Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Relaties.lnk") 


'----- locatie en naam van de applicatie 

MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings ("C:\PROGRAM FILES\RELATIES\Relaties.fp7") 



'----- de werkdirectory (van je aan te roepen file) 

MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("C:\PROGRAM FILES\RELATIES") 


'----- window 1=normal, 2=minimised, 3=maximised 

MyShortcut.WindowStyle = 1 


'----- locatie en naam van het icoontje voor je shortcut 

MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings ("C:\PROGRAM FILES\RELATIES\INSTALL\RELATIESLOGO.ico, 0") 
MyShortcut.Save

 

Welke twee regels moet ik toevoegen om de shortcut ook in mijn startmenu te plaatsen?

 

Bij voorbaat heel hartelijk dank.