Поиск файла для вставки в переменную

[Diesel]

После переименования файла в "дату", как найти его для переменной $Log?

Dim $Log = 'D:\*.rar' ; не подходит

Dim $Name = @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ";" & @MIN
Dim $Log = 

FileMove("D:\Log.rar", "D:\" & $Name & ".rar")

 

[AZJIO]

Diesel
оно?

$Log ="D:\" & $Name & ".rar"

 

[Diesel]

AZJIO
Неа, не видит :(


Добавлено:

Сообщение автоматически объединено: 21 Янв 2012

Нужно чтобы Log.rar каждый раз переименовывался по разному и его можно было найти через $Log. Посчитал дату с временем лучшим вариантом, но проблематично.

 

[AZJIO]

Diesel

Dim $Name = @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ";" & @MIN
; Dim $Log = 
$Log ="D:\" & $Name & ".rar"

FileMove("D:\Log.rar", "D:\" & $Name & ".rar")
If MsgBox(4, 'Сообщение', 'Проверим видит или нет?')=6 Then
	ShellExecute($Log)
EndIf

 

[Diesel]

AZJIO
Сейчас видит

Выяснил в чем проблема.

Dim $Name = @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ";" & @MIN

Он переименовывает в дату с которой был запущен скрипт, а точнее время (минуты).
Как переименовать в текущее время на компе?


Добавлено:

Сообщение автоматически объединено: 21 Янв 2012

Решил проблему поместив это в бесконечный цикл

$Name = @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ";" & @MIN
$Log ="D:\" & $Name & ".rar"

Весь скрипт в While 1 :-[ Не думал что повлияет на что-то, но сумел догадаться.

AZJIO, благодарю за помощь

 

[Medic84]

Diesel [?]

Весь скрипт в While 1

Не обязательно. Тогда у Вас будет выполняться Ваш скрипт - возможно будут ошибки.
Лучше использовать AdlibRegister и остоянно обновлять Вашу переменную.

Global $Date = @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ";" & @MIN

AdlibRegister("DateUpdate", 1000)

Func DateUpdate()
	$Date = @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ";" & @MIN
EndFunc