I have been given the task of converting a large number of files form Clarisworks to OfficeX Word. I have decided the best way of doing this will be to open the ClarisWorks doc in OfficeX Word and then save them so they can be opened on a Windows PC with Office loaded. Now there are about 5000 files to convert, so I thought the best way would be to create a script. Am very new to Applescript but have lots of experience with Visual Basic, so would love to get a handle on it.
The bit I am having trouble with is how to loop through files in a folder. The aim is to craete a script that will open/save each clarisworks file in the folder and save as an OfficeX word doc.
This is just a start. This should give you some ideas. I used AppleWorks 6 in this script. If you’re using Claris Works you’ll need to change the program name in that line. Also you may need to change the syntax for saving. I don’t know how scriptable Claris is. You can open the dictionary for Claris from AppleScript. Anyway, here is what I have.
tell application "Finder"
set sourceFolder to choose folder with prompt "Choose folder with files for conversion."
set fileList to every file of sourceFolder
set destinationFolder to choose folder with prompt "Choose the destination."
set destPath to destinationFolder as string
end tell
tell application "AppleWorks 6"
activate
set n to 1
repeat with aFile in fileList
open aFile
--get properties of aFile (I used this line to get the information on the file type of the original document)
set fileName to name of aFile
set filePath to destPath & fileName
save front document in file filePath as file type "CWWP"
--do other operations here
end repeat
end tell