Cómo crear una nueva carpeta en VB

Categoría: Computadora/Red> Programación> Otros lenguajes de programación

Análisis:

Opción explícita

Dim fso como nuevo FileSystemObject

Dim newfolder As Folder

Escribe lo anterior en general

Crea un botón e ingresa el código a continuación, seguido de una explicación

Private Sub Command1_Click ()

Establezca newfolder = fso.GetFolder(InputBox("¿En qué disco se debe crear el archivo? Como c:")) 'También puede usar inputbox("¡Para crear una carpeta! ")

'Crear una carpeta

Si (fso.FolderExists("c:\windows") = True) Entonces 'la unidad C tiene Windows, así que use c:\windows

fso.CreateFolder (InputBox("¿URL completa del archivo? Como d:\esinc"))

MsgBox ("¡Nueva creación exitosa!")

Else

MsgBox ("¡Error en la nueva creación!")

Finalizar si

Establecer nueva carpeta = Nada

Finalizar sub