Imprimir Página - Duda al crear una carpeta

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

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

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

Con Dir():

Código:

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:

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.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Crazy.sx en 12 Mayo 2008, 07:58 am