Макрос который создает папку! - VBA

Формулировка задачи:

Здравствуйте, мне нужен макрос который бы создавал указанное количество папки! Например написал 3 папки он создал 3 папки, при одном запуске! (название начиналась с нумерации, 1,2,3 итд) Количество папки я указываю внутри кода а не через меседж бох!

Решение задачи: «Макрос который создает папку!»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub tt()
    Dim fso, Foldername, i&, задаювкоде&
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Foldername = "f:\Downloads\"
    задаювкоде = 3
    For i = 1 To задаювкоде
        fso.CreateFolder Foldername & i
    Next
End Sub

Оцени полезность:

5 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы