Re: Find Insertion Point
Re: Find Insertion Point
- Subject: Re: Find Insertion Point
- From: "Christopher C. Stone" <email@hidden>
- Date: Thu, 21 Dec 2000 11:21:59 -0600
At 12/17/00 12:36 +0100, email@hidden wrought:
>
I have a script that checks for files in a folder and when get the filenames
>
abd paste them into a document.
>
>
The problem I have is that I got no linebreaks, the filenames is pasted in a
>
row. How do I get linebreaks?
Hello Peter,
Give this a try; it's a bit more efficient than the original. You can do significantly more sophisticated error checking if desired. If you really want to copy one file at a time let me know and I'll come up with something.
A **** in the script indicates a wrapped line.
tell application "Finder"
set srcF to alias "Minerva:Source Folder:"
set desF to alias "Minerva:Destination Folder:"
set AppleScript's text item delimiters to {return}
set nameList1 to name of files of srcF as string
set fList to items of srcF
move fList to desF
set nameList2 to name of files of desF as string
set AppleScript's text item delimiters to {""}
if nameList1 nameList2 then
beep 2
display dialog "Move has failed in some way."
end if
set screenBounds to bounds of content space of desktop
end tell
tell application "Tex-Edit"
set winBounds to {5, 41, (item 3 of screenBounds) div 2, ****
(item 4 of screenBounds) - 5}
make new document with properties ****
{name:"File List", bounds:winBounds, contents:nameList1}
activate
end tell
Best Regards,
Christopher Stone
______________________________
StoneWorks Computer Consulting
email@hidden