Clipper/FiveWin - Crear directorio

 
Vista:

Crear directorio

Publicado por Raul (10 intervenciones) el 18/01/2005 22:22:13
Alguien de uds. me podria decir como crear un directorio en clipper 5.2 pasandole como paramtro el nombre, mes y el año por ejemplo: C:\BK0105
Gracias
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 directorio

Publicado por Gabriel pascual (913 intervenciones) el 19/01/2005 01:19:05
cDirectorio := "BK"+ ALLTRIM(STR(month(DATE())))+alltrim(str(day(date())))

RUN MD &cDirectorio

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 directorio

Publicado por Ricardo G (3 intervenciones) el 19/01/2005 04:47:04
Creo que es mejor asi

cDirectorio := "BK"+ strzero(month(DATE())) + right(str(year(date())),2)

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 directorio

Publicado por Alvaro (21 intervenciones) el 19/01/2005 06:55:30
Yo le añadiria un 2 al strzero, para que los meses con un solo dígito, aparecieran como 01, 02, etc.

cDirectorio := "BK"+ strzero(month(DATE()),2) + right(str(year(date())),2)

Un saludo

Alvaro
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 directorio

Publicado por Jose Lopez (49 intervenciones) el 19/01/2005 15:00:50
Raul,

Si es dentro de tu programa puedes pedirle al usuario que ingrese el nombre a travez de un GET:

M_DIR = SPACE(8)
@10,10 say 'Digite el nombre del directorio' GET M_DIR
READ
MAKEDIR(ALLTRIM(M_DIR))

Si el nombre del directorio siempre corresponde al del mes puedes hacerlo como te recomendaron los otros companeros.

Si quieres importar los parametros desde fuera de un programa como parametros puedes hacerlo asi:

TUPROGRAMA C:\BK0105

Dentro de la rutina TUPROGRAMA seria algo asi:

DIRMAKE(ALLTRIM(DOSPARAM()))

Suerte

Jose
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 directorio

Publicado por Jose Lopez (49 intervenciones) el 19/01/2005 23:46:18
Por error inverti el nombre de la funcion, debe ser:

MAKEDIR(ALLTRIM(DOSPARAM()))
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