Verknüpfung mit relativem Pfad aus Kontextmenü erstellen

CoWa

Hallo,

ich möchte Datei/Ordner Verknüpfungen (relativer Pfad) mit drag&drop (von einem Ordner in den anderen rüberziehen) über das Kontextmenü erzeugen.

Ideen oder Ansätze wie ich das am besten beginnen könnte?

Danke im vorraus für euere Hilfe.

Gruß Cornelius

CoWa

Ich habe nun den ersten Ansatz ausprobiert.
Der relative Pfad wird erstellt, aber das erstellen der Verknüpfung funktioniert nicht.

AutoIt

#include <File.au3>
$quelle="D:\Test\quelle\abc\123"
$ziel="D:\Test\ziel\def\"
$pfad_relativ=_PathGetRelative($ziel, $quelle)
MsgBox(0,"Var","Relativ: " & $pfad_relativ & @LF & "Quelle: " & $quelle & @LF & "Ziel: " & $ziel)


if FileExists($quelle) Then
	FileCreateShortcut($ziel, $pfad_relativ)
Else
	MsgBox(0,"Error", "Pfad existiert nicht: " & $quelle)
EndIf

Alles anzeigen

CoWa

Neuer Stand:

Verknüpfung wird erstellt, aber der Pfad ist nicht korrekt. Beim händischen anpassen des Pfades bekomme ich eine Fehlermeldung:

Der Inhalt kann nicht angezeigt werden, da du keine Berechtigung hast, diesen Inhalt zu sehen.

In der CMD wird mir der relative Pfad aber als valide angenommen.

Der Inhalt kann nicht angezeigt werden, da du keine Berechtigung hast, diesen Inhalt zu sehen.

Ideen? Ich vermute der relative Pfad macht das Problem ...

AutoIt

#include <File.au3>
$quelle="D:\Test\quelle\abc\123"
$ziel="D:\Test\ziel\def\123"
$pfad_relativ=_PathGetRelative($ziel, $quelle)
MsgBox(0,"Var","Relativ: " & $pfad_relativ & @LF & "Quelle: " & $quelle & @LF & "Ziel: " & $ziel)


if FileExists($quelle) Then
	FileCreateShortcut($pfad_relativ, $ziel)
Else
	MsgBox(0,"Error", "Pfad existiert nicht: " & $quelle)
EndIf

Alles anzeigen

**Alina**

Moin CoWa.

Zu Beginn folgende Bitte. Editiere bitte Deine Beiträge, wenn keiner zuvor drauf geantwortet hat.

Also ich meine das es wie Folgt aussehen müßte:

AutoIt

#include <File.au3>
$quelle="C:\Users\USERNAME\Desktop\Test.exe"
$ziel="C:\Users\USERNAME\Desktop\Unterordner\Test.exe"
$pfad_relativ=_PathGetRelative($quelle, $ziel)
;MsgBox(0,"Var","Relativ: " & $pfad_relativ & @LF & @LF & "Quelle: " & $quelle & @LF &@LF & "Ziel: " & $ziel)
ConsoleWrite("Relativ:  : " & $pfad_relativ & @CRLF)
ConsoleWrite("Quelle:   : " & $quelle & @CRLF)
ConsoleWrite("Ziel      : " & $ziel & @CRLF & @CRLF)
$quelle2=$quelle
$ziel2="Unterordner\Test.exe"
$pfad_relativ2=_PathGetRelative($quelle2, $ziel2)
;MsgBox(0,"Var","Relativ: " & $pfad_relativ2 & @LF & @LF & "Quelle: " & $quelle2& @LF &@LF & "Ziel: " & $ziel2)
ConsoleWrite("Relativ-2 : " & "..\" &  $pfad_relativ2 & @CRLF)
ConsoleWrite("Quelle-2  : " & $quelle2 & @CRLF)
ConsoleWrite("Ziel-2    : " & @DesktopDir & "\" & $ziel2 & @CRLF)

Alles anzeigen

Ausgabe sieht dann so aus:
Relativ: : ..\Unterordner\Test.exe
Quelle: : C:\Users\USERNAME\Desktop\Test.exe
Ziel : C:\Users\USERNAME\Desktop\Unterordner\Test.exe

Relativ-2 : ..\Unterordner\Test.exe
Quelle-2 : C:\Users\USERNAME\Desktop\Test.exe
Ziel-2 : C:\Users\USERNAME\Desktop\Unterordner\Test.exe

CoWa

Erstmal Danke dafür.
Folgende Variante funktioniert.

AutoIt

#RequireAdmin
#include <File.au3>
#include <Symlink.au3>
$quelle="D:\Test\quelle\abc\123"
$ziel="D:\Test\ziel\def\"
$pfad_relativ=_PathGetRelative($ziel, $quelle)
;MsgBox(0,"Var","Relativ: " & $pfad_relativ & @LF & "Quelle: " & $quelle & @LF & "Ziel: " & $ziel)
ConsoleWrite("Relativ:  : " & $pfad_relativ & @CRLF)
ConsoleWrite("Quelle:   : " & $quelle & @CRLF)
ConsoleWrite("Ziel      : " & $ziel & @CRLF & @CRLF)
if FileExists($quelle) Then
	;FileCreateShortcut($pfad_relativ, $ziel)
	;ShellExecute("cmd", "mklink /D " & $ziel & " " & $pfad_relativ)
	Run(@ComSpec & ' /k ' & "mklink /D " & $ziel & "123" & " " & $pfad_relativ, "", @SW_HIDE)
	;_SymLink( $ziel, $pfad_relativ, 1)
Else
	MsgBox(0,"Error", "Pfad existiert nicht: " & $quelle)
EndIf

Alles anzeigen

mklink benötigt für das erstellen von symbolischen Links "Adminrechte" . Die klassischen Hardlinks (wie FileCreateShortcut sie macht) benötigen absolute Pfade.

Nun ist die Frage wie ich das möglichst bequem in das Kontextmenü bekomme und die entsprechenden Übergabeparameter daraus auslese.
Ideen?

Gruß Cornelius

**Alina**

Moin CoWa.

WICHTIG:
Wenn Du die Include "Symlink.au3" an giebst und es sich nicht um eine Includedatei handelt, die bereits grundsätzlich bei AutoIt dabei ist, diese Datei BITTE als Anhang IMMER beifügen, da Frau es sonst nicht prüfen kann.

.
.
>>> EDIT: Sorry, habe mit dem unten stehenden Script falsch gedacht, aber lass es mal drinne. Vielleicht kannst Du es ja dennoch gebrauchen.
Tue mir einmal einen Gefallen. Zeig mir mal, was bei der Verknüpfung das Ziel sein soll, das in dem Bild, von Beitrag Nr. 3, als ZIEL und ZIELORT später stehen soll.

Ist das was folgt, das was Du möchtest?

AutoIt

#include <File.au3>


$quelle="C:\Users\USERNAME\Desktop\bsp.exe"
$ziel="C:\Users\USERNAME\Desktop\Unterordner\bsp.exe"
$pfad_relativ=_PathGetRelative($quelle, $ziel)
;MsgBox(0,"Var","Relativ: " & $pfad_relativ & @LF & @LF & "Quelle: " & $quelle & @LF &@LF & "Ziel: " & $ziel)


ConsoleWrite("Relativ:  : " & $pfad_relativ & @CRLF)
ConsoleWrite("Quelle:   : " & $quelle & @CRLF)
ConsoleWrite("Ziel      : " & $ziel & @CRLF & @CRLF)




$quelle2=$quelle
$ziel2="Unterordner\bsp.exe"
$pfad_relativ2=_PathGetRelative($quelle2, $ziel2)
;MsgBox(0,"Var","Relativ: " & $pfad_relativ2 & @LF & @LF & "Quelle: " & $quelle2& @LF &@LF & "Ziel: " & $ziel2)


ConsoleWrite("Relativ-2 : " & "..\" &  $pfad_relativ2 & @CRLF)
ConsoleWrite("Quelle-2  : " & $quelle2 & @CRLF)
ConsoleWrite("Ziel-2    : " & @DesktopDir & "\" & $ziel2 & @CRLF)




FileCreateShortcut($quelle, @DesktopDir & "\Ich starte die bsp.exe.lnk", @DesktopDir, $ziel, "Linkbeispiel", @SystemDir & "\shell32.dll", "^!t", "15", @SW_MINIMIZE)

Alles anzeigen

Brummel

Hallo Forum,

Ich möchte das nochmal aufgreifen: ich habe einen symbolischen Link und möchte die entsprechende Zieldatei auslesen. Gibt es dazu eine Möglichkeit?

Vielen Dank im Voraus

Klaus

**BugFix**

Hilfe: ~~FileGetShortcut~~

Sorry, war zu schnell, du suchst ja Symlink.

Brummel

Du hast ja sowas von recht. Irgendwie habe ich den befehl übersehen. Danke für die sehr schnelle Hilfe. Jetzt geht es weiter.