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