[Help]creacion de folder[RESUELTO]

[ind3t3ctabl3]

Holamque tal bueno a lo q vamos tengo una duda estoy en creacion de un source muy bueno pero me eh atorado en una cosita q mi logica no entiende xD bueno se trata de lo siguiente quiero q en el evento load del form me cree una carpeta en la path donde se encuentre el formulario eso ya lo soluciones pero cuando c crea la carpeta y cieero el programa y lo intento abrir de nuevo pooof me sale un runtime error "58"
FILE ALREADY EXISTS
bueno lo q me interesaria saber es si c puede q el formulario antes de crear la carpeta verifike q exista si existe la carpeta no la intente crear de nuevo para q no salga el error y en caso de lo contrario q no exista q la cree bueno espero me puedan ayudar mil grax

[seba123neo]

Código (vb) [Seleccionar] Expandir

Option Explicit

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

Private Sub Form_Load()
    If CBool(PathIsDirectory("c:\windows")) = False Then
       ' El directorio no existe y entonces aca lo creas
    End If
End Sub

[BlackZeroX]

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Const cstr_Dir As String = "c:\windows\"
    If Not Dir$(cstr_Dir, vbDirectory) <> "" Then ' // Existe "cstr_Dir"?.
        MkDir cstr_Dir ' // Creamos "cstr_Dir".
    End If
    '   // Aquí ya deberia existir de forma normal el directorio "cstr_Dir".
End Sub



Dulces Lunas!¡.

[ind3t3ctabl3]

Gracias por sus respuestas tio como veis este es el code q uso

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
   Dim fold As Object
   Set fold = CreateObject("scripting.filesystemobject")
   fold.createfolder App.Path & "\Descargas"
End Sub


los 2 code q pusieron no me han funcionado de ante-mano gracias

[seba123neo]

como no te funcionaron ? , me imagino que has reemplazado "c:\windows" por App.Path & "\Descargas" no ?

PD:vos ahora lo estas haciendo con FSO y este tiene una funcion llamada FolderExists, que funciona igual que las que te pusimos, retornan un boolean si existe o no...pero yo lo haria con cualqueira de las 2 que te pasamos, no hay que crear un objeto.

saludos.

[ind3t3ctabl3]

lo que pasa tio es q yo quiero q al abrir el  exe se genere el objeto en este caso la creacion de la carpeta en la path del exe vale y quiero q al finalizar  el form y volver a iniciarlo no me salga run time error x q sale q la apliacaion ya existe solo quiero q si no esta creada la carpeta q la genere en caso de q si este la carpeta omitir esta accion me explico ? amigo

[seba123neo]

lo que pasa tio es q yo quiero q al abrir el  exe se genere el objeto en este caso la creacion de la carpeta en la path del exe vale y quiero q al finalizar  el form y volver a iniciarlo no me salga run time error x q sale q la apliacaion ya existe solo quiero q si no esta creada la carpeta q la genere en caso de q si este la carpeta omitir esta accion me explico ? amigo

justamente los codigos que te pusimos hacen eso.... ...chequean si existe la carpeta, si no existe la crean, y si ya existe no hace nada...

a vos te tira error porque no estas chequeando en ningun lado si existe la carpeta antes de crearla...la estas creando siempre...usa los codigos que te pusimos y no te va a tirar error.

[ind3t3ctabl3]

es verdad tio una disculpa no vi q tenia una variable mal definiida es q no me gusta copear y pegar no vi q tenia mal escrito una variable una disculpa de corazon y mil perdona sorry bro thanks me has sacado de mi duda siempre q aprendo un nuevo code me gusta estudiarlo y analizarlo bien no solo copeo y pego graxx amigos yo soy del foro de indetectables solo q no sirve ahoray vine aki espero q no os moleste gracias tio y felices fiestas estare molestandolos mucho tiempo me gusta aprender graxias

<

[BlackZeroX]

soy del foro de indetectables

hay se acostumbra a dar codigos hechos ( algunos copiados ) cuando alguien tiene "dudas" aqui no tanto.

Dulces Lunas!¡.