Visual Basic - crear directorios y validar si existen en VB6

Soy un programador de visual basic novato y para realizar una aplicación necesito saber como se valida si existe un directorio y como crearlo en caso que no exista y sin utilizar un DirListBox, espero una respuesta vuestra. Un saludo. Zemi

Puedes apoyarte en las funciones MkDir y Dir. En el MSDN de Visual Basic, puedes encontrar ayuda de como usar dichas funciones.

Saludos Pola

Public Sub ValidarDirectorios()
Dim i As Integer
\'aqui validamos si existe el directorio de las imagenes o no
\'si no existe lo crea mediante el app.patt
On Error GoTo ErrorDirectorio
i = GetAttr(App.Path & \"\\Fotos\")
Exit Sub
ErrorDirectorio:
If Err.Number = 53 Then
MkDir \"Fotos\"
Else
i = MsgBox(\"Error \" & Err.Number & \" debido a \" & Err.Description & \" Avisa al administrador de su sistema...\", vbExclamation, \"corregir error\")
End If
End Sub