Имя файла!!!

@abonRC · Регистрация: 11.01.2009

Author24 — интернет-сервис помощи студентам

Что надо добавить в следующий код, чтобы при каждом нажатии на кнопку имя файла (по умолчанию 1.txt) увеличивалось на 1, т.е. каждый раз не называлось 1.txt.

Visual Basic

Private Sub Obz_Click()
Dim strFilename As String
DoCmd.RunSQL 'Update igor Set igor.flag=1 Where (((igor.key) In (Select top 800 key From igor Where flag=0)))'
strFilename = funGetSaveFileName(Me.hWnd, _
'Текст(*.txt)' & Chr$(0) & '*.txt' & Chr$(0) & Chr$(0), _
'1.txt', 'Поиск и запись txt файла', 'Txt', 'C:Obz ')
If strFilename = '' Then
DoCmd.RunSQL 'Update igor Set igor.flag=0 Where (((igor.key) In (Select top 800 key From igor Where flag=1)))'
Exit Sub
End If
DoCmd.TransferText acExportFixed, 'IgorSpec', 'SelectPriznak', strFilename
DoCmd.RunSQL 'Update igor Set igor.flag=2 Where (((igor.key) In (Select top 800 key From igor Where flag=1)))'
End Sub

С уважением, Игорь!!!

@Михайло · 12.08.2010, 11:08

Visual Basic

Dim file_no as byte
 
Private Sub Obz_Click()
Dim strFilename As String
DoCmd.RunSQL 'Update igor Set igor.flag=1 Where (((igor.key) In (Select top 800 key From igor Where flag=0)))'
file_no=file_no+1
strFilename = funGetSaveFileName(Me.hWnd, _
'Текст(*.txt)' & Chr$(0) & '*.txt' & Chr$(0) & Chr$(0), _
file_no & '.txt', 'Поиск и запись txt файла', 'Txt', 'C:Obz ')
If strFilename = '' Then
DoCmd.RunSQL 'Update igor Set igor.flag=0 Where (((igor.key) In (Select top 800 key From igor Where flag=1)))'
Exit Sub
End If
DoCmd.TransferText acExportFixed, 'IgorSpec', 'SelectPriznak', strFilename
DoCmd.RunSQL 'Update igor Set igor.flag=2 Where (((igor.key) In (Select top 800 key From igor Where flag=1)))'
End Sub

@abonRC · 12.08.2010, 12:43 **[ТС]**

Спасибо огромное!!!

А не подскажите еще как сделать, чтобы при сохранении, если уже в мой дирректории имеется файл с таким названием спрашивалось о перезаписи имеющегося файла. Надо менять код или API-функцию?

С уважением, Игорь!!!

@abonRC 0 / 0 / 0 Регистрация: 11.01.2009 Сообщений: 63
	12.08.2010, 12:43 [ТС]	3
	Спасибо огромное!!! А не подскажите еще как сделать, чтобы при сохранении, если уже в мой дирректории имеется файл с таким названием спрашивалось о перезаписи имеющегося файла. Надо менять код или API-функцию? С уважением, Игорь!!! 0