VBS Fichero DATE

[palophp]

Hola, tengo un script en VBS que crea un fichero, pero quiero que se añada la fecha actual.
Pero no me lo admite. Este es el codigo:

Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")

Dim objFile

Fichero = "C:\Users\toshiba\Desktop\demo.txt"
Rename = "C:\Users\toshiba\Desktop\" & DATE & " demo.txt"

If objFS.FileExists (Fichero) Then
MsgBox(DATE)
objFS.MoveFile Fichero, Rename ' Renombro el archivo
Else
MsgBox("archivo NO existe")
Set objFile = objFS.CreateTextFile (Fichero)
End If

[Malenko]

Es correcto ya que la concatenación de la ruta y el resultado de DATE no es un nombre de fichero válido. Tendrás que generar un nombre válido usando la concatenación de las llamadas a DAY, MONTH, YEAR, etc.