Antonariy,
GetTempFileName - я обратил внимание на нее, но она не в тему. Еще и файл в tmp создает. М.б. есть параметры, но лучше с ней здесь не вязаться.
скукотищаДмитрий77,
"солидное" добавление к YYYYMMDDHHMISS
...
Set fso = CreateObject("Scripting.FileSystemObject")
Ничего солидного в Scripting.FileSystemObject не вижу. Неповторяемость можно проверить через Dir если на то пошло.
AkinaА почему не последовательная нумерация? ...
Потому что настройки проги накроются, а файлы и логи останутся. Он нужен, этот лишний гимор?
HandKot, ваш пример красив (проверил) очень крут, ну т.е. слишком очень.
В общем, накрутил так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Option Explicit
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function GetSystemTime Lib "kernel32" _
(lpSystemTime As SYSTEMTIME) As Long
Private Declare Function GetLocalTime Lib "kernel32" _
(lpSystemTime As SYSTEMTIME) As Long
Public Function StringCurTimeRndHex() As String
Dim conSystemTime As SYSTEMTIME
Dim s_len As Integer
GetLocalTime conSystemTime
Randomize
StringCurTimeRndHex = Hex(conSystemTime.wYear) & _
Hex(conSystemTime.wMonth) & _
Hex(conSystemTime.wDay) & _
Hex(conSystemTime.wHour) & _
Hex(conSystemTime.wMinute) & _
Hex(conSystemTime.wSecond) & _
Hex(conSystemTime.wMilliseconds) & _
Hex(CLng(Rnd( 999 ) * 1000 ) - 1 )
s_len = Len(StringCurTimeRndHex)
If s_len > 18 Then
StringCurTimeRndHex = Left(StringCurTimeRndHex, 18 )
ElseIf s_len < 18 Then
StringCurTimeRndHex = StringCurTimeRndHex & Right(StringCurTimeRndHex, 18 - s_len)
End If
End Function
По хорошему, есть понятие Time Stamp (штамп времени ) в hex? в линукс?
но не знаю как правильно его получить, в принципе какая разница.
