FiveTech Software tech support forums

... LtoN([<lLogic>])->nLogic LTrim(<cString>,[<lAllWhiteSpace>])->cTrimString LUpdate()->dModification MakeDir(<cDirectory>)->nOSError Mantissa(<nFloat>)->nMantissa Max(<xExp1>,<xExp2>)->xLarger MaxCol()->nColumn MaxLine(<cText>)->nMaxLineLength ...

... KbdStat KeySec KeyTime KSetIns KSetNum KSetScroll L2Bin LastDayoM LastKey LastRec Left Len LenNum LoadLibrary Log Log10 Lower LtoN LTrim LUpdate MakeDir Mantissa Max MaxCol MaxLine MaxRow MCol MDblClk MDY MemoEdit MemoLine MemoRead Memory MemoTran MemoWrit MemvarBlock MHide MilliSec Min Minute ...

i have tried:
HB_SETCODEPAGE( "UTF8" )
MAKEDIR( "తెలుగు" )
with harbour 3.0.0, borland c++7 without fivewin

but i obtain a directory like this: తెలుగు

what is wrong?
thanks.

i have tried: HB_SETCODEPAGE( "UTF8" ) MAKEDIR( "తెలుగు" ) As I said, this work only with Harbour. Not with xHarbour. Even normal DIRECTORY() function works with Unicode names in Harbour but not with xHarbour. If you plan to use ...

i have tried: HB_SETCODEPAGE( "UTF8" ) MAKEDIR( "తెలుగు" ) As I said, this work only with Harbour. Not with xHarbour. Even normal DIRECTORY() function works with Unicode names in Harbour but not with xHarbour. If you plan to use ...

many thanks for your reply!

i have tried:
HB_SETCODEPAGE( "UTF8" )
MAKEDIR( "తెలుగు" )
but it doesn't work.

for the second soution that require fw_parWide() i shall update to fwh 2016 version.
thanks, marzio

i want to create directories with unicode characters, but none of the functions tried works well. lMkDir(), MakeDir() fwh1507, bcc7, xHarbour 1.2.3 bcc7_20150603 DLL32 Function apiCreateDir(lpPathName AS STRING, lpSecurityAttributes AS LPSTR) AS LONG PASCAL FROM "CreateDirectoryW" ...

lMkDir () creates directories with long names, there is no need to use lLfnMkDir()

Code: Select all  Expand view

? lMkDir ("d:\Test with long names")  // return .t.

You can also use function MakeDir (<cDir>) from (x)Harbour

Michel,

you can use MakeDir () from xHarbour. It returns the Dos errorcode, so you can check, what went wrong.

Dos error 0 -> success
Dos error 5 -> Dir exists

... SYSTEMROOT = C:\WINDOWS ALLUSERSPROFILE = C:\Documents and Settings\All Users OBJ = d:\bli4\obj;d:\clip53\obj LOGONSERVER = \\PAPA MAKEDIR = D:\BCC55\BIN AS = tasm32 PROCESSOR_LEVEL = 15 TEMP = C:\DOCUME~1\Armando\CONFIG~1\Temp FP_NO_HOST_CHECK = NO BCEXAMPLEDIR = D:\BCC55\BIN\..\EXAMPLES ...

... + "PDF" + "\*.pdf", "Seleccione un archivo",1,,,.t.) /// Creamos la carpeta si no existe if !lIsDir( cFicheroDestino ) MakeDir( cFicheroDestino ) end if ///Guardamos el nombre del Fichero cNombreFichero:=substr(cFicheroOrigen,len(alltrim( "C:\" + "PDF"+"\" ))) ///Copiamos ...

... "C:\" + "Productos" + "\" + alltrim((Mant:ctbfpdb)->codpdt) cFicheroOrigen:=cGetFile( "C:\" + "PDF" + "\*.pdf") if !lIsDir( cDirectorio ) MakeDir( cDirectorio ) end if COPY FILE (cFicheroOrigen) TO (cDirectorio) return me da el siguiente error (DOS Error 5) BASE/2012 Create error:C:\Productos\P110767 ...

... .and. len(::aMeta) > 0 if lSaveMetaF .and. MsgNoYes("Desea guardar fichero(s) metafile(s) (.EMF)?","Elija su opcion") if !lIsDir( cDirSaveMF ) MakeDir( cDirSaveMF ) endif Aeval(::aMeta, {|cFile| n+=1, CopyFile( cFile, cDirSaveMF+""+ ::cDocument+"_"+alltrim(strZero(n,3))+".emf" ) }) endif ...

Funciona!!

Pero no comprendo el comportamiento de makedir y resto de funciones de creación de ficheros.

Gracias Jaime

... para posteriormente comprimirlo y renombrarlo a .ods Para ello necesito crear una carpeta llamada "META-INF" el problema es que cuando utilizo MakeDir() siempre me la crea en minúsculas "meta-inf". He realizado pruebas con otros comando como fcreate y se comporta exactamente igual, pasa de ...