How to save a file with date/time stamp automatically 1

[sotando]

The code shown below suppose to create the file name and the date/time stamp but it is giving me errors.

Error Message:

Script: C:\Documents and Settings\tim\desktop\Final_Rev.vbs
Line: 5
Char: 17
Error: The system cannot find the file specified.
Code: 80070002
Source: (null)


Script:

Option Explicit
Dim objShell : Set objShell = WScript.CreateObject("WScript.Shell")
Dim strCMD : strCMD = "stsadm -o backup -url

http://cvr00038

-filename C:\data_" & Convert_Date(Date) & "_0805.bak"
WScript.Echo strCMD
Dim errReturn : errReturn = objSHell.Run(strCMD, 0, True)
If errReturn = 0 Then
MsgBox "Backup reported no errors"
Else
MsgBox "Backup exited with error code: " & errReturn
End If
Function Convert_Date(dtm_Date)
Convert_Date = Right("0" & Month(dtm_Date), 2) &_
Right("0" & Day(dtm_Date), 2) &_
Year(dtm_Date)
End Function

Please advice.
Thanks.

 

[ettienne]

Use the Format$() function to get your date in the format you need.
Format$(Date,"mmddyyyy")

 

[guitarzan]

ettienne,
The Format$() function is not available in vbscript

 

[strongm]

It does however have the (admittedly less versatile) FormatDateTime function. The equivalent of ettienne's function woud be:

Replace(FormatDateTime(Date),"/","")

 

[Geates]

replace(date, "/", "-") will yield "8-27-2009" as the file name. Append the extension and you're good to go.

-Geates

I just realized the pretty much what strongm wrote

 

[guitarzan]

And yet another alternative is to use the Convert_Date function that sotando is already using!! ;-)

However, the error seems to be with the "objSHell.Run(strCMD, 0, True)" command, probably because stsadm cannot be found.

Does the below line work from a command line ??
stsadm -o backup -url

http://cvr00038

-filename C:\data_0805.bak

 

[sotando]

Yes, the stsadm -o backup -url

http://cvr00038

-filename C:\data_0805.bak works from the command line. Please help.

 

[strongm]

>I just realized the pretty much what strongm wrote

To be honest my 'solution' was really just to illustrate the existence of the FormatDateTime function. But it isn't really needed in this scenario.

 

[tsuji]

Try iisreset first to restart iis internet service:

http://www.microsoft.com/technet/pr...2fe-6339-4919-b577-6aa965994a9b.mspx?mfr=true

It is a "severe" action. Check the above doc. Then run the command line again see if it processes. (Also there is a switch -overwrite for 2007sp2, if only it matters.)

 

[strongm]

Try

strCMD = "cmd /c stsadm.exe -o backup -url

http://cvr00038

-filename C:\data_" & Convert_Date(Date) & "_0805.bak"

 

[Geates]

Consideration:
I've never heard of Convert_Date in vbs and I find no reference to it. What is it? Does the return value contain spaces? If so, you'll have to embed quotes (" or chr(34)).

-Geates

 

[guitarzan]

I've never heard of Convert_Date in vbs and I find no reference to it
Look at the original post! And it doesn't insert spaces...

 

[compuveg]

Geates, the Convert_Date function he made and included in his code snippet.

 

[Geates]

Wow, I certainly failed to observe that.

 

[guitarzan]

If strongm's suggestion does not work, I would try the line below before the objSHell.Run statement:

objShell.CurrentDirectory = "C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\12\BIN"

Change the path to match your setup.

 

[Geates]

That's a good suggestion. The error could be cause by something as trivial as current directory.

Instead of objShell.Run, what about objShell.Exec? Granted, there is no window control but will it return something other than a stream?

-Geates

 

[strongm]

>The error could be cause by something as trivial as current directory

Shouldn't be the issue if, as the OP says, it works OK direct from the commandline

 

[sotando]

Thanks strongm changing my code to this:
strCMD = "cmd /c stsadm.exe -o backup -url

http://cvr00038

-filename C:\data_" & Convert_Date(Date) & "_0805.bak"

Worked!! Thanks ALL for your response!!