Skript um aus Filenamen Ordner zu erstellen und das File dananch hinzuverschieben

[retrospektive]

Ich habe eine Partition wo nur Dateien drinnen sind. Ich möchte aus dem namen dieser Datei einen Ordner erstellen und dann die datei dort hineinverschieben.

geht das zu automatisieren ?

danke

 

[little_pixel]

Hallo,

ja, das geht problemlos. Ist in 2 Minuten erledigt:

tell application "Finder"
	
	set derOrt to choose folder
	
	-- alle Dateien
	set alleDateien to every file of derOrt
	
	-- Schleife, um alle Dateien abzuarbeiten
	repeat with nDatei in alleDateien
		try
			-- Dateinamen holen
			set derName to name of nDatei
			
			-- Suffix entfernen
			set AppleScript's text item delimiters to ("." & (name extension of nDatei))
			set derName to first text item of derName
			set AppleScript's text item delimiters to ""
			
			-- Exitenz prüfen, anlegen und/oder verschieben
			if not (exists folder derName of derOrt) then
				make new folder at derOrt with properties {name:derName}
				move nDatei to alias ((derOrt & derName) as string) with replacing
			else
				move nDatei to alias ((derOrt & derName) as string) with replacing
			end if
		on error
			-- vielleicht ein Dialog?
		end try
		
	end repeat
	
end tell

Viele Grüße

Kleiner Nachtrag:
Ich würde den Ton ausschalten. ;-)

 

[retrospektive]

recht herzlichen dank