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
Hallo Johannes,
versuche es so CreateObject("Shell.application").open strPfad & "\sicherungs.lnk"
Hallo
Super, funktioniert genau wie ich es wollte....
Vielen Dank