1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
'Добавляет к имени файла дату изменения файла.

'Добавление даты к имени файла осуществляется для всех файлов по указанному пути,
'подходящих по маске (расширению)
'Размещено в SPSSX-L 21.05.2003. Автор: Raynald Levesque
'rlevesque@videotron.ca http://www.spsstools.net, http://www.spsstools.ru

Sub Main
	Path$="c:\\temp\\"
	F$ = Dir$(Path$ & "*.spo")
    Debug.Print F$
    While F$ <> ""
    	T$=CStr(FileDateTime(Path$ & F$))
        Debug.Print F$;" ";T$
        T$=Replace (T$,".","-")
        Name Path$ & F$ As Path$ & Left(F$,InStr(F$,".")-1) & " " & Left(T$,InStr(T$," ")-1) & ".spo"
        F$ = Dir$()
    Wend
End Sub