VB Script Problem

[itsmarkdavies]

I am running an VBScript ActiveX script from a SQL Server 2000 Job Step. The Job runs fine and reports success, but the file I am trying to move does NOT move. Can anyone spot a flaw in my Script ?. Any ideas much appreciated.

Script is as follows :-

Function STAMP
STAMP = FormatDateTime(Date, 1)
Call Archive "\\SERVER1\c$\bills.txt"
End Function

Function Archive(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject&quot

If (fso.FileExists(filespec)) Then

fso.MoveFile filespec, "\\SERVER1\c$\archive\bills"
& STAMP & ".txt"

End If

Set fso = Nothing
End Function itsmarkdavies@hotmail.com

 

[tlbroadbent]

When using the FormatDateTime function, the 2nd parameter
tells which date format to use. Format 1 is the long date defined on the computer's regional settings. Very likely, the long date format has slashes, hyphens, colons, etc. You should change the code to create a proper date string for the file name.

See the following links for a couple of ideas on how to format dates in VB script.

http://www.sqldts.com/default.aspx?6,101,200,0,1

http://www.sqldts.com/default.aspx?6,102,213,0,1

If you want to get the best answer for your question read faq183-874 and faq183-3179.
Terry L. Broadbent - DBA
SQL Server Page:

http://tlbroadbent.home.attbi.com/sql/sql_articles.htm

 

[itsmarkdavies]

Thanks Terry, that was it.
I split the date and time up and formatted each segment individually, then re-combined them into a string and it works perfectly.

Cheers. itsmarkdavies@hotmail.com