Condicionar en base a la existencia de un directorio.

[Osasa54]

Hola, en el código que tengo se genera un directorio en el cuál se van guardando una serie de libros de excel que voy generando. el nombre de este directorio se genera cogiendo el valor de dos variables tipo string que he creado. Es posible que al repetir la macro, el nombre de directorio que quiero crear ya exista, y por lo cuál me de un fallo al intentar crearlo de nuevo. Es por esto por lo que me gustaria poder hacer un if chequeando que el nombre del directorio no exista (antes de crearlo), para que así, a la hora de crearlo no me de este fallo. Cómo podría hacer para que si ya existe el nombre de ese directorio, lo creara igual pero con un número a continuación? Ej: c:\directorio, c:\directorio(1), c:\directorio(2), c:\directorio(3), etc...

Muchas gracias,

Osasa

 

[davidpounds]

Osasa,

No hablo muchas Espanol. newdir es el nombre del directorio, y basepath es el directorio 'padre' de newdir.

Example: Si quieres crear un directorio que se llama 'gatto' en el directorio 'c:\windows\' hace

nuevodirectorio = nextdir("c:\windows\", "gatto")

Si no existe c:\windows\gatto\, nuevodirectorio esta ahora 'gatto', pero si existe c:\windows\gatto\, nuevodirectorio esta ahora 'gatto(1)'. Si existe c:\windows\gatto(1)\, nuevodirectorio esta ahora 'gatto(2)' etc.

Espero que es claro.

David

Function nextdir(basepath As String, newdir As String) As String
Dim i As Byte
nextdir = basepath & newdir
Do While Dir(nextdir, vbDirectory) <> ""
i = i + 1
nextdir = basepath & newdir & "(" & CStr(i) & ")"
Loop
If (i > 0) Then
nextdir = newdir & "(" & CStr(i) & ")"
Else
nextdir = newdir
End If
End Function

 

[Greg Truby]

Hola Osasa,

Me parece que el código que Davíd ha provisto le ayudará (no lo probé, pero al leerlo parece bien hecho). Note que este función no crea el directorio, solo le brinda el nombre que necesitará. Y si le interesa, haga una busqueda para el término «SenderoLuminoso» aquí en Mr. Excel y debe encontrar una función que escribí hace unos años que chequea para la existencia de un directorio y si no existe, lo crea.

Saludos,

 

[Osasa54]

Muchas gracias a todos, me ha venido muy bien.
Un saludo,

Oscar