Test Foro de elhacker.net SMF 2.1

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

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



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!¡.


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


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.

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

Cita de: ind3t3ctabl3 en 25 Enero 2011, 05:31 AM
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.... :o...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.

>:D<

Cita de: ind3t3ctabl3 en 25 Enero 2011, 05:39 AM
soy del foro de indetectables

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

Dulces Lunas!¡.