Opret genvej på skrivbordet?

http://www.knowdotnet.com/articles/createshortcutondesktop.html

Har jeg set, men så snart jeg importer "Imports IWshRuntimeLibrary", går det galt med resten af min Applikation...

"Error    1 'File' is ambiguous, imported from the namespaces or types 'System.IO, IWshRuntimeLibrary'."

og du har tilføjet reference til Windows Scripting Host Object Model ?

Jepper

System.IO og IWshRuntimeLibrary har begge en metode der hedder file.
så hvis der bare står file ved den ikke hvilken der skal vælges.
det kan løses ved at droppe imports IWshRuntimeLibrary og angive IWshRuntimeLibrary.<metodenavn> hvor det er påkrævet.

Hvordan søren gør jeg det?

angive IWshRuntimeLibrary.<metodenavn>

Den går galt her:
DesktopDir= CType(IWshRuntimeLibrary.WshShell.SpecialFolders.Item("Desktop"), String))
            shortCut = CType(IWshRuntimeLibrary.WshShell.CreateShortcut(DesktopDir & "\MyNewShortcut.lnk"), IWshRuntimeLibrary.WshShortcut)

Det her er understreget med blåt:
IWshRuntimeLibrary.WshShell.SpecialFolders
IWshRuntimeLibrary.WshShell.CreateShortcut

jeg har rettet lidt i functionen
den kan kompile og oprette shortcut:
  Public Function CreateShortCutOnDesktop(ByVal userID As String, _
    ByVal passWord As String) As Boolean
    Try
      Dim wShell As New IWshRuntimeLibrary.WshShellClass()
      Dim DesktopDir As String = _
        CType(wShell.SpecialFolders.Item("Desktop"), String)
      Dim shortCut As IWshRuntimeLibrary.IWshShortcut

      ' short cut files have a .lnk extension
      shortCut = CType(wShell.CreateShortcut(DesktopDir & _
        "\MyNewShortcut.lnk"), _
          IWshRuntimeLibrary.IWshShortcut)

      ' set the shortcut properties
      With shortCut
        .TargetPath = _
          System.Reflection.Assembly.GetExecutingAssembly.Location()
        .WindowStyle = 1
        .Description = "Run Typist Summary"
        .WorkingDirectory = DesktopDir
        ' the next line gets the first Icon from the executing program
        .IconLocation = _
          System.Reflection.Assembly.GetExecutingAssembly.Location() & _
          ", 0"
        ' the next line sets the userID and passWord into the shortcut
        ' as arguments
        ' which will be read from the command line.
        .Arguments = userID & ", " & passWord
        .Save() ' save the shortcut file
      End With
      Return True
    Catch ex As System.Exception
      ' add your error handling here, if any
      Return False
    End Try
  End Function

Ligger du ikke lige et svar?

jo da