19
Декабрь
2008
Если вы хотите, что бы имена файлов начинались не порядковым номером.
Если вы хотите, что бы имена файлов начинались не порядковым номером.
А, например “00” и порядковый номер, пожалуйста.
И, допустим, писать в каждый файл текст.
Option Explicit Dim N As Integer Dim i As Integer Private Sub Command1_Click() N = Text1.Text Dim FileNum As Byte FileNum = FreeFile For i = 1 To N Open App.Path & "\" & "00" & i & ".doc" For Output As FileNum Print #FileNum, "Всем привет " & i & " раз!" _ & vbNewLine _ & "Очень легкий пример создания тучи файлов, хоть " _ & i & "000 штук!!!" Close FileNum Next End Sub Private Sub Form_Load() Text1.Text = "" End Sub