Put Todays Date Into The Filename

[bb01]

I'm trying to build a new script to make things easier here.. it does everything that i want it too...

Except now i need it to find the csv file & then rename it to today's date.csv

& that's where I'm having problems... I know its probably due to my brain being fried from all this scripting.. but any help would be useful...

#include <GUIConstantsEx.au3>
#include <DateTimeConstants.au3>

Opt('MustDeclareVars', 1)

Date_()

Func Date_()
    Local $n, $msg,$hSearch, $sFoundFile, $sFilePath, $replacer
$hSearch = FileFindFirstFile(@ScriptDir & "\*.csv")

; Check if the search handle is valid
If $hSearch = -1 Then
    MsgBox(0, "Wheres The CSV Sheet?", "No csv files found"  & _
@CRLF & @CRLF & " Make sure its in the same folder as this File.")
    Exit
EndIf

While 1
    ; Find the next file
    ; i.e. returns a string containing the value of 01-08-2010.csv
    $sFoundFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    ; Create a full path using @ScriptDir and the found file
    $sFilePath = @ScriptDir & '\' & $sFoundFile

    ; The found file and the filepath are now available for use
    ;
    ; The next line shows what the found file is without the csv
    $replacer = StringReplace ( $sFoundFile, "EOMTemplate", $DTS_SHORTDATEFORMAT)

    ExitLoop
WEnd

; Close the search handle
FileClose($hSearch)

[smartee]

You might be over-complicating things a bit, try this

#include <File.au3>
#include <Array.au3>
#include <Date.au3>

$searchdir = @ScriptDir
$FileList = _FileListToArray($searchdir, "*.csv")
If @error = 4 Then
    MsgBox(0, "Where is The CSV Sheet?", "No csv files found" & _
            @CRLF & 'Make sure its in "' & $searchdir & '"')
    Exit
EndIf

FileMove($searchdir & "\" & $FileList[1], $searchdir & "\" & StringReplace(_DateTimeFormat(_NowCalc(), 2), "/", "-") & ".csv")

Edit: Tidied code

Edited April 6, 2011 by smartee

[bb01]

that works perfect..

thanks for that...

Yes i know i was going the long windded way... & after working on these scripts (got over 60 of them) for god only knows how long.. its fried my brain....

[fuzzie]

If I wanted to attach the newly named file, how would I call it?

I Tried 

$AttachFiles = (_DateTimeFormat(_NowCalc(), 2), "/", "-") & ".pdf"

[Xenobiologist]

What do you mean by attach? Rename it in another way? Send it via email?

[fuzzie]

Renaming it work, thanks!