Сообщество Чайников

Вопрос

Как на VB создать большое количество папок?
Например при нажатии на кнопку создается 15000 папок в директории C:\

Ответ

Да очень просто. В цикле. Например так:

Dim i As Integer
For i=1 to 1500
    MkDir "C:\MoyaPapka" & Cstr(i)
Next

Этот незамысловатый код создает в корне диска C 1500 папок:

MoyaPapka1
MoyaPapka2
MoyaPapka3
…
MoyaPapka1498
MoyaPapka1499
MoyaPapka1500

Из конференции Expert_FAQ