26
Февраль
2009
Как создать нужно колличество файлов?
Как создать нужно колличество файлов?
Option Explicit Dim intN As Integer Dim intI As Integer Dim FileNum As Byte Private Sub Command1_Click() 'Ввели нужную цифру и нужно количество файлов ".doc" 'Причем расширение можно поменять по усмотрению 'В каталоге с программой intN = Val(Text1.Text) For intI = 1 To intN FileNum = FreeFile Open App.Path & "\" & intI & ".doc" For Output As FileNum Close FileNum Next intI End Sub Private Sub Form_Load() Text1.Text = "" End Sub