Sub crearCarpeta()
Dim obS As Scripting.FileSystemObject
Dim carpeta As Scripting.Folder
Dim nombreCarpeta As String
nombreCarpeta = Range("D2").Value
Set obS = New FileSystemObject
Set carpeta = obS.CreateFolder("D:\Users\Manuel\Documents\Documents\57 VBA Desarroladores\" & nombreCarpeta)
MsgBox "Se ha creado la carpeta"
End Sub
23 окт 2020