Add file date to file names in a given folder

'Add file date to file name.

'Adds file date to file names meeting given file path and file mask.
'Posted to SPSSX-L list by Raynald Levesque on 2003/05/21
'rlevesque@videotron.ca http://pages.infinit.net/rlevesqu/index.htm

Sub Main
	Path$="c:\\test\\"
	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