lav genvej

Du skal bruge noget shell, fåk hvor er det ærgeligt jeg ikke er hjemme og kan c/p koden, men jeg skal se hvad jeg kan gøre :).

tjek dette, og se om du ikke kan bruge det tdau, siger i dette spm. med ShellExecute:
http://www.eksperten.dk/spm/35670

Her er lidt kode som kan oprette en genvej:

Før denne kode kan virke skal du i visual basic oprette en reference til Windows Script Host Object Model (WSHOM.OCX).

Private Sub Command1_Click()
    Dim objShell As IWshShell_Class
    Dim objShortcut As IWshShortcut_Class
    Dim FolderItem As Variant
    Dim lsPath As String
    Dim lsShortCut As String
    Dim lsURL As String
    Dim lsConfigFileName  As String
    Dim nType As Variant
   
    Set objShell = New IWshShell_Class
   
    lsShortCut = App.Title
    lsPath = App.Path & \"\\\" & App.EXEName
   
    For Each FolderItem In objShell.SpecialFolders
        If Mid(FolderItem, Len(FolderItem) - 6, 7) = \"Desktop\" And _
          InStr(1, FolderItem, \"All Users\") = 0 And _
          InStr(1, UCase(FolderItem), \"ADMINISTRATOR\") = 0 Then
                Set objShortcut = objShell.CreateShortcut(FolderItem & _
                                                \"\\\" & _
                                                lsShortCut & _
                                                \".lnk\")
                objShortcut.TargetPath = lsPath
                objShortcut.Arguments = lsURL & \" \" & _
                                  lsConfigFileName & \" \" & _
                                  CStr(nType)
            objShortcut.Save
        End If
    Next
End Sub

Her er lidt kode som kan oprette en genvej:

Før denne kode kan virke skal du i visual basic oprette en reference til Windows Script Host Object Model (WSHOM.OCX).

Private Sub Command1_Click()
    Dim objShell As IWshShell_Class
    Dim objShortcut As IWshShortcut_Class
    Dim FolderItem As Variant
    Dim lsPath As String
    Dim lsShortCut As String
    Dim lsURL As String
    Dim lsConfigFileName  As String
    Dim nType As Variant
   
    Set objShell = New IWshShell_Class
   
    lsShortCut = App.Title
    lsPath = App.Path & \"\\\" & App.EXEName
   
    For Each FolderItem In objShell.SpecialFolders
        If Mid(FolderItem, Len(FolderItem) - 6, 7) = \"Desktop\" And _
          InStr(1, FolderItem, \"All Users\") = 0 And _
          InStr(1, UCase(FolderItem), \"ADMINISTRATOR\") = 0 Then
                Set objShortcut = objShell.CreateShortcut(FolderItem & _
                                                \"\\\" & _
                                                lsShortCut & _
                                                \".lnk\")
                objShortcut.TargetPath = lsPath
                objShortcut.Arguments = lsURL & \" \" & _
                                  lsConfigFileName & \" \" & _
                                  CStr(nType)
            objShortcut.Save
        End If
    Next
End Sub

Hvis genvejen skal oprettes på skrivebordet i en dansk windows verison skal koden rettes lidt til således at desktop ændres til skrivebord, se nedenfor: 

    Dim objShell As IWshShell_Class
    Dim objShortcut As IWshShortcut_Class
    Dim FolderItem As Variant
    Dim lsPath As String
    Dim lsShortCut As String
    Dim lsURL As String
    Dim lsConfigFileName  As String
    Dim nType As Variant
   
    Set objShell = New IWshShell_Class
   
    lsShortCut = App.Title
    lsPath = App.Path & \"\\\" & App.EXEName
   
    For Each FolderItem In objShell.SpecialFolders
        If Mid(FolderItem, Len(FolderItem) - 9, 10) = \"Skrivebord\" Then
       
        \'And InStr(1, FolderItem, \"All Users\") = 0 And InStr(1, UCase(FolderItem), \"ADMINISTRATOR\") = 0 Then
                Set objShortcut = objShell.CreateShortcut(FolderItem & _
                                                \"\\\" & _
                                                lsShortCut & _
                                                \".lnk\")
                objShortcut.TargetPath = lsPath
                objShortcut.Arguments = lsURL & \" \" & _
                                  lsConfigFileName & \" \" & _
                                  CStr(nType)
            objShortcut.Save
        End If
    Next