---

Jeg er ved at lave et lille program, som jeg skal bruge på mit arbejde.
Det færdige program skal kunne gemme data mange gange om dagen men må ikke
på noget tidspunkt overskrive eksisternde data og det skal kunne gemme
automatisk udenat jeg hver gang skal skrive en titel.Her tæanker jeg på at
gemme i datotidsformat.
Jeg skla lige bemærke at jeg er total newbie indenfor vb.

---

Hei Niels

For eksempel
Format(Now, "yyyymmddhhmmss") & ".txt"

HTH. Beste hilsen Harald

"Niels Orla" <sonop@mjols.dk> skrev i melding
news:Xns9213530061997Sonopmjolsdk@193.88.15.201...
> Jeg er ved at lave et lille program, som jeg skal bruge på mit arbejde.
> Det færdige program skal kunne gemme data mange gange om dagen men må ikke
> på noget tidspunkt overskrive eksisternde data og det skal kunne gemme
> automatisk udenat jeg hver gang skal skrive en titel.Her tæanker jeg på at
> gemme i datotidsformat.
> Jeg skla lige bemærke at jeg er total newbie indenfor vb.

---

"Harald Staff" <harald.staff@nrk.no> wrote in
news:ac7sj4$kvs$1@oslo-nntp.eunet.no:

> Hei Niels
>
> For eksempel
> Format(Now, "yyyymmddhhmmss") & ".txt"
>
> HTH. Beste hilsen Harald
>
> "Niels Orla" <sonop@mjols.dk> skrev i melding
> Hej Harald!
> Den kode får jeg fejl på hele tiden. Er du sikker på den er rigtig?
>

---

"Niels Orla" <sonop@mjols.dk> wrote in message
news:Xns9213D93388EB2Sonopmjolsdk@193.88.15.201...

> > Format(Now, "yyyymmddhhmmss") & ".txt"

> > Den kode får jeg fejl på hele tiden. Er du sikker på den er rigtig?

Hvilken feil ? Kommer en error ? Hvordan ser koden din ut ? Detail please.

Beste hilsen Harald

---

"Harald Staff" <harald.staff@eunet.no> skrev i en meddelelse
news:aca757$l11$1@oslo-nntp.eunet.no...
> "Niels Orla" <sonop@mjols.dk> wrote in message
> news:Xns9213D93388EB2Sonopmjolsdk@193.88.15.201...
>
> > > Format(Now, "yyyymmddhhmmss") & ".txt"
>
> > > Den kode får jeg fejl på hele tiden. Er du sikker på den er rigtig?
>
> Hvilken feil ? Kommer en error ? Hvordan ser koden din ut ? Detail please.
>
> Beste hilsen Harald
> Her den
>>>>Private Sub Gemsom_Click()
1 On Error GoTo CancelValgt
2 Dim FilNummer As Integer
3 Dim FilNavn As String
4 FilNummer = FreeFile
5 FilNavn = "i:\Register\reg\regi.txt "
6 Open FilNavn For Output As #FilNummer
7 Print #FilNummer, Now(), lblBrugernavn
8 Close #FilNummer
9 CancelValgt:
End Sub
>
>Mit problem er linie 5 regi.tst, som jeg gerne vil have om døbt til
datotidsformat, hver gang jeg gemmer.Derved får jeg konstant nye txt,er som
er lig med det tidspunkt de blev lavet.

---

Prøv

5 FilNavn = "i:\Register\reg\" & Format(Now, "yyyymmddhhmmss") & ".txt"

Det kan teoretisk være at bane i krever 8.3 - navnekonvensjonen. I så fall
må vi finde på noget andet.

Jeg tror dit neste problem er linje 7, det komma skal lave problemer. Prøv
f.eks:

7 Print #FilNummer, Now() & chr(9) & lblBrugernavn

HTH. Beste hilsen Harald


"sonop" <sonop@mjols.dk> wrote in message
news:3ce8a4c0$0$78766$edfadb0f@dspool01.news.tele.dk...
>
> "Harald Staff" <harald.staff@eunet.no> skrev i en meddelelse
> news:aca757$l11$1@oslo-nntp.eunet.no...
> > "Niels Orla" <sonop@mjols.dk> wrote in message
> > news:Xns9213D93388EB2Sonopmjolsdk@193.88.15.201...
> >
> > > > Format(Now, "yyyymmddhhmmss") & ".txt"
> >
> > > > Den kode får jeg fejl på hele tiden. Er du sikker på den er rigtig?
> >
> > Hvilken feil ? Kommer en error ? Hvordan ser koden din ut ? Detail
please.
> >
> > Beste hilsen Harald
> > Her den
> >>>>Private Sub Gemsom_Click()
> 1 On Error GoTo CancelValgt
> 2 Dim FilNummer As Integer
> 3 Dim FilNavn As String
> 4 FilNummer = FreeFile
> 5 FilNavn = "i:\Register\reg\regi.txt "
> 6 Open FilNavn For Output As #FilNummer
> 7 Print #FilNummer, Now(), lblBrugernavn
> 8 Close #FilNummer
> 9 CancelValgt:
> End Sub
> >
> >Mit problem er linie 5 regi.tst, som jeg gerne vil have om døbt til
> datotidsformat, hver gang jeg gemmer.Derved får jeg konstant nye txt,er
som
> er lig med det tidspunkt de blev lavet.
>
>

---

"Harald Staff" <harald.staff@eunet.no> skrev i en meddelelse
news:aca9gb$10f$1@oslo-nntp.eunet.no...
> Prøv
>
> 5 FilNavn = "i:\Register\reg\" & Format(Now, "yyyymmddhhmmss") &
".txt"
>
> Det kan teoretisk være at bane i krever 8.3 - navnekonvensjonen. I så fall
> må vi finde på noget andet.
>
> Jeg tror dit neste problem er linje 7, det komma skal lave problemer. Prøv
> f.eks:
>
> 7 Print #FilNummer, Now() & chr(9) & lblBrugernavn
>
> HTH. Beste hilsen Harald
>
>
> Juhuu, det var lige det jeg skulle bruge.
>Jeg siger mange tusind tak
>Med visual-basic hilsen
>Niels orla

---

"sonop" <sonop@mjols.dk> wrote in message
news:3ce8aeeb$0$78771$edfadb0f@dspool01.news.tele.dk...

> > Juhuu, det var lige det jeg skulle bruge.

Velbekomme Niels.