Vytvoření a uložení souboru kde ve jmeně je datum a popř. čas – Visual Basic – Fórum – Programujte.com

Nevím si rady jak dosáhnout toho, aby soubor který uložím s určitými daty (jedná se o txt) se vytvořil a v názvu tohto souboru byl datum a třeba i čas. Vytvářel by se tak pokaždý nový soubor.
Pokud napíšu místo názvu Date tak se samozřejmě bude jmenovat date a nebude mít ve jméně datum

Pokud se jedná o VB6, pak používám

Dim T As String, U As String, V As String, Jm_Kop1 As String, Jm_Kop2 As String

T = Trim(CStr(Day(Date)))
If Len(T) = 1 Then T = "0" & T
U = Trim(CStr(Month(Date)))
If Len(U) = 1 Then U = "0" & U
Jm_Kop1 = Trim(CStr(Year(Date)))
Jm_Kop1 = Jm_Kop1 & "-" & U & "-" & T
T = Trim(CStr(Hour(Time)))
If Len(T) = 1 Then T = "0" & T
U = Trim(CStr(Minute(Time)))
If Len(U) = 1 Then U = "0" & U
V = Trim(CStr(Second(Time)))
If Len(V) = 1 Then V = "0" & V
Jm_Kop2 = T & "-" & U & "-" & T

Open Jm_Kop1 & " " & Jm_Kop2 For Output As #1

Kde Jm_Kop1 & " " & Jm_Kop2 je ve tvaru DD-MM-RR HH-MM-SS
např.: 09-01-08 19-07-35

Není vhodné používat přímo Date a Time, protože v některých nastaveních Windows obsahují lomítko v datumu (09/01/08) a Time obsahuje dvojtečku - ani jeden znak není povolen pro jméno souboru.

Pokud se jedná o VB6, pak používám

Dim T As String, U As String, V As String, Jm_Kop1 As String, Jm_Kop2 As String

T = Trim(CStr(Day(Date)))
If Len(T) = 1 Then T = "0" & T
U = Trim(CStr(Month(Date)))
If Len(U) = 1 Then U = "0" & U
Jm_Kop1 = Trim(CStr(Year(Date)))
Jm_Kop1 = Jm_Kop1 & "-" & U & "-" & T
T = Trim(CStr(Hour(Time)))
If Len(T) = 1 Then T = "0" & T
U = Trim(CStr(Minute(Time)))
If Len(U) = 1 Then U = "0" & U
V = Trim(CStr(Second(Time)))
If Len(V) = 1 Then V = "0" & V
Jm_Kop2 = T & "-" & U & "-" & T

Open Jm_Kop1 & " " & Jm_Kop2 For Output As #1

Kde Jm_Kop1 & " " & Jm_Kop2 je ve tvaru DD-MM-RR HH-MM-SS
např.: 09-01-08 19-07-35

Není vhodné používat přímo Date a Time, protože v některých nastaveních Windows obsahují lomítko v datumu (09/01/08) a Time obsahuje dvojtečku - ani jeden znak není povolen pro jméno souboru.

To jkonopasek :

A co takhle jednoduse

 now & ".txt"

Funkce Now vrací aktuální datum a čas - ale opět musím říct bohužel
- každý má různě nastavená Windows, Now může obsahovat lomítka a dvojtečky
- při distribuci na jiné PC může nastat problém

To jkonopasek :
To mas pravdu , ale vis ze se da nastavit format u now,date apod. ?

nevím a zajímá mě to

tak tomu říkám zjednodušené řešení :-))))

to same mi jde s

date ".txt"

pokud ale pouziju:

dim cas
cas = Date and Time

... cas & ".txt" - tak mi to vyhodí do jmena "0"

uzivjmeno je promená.(obsah txtboxu)


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.opentextfile(uzivjmeno & "-" & Time & ".txt", 2, True)

takhle mi to hlásí špatné volání argumentu, pokud tam dam Date tak vše funguje

pokud tam použiju ale "now"

invalid procedure call of argument

runtime error "5"

nejsem na takové urovni abych veděl proč to házi tuto chybu :-/

Format(now, "yyyymmddhhmm")

To smolda :

Uloz to do nejake promeny .
To jkonopasek : Tady to mas To cvajniga : Mne se ted nejak nechce vracet se na VB ))

To smolda :
Proc pouizivas OpenTextFile ? Myslim si ze existuje i CreateTextFile