Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: 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
    ;Dim n_file As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ;Dim 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
Автор ответа:
 Smith



ICQ: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам