Views

Histats

Vitrine

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


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...