Obtener directorio actual (2)

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

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 l
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 d
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