Hallo,
ich suche eine Routine mit der ich von einer Datei eine Verknüfung in ein beliebiges Verzeichnis (bei mir: Autostart-Verz) erstellen kann.
Gehts das irgendwie mir der rundll?
ich habe nämlich das hier gefunden
appwiz.cpl,NewLinkHere
frolic Wucht „Mit VB6 Verknüpfung erstellen“
Also, ich habe das hier im Ordner "C:\WINDOWS\\SAMPLES\\WSH" gefunden (die Datei heißt "Shortcut.vbs"):
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim MyShortcut, MyDesktop, DesktopPath
' Read desktop path using WshSpecialFolders object
DesktopPath = WSHShell.SpecialFolders("Desktop")
' Create a shortcut object on the desktop
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Shortcut to notepad.lnk")
' Set shortcut object properties and save it
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
MyShortcut.Save
Ich hoffe du kannst es auseinanderklmüsern. Es ist in VBScript geschrieben und müsste auch mit VB6.0 funzen, da beider sehr verwand sind.
Wucht frolic „Also, ich habe das hier im Ordner C: WINDOWS SAMPLES WSH gefunden die Datei...“
vielen dank -
es sieht so aus als könnte das klappen ich hab nur noch ein problem:
um den code zu benutzen muss ich in vb das steuerelement wshom.ocx benutzen (jedenfalls glaube ich das) allerdings kann ich die ocx datein nicht öffnen -- das gleiche problem taucht bei einem freund auch genauso auf --
kannst du mir da vielleicht weiterhelfen
danke
