VBA Tips - Criando pastas via código VBA



Sub MakeFolder() 
   Dim fso, f,f1,f2,f3

   Set fso = CreateObject ("Scripting.FileSystemObject") 
   Set f  = fso.CreateFolder ("c:\Bernardes_Folder_001") 
   Set f1= fso.CreateFolder ("c:\Bernardes_Folder_002") 
   Set f2= fso.CreateFolder ("c:\Bernardes_Folder_003") 
   Set f3= fso.CreateFolder ("c:\Bernardes_Folder_004") 

   Let CreateFolderDemo = f.Path 
   Let CreateFolderDemo = f1.Path 
   Let CreateFolderDemo = f2.Path 
   Let CreateFolderDemo = f3.Path 

End Sub

Tags: VBA, folder, pasta


Nenhum comentário:

Postar um comentário

diHITT - Notícias