'Добавляет к имени файла дату изменения файла. 'Добавление даты к имени файла осуществляется для всех файлов по указанному пути, 'подходящих по маске (расширению) 'Размещено в 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