DECLARE SHORT GetFileTitle IN Comdlg32;
    STRING   lpszFile,;
    STRING @ lpszTitle,;
    INTEGER  cbBuf
 
lpszFile = "c:\Program Files\NetLab\AddressBook.dat"
lpszTitle = SPACE(250)
 
* for this path the return is "addressbook.dat"
 
IF GetFileTitle (lpszFile, @lpszTitle, Len(lpszTitle)) = 0
    lpszTitle = LEFT (lpszTitle, AT(Chr(0),lpszTitle)-1)
    ? lpszTitle
ENDIF