Obtener directorio actual (2)

14/07/2005 - 16:54 por dargento | Informe spam
Hola de nuevo!
Tengo otro problema que es muy parecido al de antes,en este cas
necesito dar una ruta para crear unos ficheros de texto,tengo alg
asi:


FileNum = FreeFile()
Open "P:\Proyecto Software Poligeneracion\Aplicacion\Ficheros\"
electrosimu & ".txt" For Output As #FileNum
If Err <> 0 Then
MsgBox "No se puede abrir el archivo"
End If

Necesito que me coga el directorio actual,yo le ponga la carpet
Ficheros ,el nombre del fichero pasado por variable.
He intentado de la manera que me han respondido para la base de datos
pero me da errores, ademas no se me da muyu bien lo de maneja
cadenas.
Si me pueden ayudar.
Gracia

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187089527
 

Leer las respuestas

#1 KL
14/07/2005 - 18:46 | Informe spam
Hola dargento,

Prueba con algo asi:

With ThisWorkbook
Nombre = "Prueba.xls"
Ruta = ThisWorkbook.Path
ChDir Ruta
Ruta = Ruta & "\Ficheros\"
MkDir Ruta
.SaveAs Ruta & Nombre
End With

Ojo- solo puedes crear un nivel de directorio (una carpeta nueva) a la vez.
Es decir para crear subcarpetas tendras que repetir las operaciones
ChDir...MkDir una a una o atraves de un bucle.

Saludos,
KL


"dargento" wrote in message
news:

Hola de nuevo!
Tengo otro problema que es muy parecido al de antes,en este caso
necesito dar una ruta para crear unos ficheros de texto,tengo algo
asi:


FileNum = FreeFile()
Open "P:\Proyecto Software Poligeneracion\Aplicacion\Ficheros\" &
electrosimu & ".txt" For Output As #FileNum
If Err <> 0 Then
MsgBox "No se puede abrir el archivo"
End If

Necesito que me coga el directorio actual,yo le ponga la carpeta
Ficheros ,el nombre del fichero pasado por variable.
He intentado de la manera que me han respondido para la base de datos,
pero me da errores, ademas no se me da muyu bien lo de manejar
cadenas.
Si me pueden ayudar.
Gracias


dargento

dargento's Profile: http://www.msusenet.com/member.php?userid47
View this thread: http://www.msusenet.com/t-1870895277

Preguntas similares