La función MkDir nos sirve para crear un directorio, pero si lo que queremos es saber si el directorio existe lo podemos combinar con la función Len para averiguar si el directorio ya existe si no, entonces crear el directorio.
Código de ejemplo:
' Inicio del código ....
'Si dir no existe
If Len(Dir("C:\FreelancerVBA", vbDirectory)) = 0 Then
'La función crea el directorio
MkDir ("C:\FreelancerVBA")
End If
'fin del código....
Este código es muy útil cuando desarrollamos aplicaciones y deseamos verificar antes de que se ejecute un formulario por ejemplo que requiere que exista una carpeta en especifico.
No hay comentarios :
Publicar un comentario