MISSING FILES REPORT
MISSING FILES REPORT
- Subject: MISSING FILES REPORT
- From: "David Walsh" <email@hidden>
- Date: Sun, 4 Mar 2001 19:58:33 -0700
Is there a way to get a report on files that are not found
in both fileList and fileList1 (see event log) and write it to a text file to
be printed after the script has run.
tell application "Scriptable Text Editor"
activate
tell document "Pickup List"
set nameList to every paragraph
end tell
end tell
tell application "Finder"
set searchFolder to "Team B:B Group:AUTO ADVANTAGE PICS/OLD:"
set destFolder to folder "FOLDER 2"
repeat with listitem in nameList
set fileList to (every file in entire contents of folder searchFolder whose
name is (word 2 of listitem))
set fileList1 to (every file in entire contents of folder searchFolder whose
name is (word 2 of listitem & ".tif"))
set fileList2 to fileList & fileList1
repeat with afile in fileList2
duplicate afile to destFolder
set name of result to (word 1 of listitem)
end repeat
end repeat
end tell
FROM THE EVENT LOG
tell application "Scriptable Text Editor" activate get every paragraph of
document "Pickup List"
--> {"876098 432987"}
end tell
tell application "Finder" get folder "FOLDER 2"
--> folder "FOLDER 2"
get every file of entire contents of folder "Team B:B Group:AUTO ADVANTAGE
PICS/OLD:" whose name = "432987"
--> {}
get every file of entire contents of folder "Team B:B Group:AUTO
ADVANTAGEPICS/OLD:" whose name = "432987.tif"
--> {}
end tell