FiveTech Software tech support forums

Dear all,

this was the solution:

function main()
LOCAL CtMP := GETENV( "TMP" )

lMKDir(CtMP)

Kind regards and thank you for the answers!

... no existe, se crea carpeta de la SAT------------------ if ! HB_DirExists( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT ) if lMkDir( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT ) MsgInfo( "La carpeta de la SAT no existía y se ha creado") endif endif ...

... ficheros asociados") endif cGetFile( "Todos los archivos (*.*)|*.*", "Contenido de la carpeta",, Cfiles,,,.t.,,) else if lMkDir(Curdrive()+":\"+cRaiz+"\"+Carpetasat+"\"+apunte) MsgInfo( "Debe añadir los ficheros asociados") cGetFile( ...

... which seems to work: LOCAL CtMP := GETENV( "TMP" ) //----------------------------------------------------------------------------// lMKDir(CtMP) Thank you for your help and best regards Otto

Good morning,

How can I create a folder in the temp system folder in windows 7/8/10 ?

This doesn't work:

lmkdir ( "%TEMP%my_folder" )

Thank you and regards,

Alvaro

Armando,

yo lo hago asi:

IF ! FILE( cFilePath( GetModuleFilename( GetInstance() ) ) + "documentos" )
lMkDir("documentos")
ENDIF

Saludos

... is created in its own dialog. - New function XImage( uImage ): Quick function to view any image source. * Unicode: - New functions lisDirW(), lMkDirW(), FileW(), lChDirW(), lRmDirW() are Unicode versions of lsDir, lMkDir, File, lChDir, lRmDir. Note: These functions can be used for Ansi file ...

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" ...

... !lIsDir(cCarpeta) cCarpeta:=cUnidad for i:=1 to Len(aCarpeta)  cCarpeta+=aCarpeta[i]  if !lIsDir(cCarpeta)   if !lMkDir(cCarpeta)    aviso({'No se tiene acceso a carpeta',cCarpeta})    return .f.   endif  endif  cCarpeta+='\' nextendifxCarpeta:=cCarpetareturn ...

Saluos... si te fijas bien, tienes un apostrofe demás en tu linea:

local cCarpetaFotos:='C:\FOTOS\INC'\EMPLEADOS'

caracter en posicion 13

Noe Éste código funciona  if !lIsDir('C:\FOTOS')     lMkDir('C:\FOTOS')   Endif   if !lIsDir('C:\FOTOS\INC')     lMkDir('C:\FOTOS\INC')   Endif    cCarpetaFotos:='C:\FOTOS\INC\EMPLEADOS'  if !lIsDir(cCarpetaFotos)  ...

Intenta con esto...saludos... :shock: Descripción     DIRMAKE() crea el directorio especificado. Recuerde que para crear un     directorio se deben tener los permisos adecuados. Para crear     directorios anidados, se debe crear cada subdirectorio...

Saludos la funcion lMkDir() no me crea directorios function CreaCarpetaFotos()local cCarpetaFotos:='C:\FOTOS\INC'\EMPLEADOS'[code]if !lIsDir(cCarpetaFotos) lMkDir(cCarpetaFotos) // crea directorio de imagenes fotos if ...

... referenced from C:\FWH\LIB\FIVEHC.LIB|MKDIR Error: Unable to perform link I not sure how it is being called, I have checked for MKDIR, lMkDir, and SHCreateDirectoryExA but cannot find it in any of my source. Thanks, Byron ...

... :=cFileTemp(".ZIP") LOCAL cFileMime:=cFileTemp(".TXT") LOCAL I,cDirOut:="filerecover\" LOCAL aPag :={} LOCAL oFile lMkDir(cDirOut) SELECT A USE (cFileDir) GO TOP LOCATE FOR ALLTRIM(FIELD->FILE)=ALLTRIM(cFile) IF !FOUND() CLOSE ALL MsgAlert("Archivo "+cFile+" ...