ISQuestion.GetUploadedFileCount

Description

This function returns the number of files uploaded to the question.

Syntax

object.GetUploadedFileCount()

Part	Attribute	Type	Description
`object`	Required	ISQuestion	The `object` always implements the ISQuestion interface

Return Value

int

Returns the number of files uploaded to the question.

Example

Display the number of questions and some information about them, including some information about the files uploaded to the questions.

Dim aPatient
Dim aQuestions, aQuestion
Dim aMessage
Dim i, j
Dim aUploadedFileName

Set aPatient = Profile.SelectPatient
set aQuestions = Profile.ProfileInternal.LoadQuestionsForPatient(aPatient.ID)
aMessage = "Questions Count = " & aQuestions.Count
for i = 0 to aQuestions.Count - 1
  set aQuestion = aQuestions.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Title: " & aQuestion.Title & vbNewLine &_
    "Amend Date: " & aQuestion.AmendDate & vbNewLine &_
    "Answer: " & aQuestion.Answer & vbNewLine &_
    "Body: " & aQuestion.Body & vbNewLine &_
    "Date: " & aQuestion.Date & vbNewLine &_
    "Patient: " & aPatient.SurnameFirstName & vbNewLine &_
    "Status: " & aQuestion.Status & vbNewLine &_
    "Uploaded Files Count = " & aQuestion.GetUploadedFileCount & vbNewLine
  if aQuestion.GetUploadedFileCount <> 0 then 
    for j = 0 to aQuestion.GetUploadedFileCount -1
      aUploadedFileName = aQuestion.GetUploadedFileName(j)
      aMessage = aMessage & "Uploaded File Name: " & aUploadedFileName & vbNewLine 
    next
  end if  
next
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Uploaded Files can be found in Organisation > Work Centre > Work > Patient Items > Question Properties > Question > Uploaded Files.

Version information

Added in v7.8.0