script liste/fichier

[eletonance]

bonjour quelqu'un peut vérifier ce script S.V.P
il y des fautes !!!!

merci


copy (choose folder with prompt "what do you want a list of") to thefol
tell application "Finder"

set thelist to every item of thefoll

copy (open for access the file "Macintosh HD:ScriptGenFile" with write permission) to refnum


try

repeat with thefile in the list
write (thefile as string) & "
"to refnum

end repeat
end try

close access refnum


end tell