Pls correct this simple code

[bnath005]

I get compiler error:

objFile.name = "opxinhdr.txt" & Date()

 

[PHV]

Any chance you could post the error message ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[bnath005]

Invalid procedure call or argument.

this is the error message

 

[PHV]

The Date function returns illegal characters for a valid pathname ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[bnath005]

so How to attach today's date at the end of the file?
thanks
nath

 

[PHV]

How would you name the file today ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[bnath005]

thus far, I didn't have to do.

 

[PHV]

OK, I rephrase: WHAT DO YOU WANT TO DO ?

 

[bnath005]

I want to append todays date as part of the name of the existing file.

I thought the folloiwng code would work.

objFile.name = "opxinhdr.txt" & Date()

 

[PHV]

So, again, what would be the name today ?
Open an Explorer window and do it manually to discover what you can and what you can't do ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[IknowMe]

objFile.name = "opxinhdr.txt" & 10000*Year(Date) + 100*Month(Date) + Day(Date)

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.

 

[mrmovie]

strDate = "get it somehow"
strTemp = aFile.Name
'Wscript.Echo aFile.Name
'perhaps should check for . being there...
If InStr(strTemp, ".") Then
strStart = Left(strTemp, InStrRev(strTemp, ".") - 1)
strExt = Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".") + 1)
'perhaps could have got the extension with a FSO.Getxxxx
aFile.Name = strStart & "_" & strDate & strExt
Else
aFile.Name = aFile.Name & strDate
End If

 

[Jerz]

strYear = Year(Date)
strMonth = Month(Date)
If Len(strMonth) = 1 then
  strMonth = "0" & strMonth
End if
strDay = Day(Date)
If Len(strDay) = 1 then
  strDay = "0" & strDay
End if
strOutputFile = "DisabledComputers" & strYear & "-" & strMonth & "-" & strDay & ".htm"

gives name "DisabledComputers2007-01-17.htm