set Bildordner to choose folder 
set Dateiliste to {} 
 
tell application "Finder" 
	set Bildliste to every file of folder Bildordner 
	repeat with akt_Bild in Bildliste 
		set akt_Bildname to name of akt_Bild 
		set end of Dateiliste to akt_Bildname 
	end repeat 
end tell 
 
get Dateiliste 

tell application "Finder" 
  repeat with akt_Bild in Bildliste 
    set end of Dateiliste to name of my akt_Bild 
  end repeat 
end tell 

set Dateiliste to list folder Bildordner 

set ASTID to AppleScript's text item delimiters 
set AppleScript's text item delimiters to return 
set theFolder to choose folder 
set FolderName to name of (info for theFolder) 
 
--(theFolder as text) bin hier auf tiger und bin mir wg. der Klasse, die neuere Raubkatzen zurückgeben nicht  sicher ... 
set theData to (list folder (theFolder as text) without invisibles) as text 
 
set AppleScript's text item delimiters to ASTID 
 
my toFile(theData, FolderName) 
 
on toFile(theData, FolderName) 
	set the txtFile to ((path to desktop) as text) & FolderName & ".txt" 
	try 
		open for access file the txtFile with write permission 
		write theData to file the txtFile 
		close access file the txtFile 
	on error 
		try 
			close access file the txtFile 
		end try 
	end try 
end toFile 

set ASTID to AppleScript's text item delimiters 
set AppleScript's text item delimiters to return 
set theFolder to choose folder 
 
set theData to (list folder (theFolder as text) without invisibles) as text 
set AppleScript's text item delimiters to ASTID 
 
my toFile(theData) 
 
on toFile(theData) 
	set the txtFile to ((path to desktop) as text) & "Bildliste.txt" 
	try 
		open for access file the txtFile with write permission 
		write theData to file the txtFile 
		close access file the txtFile 
	on error 
		try 
			close access file the txtFile 
		end try 
	end try 
end toFile 

set theFolder to choose folder with prompt "Bitte Ordner wählen:" 
do shell script "cd " & quoted form of POSIX path of theFolder & ";ls -1 > " & quoted form of POSIX path of ((path to desktop as text) & "Bildliste.txt") 

set theFolder to choose folder with prompt "Bitte Ordner wählen:" 
do shell script "mySource=" & quoted form of POSIX path of theFolder & ";myTarget=" & quoted form of POSIX path of ((path to desktop as text) & "Bildliste.txt") & ";cd $mySource;/bin/echo -n \"Erstellt:  \" > $myTarget;date \"+%d %m %Y %H:%M:%S\" >> $myTarget;/bin/echo -n \"Ordner: $mySource\" >> $myTarget;/bin/echo -n \"\n\n\" >> $myTarget;ls -1|sort -n >> $myTarget" 

set Bildordner to choose folder 
 
tell application "Finder" 
  set Bildliste to name of every file of folder Bildordner 
end tell