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