Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Scratz en 9 Septiembre 2006, 17:15 PM

Título: Crear carpeta desde VB
Publicado por: Scratz en 9 Septiembre 2006, 17:15 PM
Uso MkDir ("C:\Hola\Quetal") para crear una carpeta, pero cuando esta ya está creada me da error. ¿Cómo evito el error y que no me cree una nueva carpeta vacía? Gracias.
Título: Re: Crear carpeta desde VB
Publicado por: Impersecuto en 9 Septiembre 2006, 17:21 PM
Segun entiendo deberias primero posicionarte en la unidad o directorio que contendra la carpeta a crear con ChDir y luego solo creas la carpeta con MkDir Quetal.

La carpeta se creara dentro de la unidad o carpeta donde previamente te hayas posesionado.

Espero no equivocarme.

Saludos
Título: Re: Crear carpeta desde VB
Publicado por: Hendrix en 9 Septiembre 2006, 17:23 PM
kon un On Error Resume Next va que chuta..... ;) ;)

Salu2

Título: Re: Crear carpeta desde VB
Publicado por: Scratz en 9 Septiembre 2006, 17:25 PM
Ok, gracias a los 2.
Título: Re: Crear carpeta desde VB
Publicado por: Dayak en 12 Septiembre 2006, 02:14 AM
Cita de: Hendrix. en  9 Septiembre 2006, 17:23 PM
kon un On Error Resume Next va que chuta..... ;) ;)

Salu2


Soy noob, me gustaria saber como se tiene que acer para introducir en codigo: On Error Resume Next

en el VB6?? es que e visto muchos codigos como estos, i no se donde poner-los.

Ayuda plzz gracias.
Título: Re: Crear carpeta desde VB
Publicado por: Mr.Chispa en 12 Septiembre 2006, 04:20 AM
por ejemplo:

Private Sub Form_Load()
On Error Resume Next
    Open "archivo.txt" For Input As #1
    if err.Number = (yo q c) then solucionar()
End Sub

lo q hace el "On Error Resume Next" es q le dice al compilador q cuando encuentre un error en este sub lo omita, cuando ocurre un error lo guarda en Err, asi podes chequear si ocurrio un error,
tambien podes hacer esto q es algo mas ordenado:

Private Sub Form_Load()
On Error GoTo solucion
    Open "archivo.txt" For Input As #1
solucion:
    id err.Number=(yo q c) then solucion()
End Sub

con este cuando ocurre algun error salta automaticamente a solucion y arregla el problema.
en este ejemplo por si no entendes intenta abrir un archivo, si no lo encuentra salta error, pero como le dijimos q omita los errores sigue a la proxima linea donde nos fijamos si ocurrio tal error (le tenemos q indicar el numbero de error q no lo puse por q no c  ;D), si ocurrio lo q podriamos hacer es indicar al usuario q no existe el archivo, y lito.
saludos.
PD: tambien lo podes poner en el encabezado del codigo para q abarque todo el form
Título: Re: Crear carpeta desde VB
Publicado por: Gorky en 12 Septiembre 2006, 10:04 AM
Cita de: Hendrix. en  9 Septiembre 2006, 17:23 PM
kon un On Error Resume Next va que chuta..... ;) ;)

Yo eso lo veo un poco cutre pero para gustos los colores.

Tal vez sea que soy un maniaco de las Api's. Tienes a tu disposicion una muy bonita que se llama CreateDirectory. Con esta funcion no vas a recibir errores sino que cuando se cree el directorio de forma satisfactoria te va a devolver un valor distinto de 0 y cuando no se haya podido crear (bien porque ya existiera o por cualquier otro motivo) te va a devolver 0.

Las cosas bien hechas estan bien hechas. ;)