| Вопрос: Visual Basic 6.0: Cохранение файла с порядковым но | Добавлено: 11.12.11 17:40 |
Автор вопроса:  митя
|
|
При нажатии кнопки, программа создаёт файл 1.avi
При следующем нажатии кнопки, программа этот файл (1.avi) переписывает, заменяя другим 1.avi. Как сделать, чтобы программа не заменяла файл, а присваивала ему автоматически другое имя Например: 1.avi , потом 2. avi , потом 3. avi. и.т.д |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #1 | Добавлено: 11.12.11 22:06 |
|
Элементарно, счетчик
Public FileAVI as Long - Сохранение файла FileAVI & ".avi" - FileAVI = FileAVI + 1 |
||
|
Номер ответа: 2 Автор ответа: митя Вопросов: 1 Ответов: 4 |
Профиль | | #2 | Добавлено: 11.12.11 22:27 |
|
А как это будет выглядеть? например с txt
Private Sub Command1_Click() Dim f As Integer f = FreeFile Open App.Path & "\1.txt" For Output As f Print #f, "I create txt file!" Close f End Sub |
||
|
Номер ответа: 3 Автор ответа: Cramper Вопросов: 15 Ответов: 93 |
Профиль | | #3 | Добавлено: 12.12.11 13:23 |
|
Public Class Form1  im n_file As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click im f_name As String
n_file = n_file + 1 'Номер файла f_name = "C:\" & LTrim$(Str(n_file)) & ".txt" 'MsgBox(f_name) FileOpen(1, f_name, OpenMode.Output) Print(1, "Я создал " & f_name & " файл!" 
FileClose() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load n_file = 0 End Sub End Class |
||
|
Номер ответа: 4 Автор ответа: митяВопросов: 1 Ответов: 4 |
Профиль | | #4 | Добавлено: 12.12.11 14:07 |
И что это ? в Visual Basic 6.0 весь код отображается красными буквами, соответственно не работает 
Напишите пожалуйста кто нибудь рабочий код, без всяких MsgBox |
||
|
Номер ответа: 5 Автор ответа: CramperВопросов: 15 Ответов: 93 |
Профиль | | #5 | Добавлено: 12.12.11 16:18 |
| Это код в VB 2010. Изначально конкретизируйте, пожалуйста для какого VB вам нужно. | ||
|
Номер ответа: 6 Автор ответа: митяВопросов: 1 Ответов: 4 |
Профиль | | #6 | Добавлено: 12.12.11 16:20 |
| Visual Basic 6.0 | ||
|
Номер ответа: 7 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #7 | Добавлено: 12.12.11 17:57 |
|
Public FileAVI as Long
Private Sub Command1_Click() .............. Open App.Path & "\" & FileAVI & ".txt" For Output As f .............. Close f FileAVI = FileAVI + 1 |
||
|
Номер ответа: 8 Автор ответа: митяВопросов: 1 Ответов: 4 |
Профиль | | #8 | Добавлено: 12.12.11 18:16 |
| Огромное человеческое спасибо! | ||
Страница: 1 |