(*
(C) Hado Hein 1998, Berlin, FRG
parts (C) Apple Computer Inc. - published scripting samples of MacOS 7 & 8
*)
property ret : ASCII character 13 -- do ya remeber these times ?
tell application "Finder"
set ilFolder to choose folder with prompt "Welchen Folder Scannen ?"
tell application "Scriptable Text Editor" to run
tell application "Scriptable Text Editor" to make new paragraph with data ("" & ret)
repeat with I in (get every item of ilFolder)
set theURL to (get comment of I as text)
if (theURL Ç "") then
set theURL to "![](\"")
" & ret
tell application "Scriptable Text Editor" to make new paragraph with data (theURL)
end if
end repeat
set fona to name of ilFolder
tell application "Scriptable Text Editor" to close window 1 saving in file ("Macintosh HD:Desktop Folder:Imgs." & fona & ".html")
tell application "Scriptable Text Editor" to quit
end tell