Timestamp ell. lign.

dim timestamp
timestamp = date() & time()


??

Her er netsrac\'s løsning i en version der er ens uanset PC\'ens localsettings (tidszone).

Dim timestamp
timestamp = Right(\"2000\" & Year(Now()), 4)
timestamp = timestamp & Right(\"00\" & Month(Now()), 2)
timestamp = timestamp & Right(\"00\" & Day(Now()), 2)
timestamp = timestamp & Right(\"00\" & Hour(Now()), 2)
timestamp = timestamp & Right(\"00\" & Minute(Now()), 2)
timestamp = timestamp & Right(\"00\" & Second(Now()), 2)

Jeg kom lige til at tænke på at det jo kun er unikt såfremt du kun bruger funktionen EN gang hvert sekund... Prøv i stedet denne...

Private Declare Function GetTickCount Lib \"kernel32\" Alias \"GetTickCount\" () As Long

Dim timestamp
timestamp = Right(\"2000\" & Year(Now()), 4)
timestamp = timestamp & Right(\"00\" & Month(Now()), 2)
timestamp = timestamp & Right(\"00\" & Day(Now()), 2)
timestamp = timestamp & Right(\"00\" & Hour(Now()), 2)
timestamp = timestamp & Right(\"00\" & Minute(Now()), 2)
timestamp = timestamp & Right(\"00\" & Second(Now()), 2)
timestamp = timestamp & Right(\"0000000000\" & GetTickCount, 10)

Ellers er der denne WinAPI funktion...

Public Declare Function GetTempFileName Lib \"kernel32\" Alias \"GetTempFileNameA\" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

spm. kan man nå at save mere end en fil i sekundet ?

Ja !!

Eks.:

Private Declare Function GetTickCount Lib \"kernel32\" Alias \"GetTickCount\" () As Long

Call GemMereEndEnFilISekundet(1024)

Public Sub GemMereEndEnFilISekundet(NumOfBytes)
  Dim f1 As Integer, f2 As Integer
  Dim StartTime As Long
  f1 = FreeFile
  f2 = FreeFile
  StartTime = GetTickCount
  Open \"c:\\x1\" For Output As f1
  Open \"c:\\x2\" For Output As f2
  Print #f1, String(NumOfBytes, \"x\")
  Print #f2, String(NumOfBytes, \"y\")
  Close #f1
  Close #f2
  DoEvents
  Call Msgbox(\"Det tog \" & GetTickCount - StartTime & \" millisekunder at gemme 2 gange \" & NumOfBytes & \" bytes på disc samt at loope give OS\'et tid til at checke andre programmer for events. Have a nice day ;o)\")
End Sub

Ups...
f2 = freefile \'skal lige flyttes ned til efter Open \"c:\\x1\" For Output As f1

netsrac.... Ja, man kan sagtens danne mere end en fil i sekundet.....

Enten ved at man her en klasse der danner flere filer, eller hvis man kører over et netværk hvor f.eks 1000 computere bruger systemet.

winkill..... Du er jo briliant :o)

Jeg må nok hellere se at få kigget lidt nærmere på det der Kernel sjov.... Der er jeg stadig lidt grøn....

rennebo > Tak, hvis du har hele Visual Studio installeret så kan du bruge \"API Text Viewer\" til at se diverse Kernel kald, hvordan de declareres. På http://msdn.microsoft.com/library/default.asp kan du læse om funktionerne - dog i C++ syntax...