Как создать кучу файлов через цикл? - VB

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

Итак: задача - создать множество файлов (можно пустых) с порядколвыми номерами от 1 до n в заданой через DriveListBox папке. Я так думаю тут единсвенный вариант использовать цикл For...Next. Однако, пока так и не понял как можно составить цикл для создания множества файлов. Подскажите?

Решение задачи: «Как создать кучу файлов через цикл?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Private Sub Комманда1_Click()
Dim J
Dim PATH
PATH = App.PATH 'здесь назначешь свой путь
For J = 1 To 500
Open PATH & "\" & J & ".txt" For Output As 1
Close #1
Next J
End Sub

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

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

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

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

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