Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Ponchale en Febrero 09, 2014, 03:07:37 am

Título: Codigo para crear carpetas By Ponchale
Publicado por: Ponchale en Febrero 09, 2014, 03:07:37 am

Código: (vb) [Seleccionar]

MsgBox "Por favor ingresa el nombre del nuevo directorio.", vbInformation, "New directory"
On Error GoTo errhandler
Dim currdir As String, newDir As String
currdir = Dir1.List(Dir1.ListIndex)
again:
newDir = InputBox("Especifica el nombre del archivo:", _
"Crear Directorio", currdir)
If newDir = "" Then
Exit Sub
End If
MkDir newDir
DoEvents
Dir1.Refresh
Exit Sub
errhandler:
If Err.Number = 75 Then
MsgBox "Cambie de nombre por que ya este directoeio existe/Error"
GoTo again
End If
Espero que lo disfruten

Fuente: latinsoft.eshost.es