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
