6.33.1 VB Example
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