Hi Jerome,
Thanks again for your input
I had to change two lines though:
open alias an_item to open an_item
and
tell application “Finder” to move alias an_item to destination_folder to tell application “Finder” to move an_item to destination_folder
What I found out is that it only works when you move files into the folder. With copying PS tries to open the file while its not completely arrived yet. There is a script called Folderaction with polls a folder but I am unable to put in thePS handling
(see below)
Don’t know if I will use it but it looks prommesing and works perfectly as is
I can’t find the right syntax for opening a file using this script
any ideas? - look for:
on ProcessThisFile(theFile)
– your file processing code goes here.
Created by Kevin Meany:
(* A script to behave as a folder action replacement when files are copied into the folder which would have had a folder action script attached and the files are either large or being copied over the network. This script is designed to avoid the problem where a folder action will trigger before a file is completely copied.
To use the script you will need to replace the code in ProcessThisFile with your own code. Do not try and add this script as a folder action. Just run the script and it will ask you to specify the folder to watch.
The author accepts no responsibility as a result of running this script.
Kevin Meaney ktam@yvs.eu.com
http://www.yvs.eu.com/
*)
property debugMe : true – set to false when you want to use this script in a production environment.
property delayTime : 10 – seconds - set to whatever value you feel is appropriate for your situation.
property fileNameList : {}
property fileSizeList : {}
property fileProcessedList : {}
property folderToProcess : missing value
on run
set folderToProcess to choose folder with prompt “Select Folder to process files”
set {fileNameList, fileSizeList, fileProcessedList} to {{}, {}, {}}
end run
on idle
try
my dd(“Checking for differences in “” & (folderToProcess as Unicode text) & “”…”)
set startTime to current date
set {newNameList, newSizeList} to my CreateFileNameSizeLists(folderToProcess)
set {filesToProcess, newNewNameList, newNewSizeList} to {{}, {}, {}}
repeat with j from 1 to (count newNameList)
set {addedToListToBeProcessed, newName, newSize} to {false, newNameList’s item j, newSizeList’s item j}
repeat with i from 1 to (count fileNameList)
set {fileName, fileSize} to {fileNameList’s item i, fileSizeList’s item i}
if fileName = newName then
if newSize is not 0 and newSize = fileSize then
my dd(“Adding “” & fileName & “” to list of files to be processed…”)
set {addedToListToBeProcessed, filesToProcess’s end} to {true, fileName}
exit repeat
end if
end if
end repeat
if not addedToListToBeProcessed then
if fileProcessedList does not contain newName then
–my dd(“Adding “” & (folderToProcess as Unicode text) & newName & “” to new file lists…”)
set {newNewNameList’s end, newNewSizeList’s end} to {newName, (info for (((folderToProcess as Unicode text) & newName) as alias))'s size}
end if
end if
end repeat
set {fileNameList, fileSizeList} to {newNewNameList, newNewSizeList}
repeat with i from 1 to (count filesToProcess)
set fileProcessedList’s end to filesToProcess’s item i
end repeat
my ProcessFiles(filesToProcess)
set diffTime to ((current date) - startTime)
if (diffTime is greater than or equal to delayTime) then
return 1
else
return delayTime - diffTime
end if
on error e
my dd("Error: " & e)
–set the clipboard to e
end try
end idle
on ProcessFiles(theFiles)
repeat with i from 1 to (count theFiles)
my dd(“Processing “” & ((folderToProcess as Unicode text) & theFiles’s item i) & “”…”)
my ProcessThisFile(((folderToProcess as Unicode text) & theFiles’s item i) as alias)
end repeat
if theFiles is not {} then my dd("Number of processed items: " & (count theFiles))
end ProcessFiles
on ProcessThisFile(theFile)
– your file processing code goes here.
set testFolderName to “TestFolder”
my dd(“Copying Filename: “” & (info for theFile)'s name & “” to “” & testFolderName & “”…”)
tell application “Finder”
try
set testFolder to ((path to desktop folder as Unicode text) & testFolderName & “:”) as alias
on error
set testFolder to (make new folder at desktop with properties {name:testFolderName}) as alias
end try
duplicate theFile to testFolder with replacing
end tell
end ProcessThisFile
on CreateFileNameSizeLists(theFolder)
set folderList to list folder theFolder without invisibles
set {myNameList, mySizeList} to {{}, {}}
repeat with j from 1 to (count folderList)
if (folderList’s item j)'s character 1 is not “.” then
set theInfo to info for ((theFolder as Unicode text) & (folderList’s item j) as alias)
– if (theInfo’s folder) then (*perhaps we want to copy folders *)
set {myNameList’s end, mySizeList’s end} to {theInfo’s name, theInfo’s size}
– end if
end if
end repeat
return {myNameList, mySizeList}
end CreateFileNameSizeLists
on dd(m)
if m starts with “Error:” then
activate
beep 2
if (display dialog m buttons {“Quit”, “OK”} default button 2 with icon 0)'s button returned = “Quit” then quit
else if debugMe then
activate
if (display dialog m buttons {“Quit”, “OK”} default button 2 with icon 1 giving up after 1)'s button returned = “Quit” then quit
end if
end dd
