Crear carpeta desde VB

Iniciado por Scratz, 9 Septiembre 2006, 17:15 PM

0 Miembros y 1 Visitante están viendo este tema.

Scratz

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.
\\... The Revolution Is Comming ...//

Impersecuto

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
Impersecuto de Chile

"Porque no tenemos nada queremos hacerlo todo"

Hendrix

kon un On Error Resume Next va que chuta..... ;) ;)

Salu2

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

Scratz

\\... The Revolution Is Comming ...//

Dayak

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.

Mr.Chispa

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

Gorky

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. ;)