VBA Tips - Criando pastas via código VBA

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Receba  3 Calendários Customizáveis de  2013 em Excel

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

13 Dicas para se Falar em Público

Rapidinho! Com este código poderá criar uma pasta.

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