Duda al crear una carpeta

[Crazy.sx]

Estoy empezando con VB6 y tengo una duda. Creo una carpeta en, por ejemplo, C:\mi_prueba, yo he usado MKDIR ("C:\mi_prueba") y a continuación en esa carpeta creo un archivo de texto. Hasta ahi todo bien, pero el problema que tengo es que si vuelvo a ejecutar el código me sale un error diciendo:

Run-time error '75'
Path/Files acces error

Sé que es porque ya se ha creado antes una carpeta. Mi pregunta es cómo hago para que diga "si existe esta carpeta entonces ir a...". ¿Se entiende mi duda?

Les dejo la parte del código donded se me plantea esa duda:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Sub Command1_Click()
MkDir ("C:\mi_prueba")
On Error Resume Next
Open ("C:\mi_prueba\mibatch.bat") For Output As #1
Print #1, "@echo off"
Print #1, "msg * """ & "HOLA CHE" & """"""
Close #1
Shell ("C:\mi_prueba\mibatch.bat")
End Sub

Gracias y saludos

[seba123neo]

Hola,con la funcion Dir() o con api,algo asi:

Con Dir():

Código [Seleccionar] Expandir

Private Sub Form_Load()
If Dir$("C:\window", vbDirectory) = vbNullString Then
MsgBox "no existe"
Else
MsgBox "existe"
End If
End Sub

Con api:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

Private Sub Form_Load()
MsgBox CBool(PathIsDirectory("c:\windows"))
End Sub

saludos.