Public Function SetFilePropertiesOnServer( _
   ByVal bstrInputURL As String, _
   ByVal NumberOfPropertiesToSet As Long, _
   ByVal PropertyUrIList As Variant, _
   ByVal PropertyValueList As Variant _
) As Long