Criando pastas via código VBA

Bethoven

22:55

Este código irá ensinar como criar uma pasta via código vba.

Código para criar pastas

Sub Cria_Pastas()
Dim fso, f,f1,f2,f3
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.CreateFolder("c:\Nome da pasta")
   Set f1= fso.CreateFolder("c:\Nome da pasta")
   Set f2= fso.CreateFolder("c:\Nome da pasta")
   Set f3= fso.CreateFolder("c:\Nome da pasta")
   CreateFolderDemo = f.Path
   CreateFolderDemo = f1.Path
   CreateFolderDemo = f2.Path
   CreateFolderDemo = f3.Path
End Sub