dim sFileType as string 
' get file type and append it to list label
sFileType = string (FILE_TYPE_LENGTH + 1, chr(0))
iRet = LceGetFileType(iSession, "PSLMST", sFileType)
lbFileList.Caption = lbFileList.Caption  " Type:"  sFileType