bat Datei starten

[Johannes72]

Hallo

Bitte um Hilfe bei folgendem Problem:

Ich habe mir ein Datensicherungs-Tool in Access gebaut.
In einer Tabelle speichere ich Quell und Ziel Verzeichnisse und exportiere diese Daten in eine .bat Datei. Wenn ich nun auf eine Schaltfläche klicke, soll diese .bat Datei ausgeführt werden. Funktioniert einwandfrei. Bis auf eines:

Um die .bat Datei ausführen zu können muss sie "als Administrator" gestartet werden. Nun habe ich eine. ink erstellt und dort gibt es in den Eigenschaften die Option "als Administrator ausführen". Wenn ich nun auf diese .ink doppelklicke, funktioniert das auch einwandfrei. Das Problem ist, wenn ich auf die Schaltfläche klicke und damit dieser Code ausgeführt wird

Private Sub Befehl450_Click()
    Dim strPfad As String
    strPfad = Application.CurrentProject.path
   
If MsgBox("Um die Sicherung durchzuführen, muss C-APP geschlossen werden." & vbCrLf & vbCrLf _
            & "Kann APP geschossen werden?", _
            vbQuestion + vbYesNo, "Achtung") = vbYes Then
                 
    sAppName = strPfad & ".\sicherungs.lnk"
    Call Shell(sAppName, 1)
           
End If
End Sub

funktioniert das aber nicht...

keine Ahnung warum!! .bat wird geöffnet, aber ohne der entsprechenden Berechtigung die in der .ink aber hinterlegt ist...

Kann mir da bitte jemand helfen?

Vielen Dank

[steffen0815]

Hallo Johannes,
versuche es so

Code [Auswählen] Erweitern

CreateObject("Shell.application").open strPfad & "\sicherungs.lnk"

[Johannes72]

Hallo

Super, funktioniert genau wie ich es wollte....

Vielen Dank