nisus.com

Code: Select all

$fileExts = Array.new('rtf', 'zrtf')	# which file types to process

# ask user what folder to batch process
$folderPath = Choose Folder
If ! $folderPath # user cancelled
	Exit
End

# collect all files of the proper type
$fileNames = File.namesInFolderAtPath($folderPath)
$filePaths = Array.new
ForEach $name in $fileNames
	$ext = $name.filePathExtension
	If -1 != $fileExts.indexOfValue($ext) 
		$path = $folderPath.filePathByAppendingComponent($name)
		$isFolder = File.isFolderAtPath($path)
		If ! $isFolder
			$filePaths.appendValue($path)
		End
	End
End

# make sure the user knows how many files will be processed
$fileCount = $filePaths.count
If 0 == $fileCount
	Exit 'No files of the correct type found in that folder.'
End
$choice = Prompt "Are you sure you want to process $fileCount files?", '', 'Process', 'Cancel'
If 'Process' != $choice
	Exit
End

# process file
ForEach $filePath in $filePaths
	Open $filePath	
	$doc = Document.active
	$doc.setProperty('keywords', '')
	Save
	$doc.close
End