Люди добрые
нужен код для сохранения тхт файла с именем текущей даты в формате 27.07.2011.txt
С уважением Дамир

Shocker.Pro,

Извиняюсь вот полный код:

Dim f as Integer
f = FreeFile
Open "C:\txtFile.txt" For Output as f
Print #f, "I create txt file!"
Close f

мне вместо txtFile нужна текущая дата

С уважением Дамир

Shocker.Pro,

И как грамотно все это оформить?

Shocker.Pro,

все сам догнал,
Dim f As Integer

Dim d As Date
d = DateValue(Now)

f = FreeFile
s = CStr(d) + ".txt"

Open "C:\" + s For Output As f

Print #f, dwEnrollNumber

Close f

спасибо ,,,
С Уважением Дамир

Shocker.Pro,

Понятно, об этом я не знал, можно еще вопрос связанный с тхт файлом?

С Уважением Дамир

Shocker.Pro,

Здравствуйте

Мне нужно сохранять данные которые я сливаю с лог файла в тхт вот образец кода:

Private Sub Command7_Click()
Dim arr(100) As String

Dim s As String
Dim i As Integer
If CZKEM1.Connect_Net(Text1.Text, 4370) Then 'dll которая подключается к терминалу
откуда я сливаю данные
Text1.ForeColor = vbRed

End If
While CZKEM1.SSR_GetGeneralLogData(1, dwEnrollNumber, dwVerifyMode, dwInOutMode, dwyear, dwmonth, dwday, dwhour, dwminute, dwsecond, dwworkcode)

For i = 1 To 1

arr(i) = dwEnrollNumber & " " & dwday & " " & dwhour & ":" & dwminute

s = s & arr(i) & Chr(13)

Next i

Wend

msgbox s
FileNum = FreeFile
Open "C:\Text.txt" For Output As #FileNum
Print #FileNum, s
Close #FileNum


End Sub
все работает в месагебокс все отображается как надо а вот в тхт файле сохраняется только первая строка хотя количество строк больше десяти, ввиду отсутствия опыта ни как не могу додумать как организовать цикл для заполнения тхт файла (данные выводятся в столбец), помогите...
С уважением Дамир

Shocker.Pro,


Я знаю
это временный массив просто для проверки что бы визуально видеть как выглядят данные я потом его уберу,

а так все ЗАРАБОТАЛО !!!!

Спасибо "брат", реально выручил ...

Респект

С уважением Дамир