Alias od. Verweis einer Datei erstellen

Hallo Ihr Lieben,
ich würde gerne ein Verweis oder Alias von einer Bilddatei (jpg) erstellen.
Ich glaube das geht nur mit AppleScript.
Leider habe ich von AppleScript keine Ahnung. Wie kann ich ein FolderItem an AppleScript übergeben, danach sollte der Alias in
ein Ordner meiner Wahl kopiert werden.
Ich arbeite mit einem Mac und habe das neueste XOJO 2016 R3.
Vielen Dan in voraus!!

Mit dem MBS Plugin geht das so:

[code]dim file as FolderItem = SpecialFolder.Desktop.TrueChild(“test.rtf”)
dim Bookmark as string = CFBookmarkMBS.CreateBookmarkData(file, CFBookmarkMBS.kCreationSuitableForBookmarkFile)

dim AliasFile as FolderItem = SpecialFolder.Desktop.TrueChild(“test.alias”)
if CFBookmarkMBS.WriteBookmarkDataToFile(Bookmark, AliasFile, 0) then
MsgBox “OK”
else
dim e as CFErrorMBS = CFBookmarkMBS.lasterror
MsgBox "Failed: "+e.Description
end if[/code]

siehe
http://monkeybreadsoftware.net/module-cfbookmarkmbs.shtml

Vielen Dank Christian,
ich weis, Deine MBS Plugins können fast alles.
Aber ich habe leider keine MBS Plugins, denn ich bin wirklich
nur ein Rentner und reiner Hobbyist

Probier’s doch mal mit dem Plugin. :wink:

es sollte auch mit einer shell funktionieren

[code]dim f1, f2 as FolderItem
f1 = GetFolderItem("/Volumes/Ordner/Dateiname.extension", 3)
f2 = GetFolderItem("/Volumes/Ordner", 3)

if f1 <> nil and f1.Exists then
if f2 <> nil then
dim sh as new shell
dim cmd as string
cmd = "ln -s " + f1.ShellPath + " " + f2.ShellPath
sh.Execute (cmd)
End If
End If[/code]

Vielen Dank Euch Beide,
Ich werde beide Varianten probieren
und spter berichten

Ein Symlink ist kein Finder Alias.
In AppleScript geht das so (macOS Sierra):

set original to (POSIX file "/Users/tom/Desktop/test.log") as text set myAlias to (POSIX file "/Users/tom/Desktop") as text tell application "Finder" to return make new alias at myAlias to original
Der return-Wert ist der Name des erzeugten Alias (also “test.log Alias” oder so).