FoxPro/Visual FoxPro - CREAR UN DIRECTORIO DESDE...

 
Vista:

CREAR UN DIRECTORIO DESDE...

Publicado por TITO (356 intervenciones) el 12/06/2003 06:00:01
Si digito el nombre de un directorio que deseo crear, y esto lo hago en una texbox existente en un formulario. ¿Que función o grupo de instrucciones deberia emplear para que el directorio o carpeta se creara ?. En un programa de FOX2.5 (para DOS) yo hacia esto con RUN MD, pero a estas alturas de la tecnologia deberia haber algo no tan burdo.
Desde ya gracias,
TITO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:CREAR UN DIRECTORIO DESDE...

Publicado por Roman Suazo (2723 intervenciones) el 12/06/2003 06:57:21
Ha cambiado un poco, en VFP se usa o MKDIR o MD sin el run.
Si usas cualquier otro metodo como con una API o cualquier otro
objeto del windows seria como complicar la cosa innecesariamente.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CREAR UN DIRECTORIO DESDE...

Publicado por Plinio (7841 intervenciones) el 12/06/2003 16:13:37
Como dice Roman puedes usar el comando MD o MKDIR desde Visual Foxpro. Si deseas complicarte la vida usa el API:

#DEFINE MAX_PATH 260

LOCAL cFolder, nResult
cFolder = "c:\temp1"
* end of main

PROCEDURE cd1(cFolder)
DECLARE INTEGER SHCreateDirectory IN shell32;
INTEGER hwnd, STRING pszPath

nResult = SHCreateDirectory(0, a2u(m.cFolder))
IF nResult <> 0
? "Error code:", nResult
ENDIF

PROCEDURE cd2(cFolder)
DECLARE INTEGER CreateDirectory IN kernel32;
STRING lpPathName, INTEGER lpSecurityAttr

IF CreateDirectory (cFolder, 0) = 0
DECLARE INTEGER GetLastError IN kernel32
* 3 = ERROR_PATH_NOT_FOUND
* 5 = ERROR_ACCESS_DENIED
* 183 = ERROR_ALREADY_EXISTS
? "Error code:", GetLastError()
ENDIF

FUNCTION a2u(cText)
* simplified conversion to Unicode string
LOCAL cReturn, nIndex
cReturn = ""
FOR nIndex=1 TO Len(cText)
cReturn = cReturn + SUBSTR(cText, nIndex,1) + Chr(0)
ENDFOR
RETURN cReturn
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Javier

COMO NO LEI ESTO ANTES !!!

Publicado por Javier (22 intervenciones) el 15/06/2003 04:09:07
Y asi evitaba dirigirte la palabra...soretin de cuarta...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar