Page 2 of 2
Re: Codepage, hb_Translate(), OEM <-> ANSI
Posted: Tue Sep 28, 2021 11:19 am
by mol
if substr(cText_Path, -1) <> "\"
cText_Path += "\"
endif
Re: Codepage, hb_Translate(), OEM <-> ANSI
Posted: Fri Jan 09, 2026 9:18 am
by jozef
Hi Jimmy,
I started to move from ANSI version to UNICODE version of HMG. Your convert program is very usefull.
Thank you,
Jozef
Re: Codepage, hb_Translate(), OEM <-> ANSI
Posted: Sat Jan 10, 2026 4:25 pm
by AUGE_OHR
hi,
here full Source of App
Re: Codepage, hb_Translate(), OEM <-> ANSI
Posted: Sat Jan 10, 2026 6:21 pm
by franco
You could put it ahead of the extra procedure.
Code: Select all
cDir := GetFolder( cTitle, TRIM( cInitPath ),, lNewFolderButton )
IF !EMPTY( cDir )
IF RAT( "\", cDir ) <> LEN(cDir)
cDir += "\"
ENDIF
ExportDbf.Text_Path.value := cDir //+ "\" // add "\"
ENDIF