lMkDir(), no me crea directorio

[noe aburto]

Saludos

la funcion lMkDir() no me crea directorios

Code: Select all  Expand view

function CreaCarpetaFotos()
local cCarpetaFotos:='C:\FOTOS\INC'\EMPLEADOS'

[code]
if !lIsDir(cCarpetaFotos)
 lMkDir(cCarpetaFotos) // crea directorio de imagenes fotos
 if !lIsDir(cCarpetaFotos)
  return aviso({'No se tiene acceso a unidad de imágenes fotográficas',;
                cCarpetaFotos})
 endif
endif
return NIL

Crei que asunto iba por los derechos de escritura en disco duro, y ya le puse todos los permisos y no me funciona.

Alguien que me de una manita.

[joseluisysturiz]

Intenta con esto...saludos...

Code: Select all  Expand view

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 de forma
     independiente, comenzando por el directorio de nivel superior (consulte
     el ejemplo siguiente).

 Ejemplos

     C Este ejemplo supone que C:\TEST existe y utiliza DIRMAKE() dos
        veces para crear dos subdirectorios anidados:

        DIRMAKE("c:\test\uno")    // Crea el directorio superior
        nResult := DIRMAKE("c:\test\uno\dos")
        IF nResult != 0
           ? "No se puede crear el directorio, error del DOS ", ; nResult
           BREAK
        ENDIF

        También pueden usarse argumentos del tipo:

        DIRMAKE( ".\test" )
 

[acuellar]

Noe

Éste código funciona

Code: Select all  Expand view

 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)
    lMkDir(cCarpetaFotos) // crea directorio de imagenes fotos
    if !lIsDir(cCarpetaFotos)
     MsgStop('No se tiene acceso a unidad de imágenes fotográficas',cCarpetaFotos)
    endif
  endif
 

Si ya tenias creados ´C:\FOTOS\INC´ Tu error es el apostrofe demás aquí cCarpetaFotos:='C:\FOTOS\INC'\EMPLEADOS'

Saludos

Adhemar

[JoseAlvarez]

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

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

caracter en posicion 13

[noe aburto]

Gracias.

No era el apostrofe. Tan sencillo como ir creando carpeta por carpeta.

mi solucion:

if !CreaCarpeta('X:\',{'FOTOSINC','EVENTOS',eve->num_eve},xCarpeta)
return NIL
endif

Code: Select all  Expand view

function CreaCarpeta(cUnidad,aCarpeta,xCarpeta)
local i,cCarpeta:=''

default cUnidad:='C:'
cCarpeta+=cUnidad
for i:=1 to Len(aCarpeta)-1
 cCarpeta+=aCarpeta[i]+'\'
next
cCarpeta+=aCarpeta[i]
if !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+='\'
 next
endif
xCarpeta:=cCarpeta
return .t.