Public Function SetAction( _
   ByVal nFileCount As Long, _
   ByVal ListOfInputFileNames As Variant, _
   ByVal ListOfInputActions As Variant, _
   Optional ByVal ListOfNewFileNames As Variant, _
   Optional ByVal NewFilePathForAllFiles As Variant _
) As Long