That should be fairly straightforward.
On line 400, change "choose file" to "choose folder"
Then wrap everything from lines 405 to 472 in a repeat block something like
Code:
repeat with thisFile in items of sourceInfo whose kind is "OmniPlan"
and then change all occurrences of
sourceInfo inside that block to
thisFile