Visual Basic FAQ

Если вы хотите, что бы имена файлов начинались не порядковым номером.
А, например “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

Запись опубликована on 19.12.2008 at 9:03 и размещена в рубрике: Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.