Как создать файл TXT с именем ДЕНЬ_МЕСЯЦ_ВРЕМЯ.тхт

[Daniil]

Как создать файл TXT с именем ДЕНЬ_МЕСЯЦ_ВРЕМЯ.тхт Я идиот! Убейте меня, кто-нибудь! Желательно в папке которую можно меня и в папке где находится программа!!!!!!

Если можно, то пришлите исходник.

И как сделать так, чтобы прослушать звук в формате Flash?Я идиот! Убейте меня, кто-нибудь!?
ПОМОГИТЕ НУЖЕН ИСХОДНИК!!!!!

[GAGArin]

1.

Код: Выделить всё

Open app.path+"\"+familija.caption+ima.captionfor+Otc.caption for output  as #1
close #1
Open text1.text+"\"+familija.caption+ima.captionfor+Otc.caption for output  as #1
close #1


Вроде так. А может нет.

[Sirik]

1.

Код: Выделить всё

  Dim Name_File As String
  Name_File = Mid(Date$, 4, 2) + "_" + Left(Date$, 2) + "_" + Time$ + ".txt"
  Open Name_File For Output As 1
  Close


Можно так, но на это компилятор будет ругается!
Это связанно с форматом времени (часы от минут и секунд, разделенны двоеточеем), тогда надо заменить формат времени, например, 17:20:33 на 17-20-33...
Тогда:

Код: Выделить всё

  Dim Name_File As String
  Name_File = Mid(Date$, 4, 2) + "_" + Left(Date$, 2) + "_" + Left(Time$, 2) + "-" + Mid(Time$, 4, 2) + "-" + Right(Time$, 2) + ".txt"
  Open Name_File For Output As 1
  Close


[A.A.Z.]

Код: Выделить всё

Open App.Path & "\" & CStr(DatePart("d", Date)) & "_" & CStr(DatePart("m", Date)) & "_" & Replace(CStr(Time), ":", "-") & ".txt" For Output As #1
Close #1

У меня в папке создал файл "17_3_20-43-45.txt" - 17 число, 3 месяц (март), 20:43:45 - время

App.Path - путь к папке, в которой прога.
Если хочешь другой, до поставь вместо App.Path, например, "C:\My Folder" (в кавычках!).

[GAGArin]

Всё пора идти спать , а то такую чушь пишу , ведь взял же я откуда то что надо ФИО А не дату... Ужас.

[Ramzes]

Ну блин...блин

Код: Выделить всё

Open "C:\" & format (now, "dd-mm-yyyy") & ".txt" for input as #1
' где dd - дата, mm - месяц, yyy - год
' если хочешь еще время добавить то так hh-nn dd-mm-yy
print #1, "Работает!!!"
close #1