choose file-Ergebnis: Alias oder Original?

[spirigwi]

*æ=apfel?*æ auch nativ eingepastet wird *
"Hier ist HOPFEN und APFEL verloren:
kann meinen eigenen Mist nicht mehr löschen, füge ich halt das Ende oben ein aber ja Snows Beiträge unten stehen lassen!!! Danke

"Lieber SNOW, um deiner Hilfe irgendwie gerecht zu werden habe ich
4 Massnahmen getroffen:
• der Uebersicht zuliebe meine Fröglerei oberhalb gelöscht
( musste lange üben bis ichs erlickt hatte)
• die funktionstüchtige Final-Version zu der dein Rat nun geführt hat
• ein MonsterSnippet gelegt(Typ Straussenei!) ins Classic
das kopierbar sofort läuft und alle 3 Versionen der Pfadsuche
ermöglicht.(Das skripten war ein Kinderspiel im Vergleich zum
einfügen ins Forum, Bibelzitat: °..schwerer für den Reichen ins
Himmelreich als
für ein Kamel(wie ich) durch (Snows) Nadelör.
• mir und anderen hoffentlich auch bewiesen dass choosen eigentlich
nun ad absurdum geführt ist: beim choosen beraubt man sich
sämtlicher sinnvoller Hilfsmittel des Macs wie:
1) einziehen des Ziels direkt ins öffenen-Fenster
2) Der Sherlock-Hilfe!
Snow, die Gemeinde brüllt nach: Ziel antippen(Sherlock oder aufHD)
--> direkt Pfadangabe als Text(HD:asdf:ASDFASDF) und Referenz lesen:
beides geht nämlich nicht mit AS-Funktion: VERWEIS EINSETZEN,
die schreibt nämlich wieder alles verkehrt.

Im folgenden die def. Fassung des Kurzskiptes das den Pfad eines Zieles
sowohl übers Alias wie auch Direktanwahl ins Worksheet legt
(sheet = Exkremente zu deutsch ??)oder Ergebnis.. oder wie sie alle
heissen "
--SKRIPT:
tell application "Finder"
   set ANFZ to "\""
   set StartupDisk to name of startup disk
   set FilePFAD to {}
   activate
   set FilePFAD to (choose file with prompt ¬
      "wähle File/o.Alias[*æ]-D wenn auf Schreibtisch") as string
   try
      set AliasPfad to ¬
         (reveal original item of file ¬
            FilePFAD) as string
      set FilePFAD to AliasPfad
   end try --dadurch wird man immer zum Original-Objekt geführt
   --egal ob nun am File oder dessen Alias ge-choost wird
   --damit kann man OrdnerPfade gewinnen durch dessen Alias
   activate
   set the clipboard to ANFZ & FilePFAD & ANFZ
   FilePFAD
end tell
_________________
 Skript-Fan => ein � -Fan =>Scr¿¿-KongFuSius_Kurpfusius

[Snow]

Hallo Willy,

das ist ja eine interessante Problematik. Im Finder gibt es zwar die Klasse 'alias file', mir ist es jedoch nicht gelungen, diese Klasse abzufragen.

Über einen kleinen Umweg gibt es dennoch eine Lösung. Man kann testen, ob es zu diesem Alias ein Original-File gibt. Wenn dieser Test fehlschlägt, ist es entweder kein Alias oder die zugehörige Original-Datei existiert nicht mehr.

Hier vorerst einmal die Behelfslösung:

set FilePFAD to choose file -- ein Alias auswählen
tell application "Finder"
try
get original item of FilePFAD
on error
--kein Alias
beep 2
end try
end tell

Werde mal sehen, ob ich noch eine bessere Möglichkeit finde.
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[Snow]

[Snow]

So, hier kommt die Lösung:

set FilePFAD to choose file -- ein Alias auswählen
tell application "Finder"
get kind of item FilePFAD
end tell

Ergebnis: "Alias"

Bei der Original-Datei heißt es z.B. "Filemaker Pro Dokument".

Bei der Klasse 'item' wird man schließlich fündig. Wie kommt man drauf?

Beobachten, welche Eigenschaften geerbt werden. Bei 'alias file' steht:

<Inheritance> file

Bei der Klasse 'file' ist auch nichts brauchbares dabei außer:

<Inheritance> item

Und hier gibt es die Eigenschaft 'kind', was also genau die Art des Dokuments liefert.
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[spirigwi]

[size=10]"SNOOOOOOOOWWWWWWW!!!!!!!!!!!![color=#1822CD], vom feinsten! Danke vielmals
Da ich sowieso nicht löschen kann(X) fehlt! solls gelten

[Snow]

[spirigwi]

Nein nein! ich Idiot habs extra aus dem Finder Tell-Block genommen um der Fehlermeldung zu entgehen.besser wäre natürlich entschärfen mit --!
Da man nachher klüger wird hab ich die Finalversion ganz zuoberst wieder hingeschrieben.
Nochmals vielen Dank
_________________
 Skript-Fan => ein � -Fan =>Scr¿¿-KongFuSius_Kurpfusius