Dear Community,

Currently we are using a script along with a value list of disallowed file extension (see below).
I would like to replace this script with an EK validation rule.

My question now is, which property can I use to filter for the file extension .

The Property Filname unfortunately does not contain the file extension.
Does anyone here have an idea of what could be used?

Thanks in advance for your ideas

Kind regards,

Jeremias

Option Explicit


Dim iForbiddenExtensionListID, oListForbiddenExtensions
Dim oFiles, oFile, oForbiddenExtension

Set oFiles = Vault.ObjectFileOperations.GetFiles(ObjVer)
iForbiddenExtensionListID = Vault.ValueListOperations.GetValueListIDByAlias("list.VerboteneDateiendungFuerUpload")
Set oListForbiddenExtensions = Vault.ValueListItemOperations.GetValueListItems(iForbiddenExtensionListID)


If oFiles.Count > 0 Then
	For Each oFile in oFiles
		For Each oForbiddenExtension in oListForbiddenExtensions
			If lcase(oFile.Extension) = lcase(oForbiddenExtension.Name) Then
				Err.Raise MFScriptCancel, 	"Upload der Datei '" & oFile.Title & "." & oFile.Extension & " nicht möglich." & vbCrlf & _
											"Der Upload von Dateien mit der Dateiendung ." & oFile.Extension & " ist verboten."
			End If
		Next 
	Next
End If