jose
07 de Julio del 2004

Hola y gracias por su atencion.
Mire he hecho un formulario con lossiguientes componentes: un dir y un drive, es decir desde ahi selecionare la ruta, ok?
PUes bueno quiero hacer un boton para poder crear nuevas carpetas en la rutaque yo seleccione con el dir1.

SE que para crear direcotrios es mkdir, pero no se lo de la ruta, me estavolviendo loco, pq he provado de un monton de formas y no me sale. A ver si me podeis ayudar. Gracias. Hasta luego. Saludos.

Estrambotica
07 de Julio del 2004

Hola chico en el ejemplo q te estoy mandando el ("" & App.Path & "" & Me.txtdirectorio & "") es la ruta a donde quiere q se te guarde sustituyelo por el valor del dir1

'Verifica si el directorio existe o no
MyFile = Dir("" & App.Path & "" & Me.txtdirectorio & "", vbDirectory)

If MyFile = "" Then
'Crea directorio
FileSystem.MkDir ("" & App.Path & "" & Me.txtdirectorio & "")
MsgBox "Se creo el Directorio"

Else
MsgBox "El Directorio ya Existe"
End If

Estrambotica
07 de Julio del 2004

jejeje me confundi...... te explico

("" & App.Path & " ===> esta el la ruta

" & Me.txtdirectorio & "", ===> nombre del directorio

espero te sirva

praetoriano
07 de Julio del 2004

gracias