ayuda Con codigo!

[700esoj]

Muy Bien estoy haciendo un programa en Visual Basic que Crea Y elimina directorios. Lo que necesito saber son varias cosas. 1 necesito saber si el codigo esta en orden, 2 Si la variable q utilize esta correcta osea si deverdad se utiliza Long o si se necesita cambiar el tipo de variable o Dato, 3 Si la forma en que utilize el Check esta bien.

La cosa es que quiero hacerlo con un check, y q cuando el check este enabled, entonces poder crear La Carpeta, y si no lo esta entonces q no me permita hacerlo.

el codigo es el siguiente
------------------------------------------------------

Private sub command1_click()
If Checkbox1.valu e = 1 then
 If text1.text <> "" then
   Msgbox (prompt:="Folder Created Succesfully" Title:="Success" Buttons:= vbOkOnly)
  Dim Folder as Long
  Folder = text1.text
  Mkdir Folder
 else
   Msgbox ("Must Type the Path and Folder Name on the textbox")
  End If
Else
 Msgbox (" You Must Accept Terms of Conditions")
 Check1.SetFocu s
End If
End Sub

Private Sub Checkbox1_clic k()

End Sub

Private Sub Command2_click()
Dim Folder as Long
Folder = text1.text
RMdir Folder
End sub



Muchas gracias d ante mano

-700esoj

[Shadow C]

 Hola mira aqui esta el codigo depurado:


Private Sub command1_click()
If Check1.Value = 1 Then
 If Text1.Text <> "" Then
  Dim Folder As String
  Folder = Text1.Text
  On Error GoTo no
  MkDir Folder
  MsgBox "Folder Created Succesfully", vbOKOnly, "Success"
 Else
   MsgBox ("Must Type the Path and Folder Name on the textbox")
  End If
Else
 MsgBox (" You Must Accept Terms of Conditions")
 Check1.SetFocu s
End If
no:
Err.Clear
MsgBox "The path in incorrect, Try again"
End Sub

Private Sub Command2_click()
Dim Folder As String
Folder = Text1.Text
On Error GoTo no2
RmDir Folder
MsgBox "Folder Deleted Succesfully", vbOKOnly, "Success"
no2:
MsgBox "The path in incorrect, Try again"
End Sub


Errores encontrados:

1- La variables del tipo long sirven para guardar numeros y cadenas... para guardar cadenas de letras se utiliza string:

Dim Folder As Long  Esto es incorrecto

2-Debes poner un error handler porque sino cuando no encuentre la carpeta o ya exista te dara un error en tiempo de ejecucion.

3-los checkbox en VB se llaman Check y el numero tu pusiste checkbox1. Esto estara mal en el caso de que no le hallas cambiado el nombre al objeto

Despue de esto nada mas... la estructura esta muy bien.. solo te falta ponerle las condiciones ( if) a la funcion de borrar carpetas por si el textbox esta bacio... nada mas:

Salu2 Shadow C

[700esoj]

Muchas gracias men. La verdad es que No tengo Visual Basic por ahora xq no tengo una PC estable. Gracias x aclarar las dudas y x explicarme lo del erro handler xq la verdad no tenia ni idea de como utilizar y para que utilizarlos.  Tambien x lo de las variables, por que no entendia lo de Long jejejje. Te debo una!