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:
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():
Private Sub Form_Load()
If Dir$("C:\window", vbDirectory) = vbNullString Then
MsgBox "no existe"
Else
MsgBox "existe"
End If
End Sub
Con api:
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.