Adding time to a file save..

[thetambarineman]

I've become stuck on a small but nagging problem. When I want to save a file-using the Filecopy proc. The thing is that once i try to transfer the file over i want to add a time to it.. i.e. Employeeddmmyyyy.mdb

where ddmmyyyyy is the date. The thing is when you try to stick that in i.e. "Employee" & now & ".mdb" this crashes out because Windows doesn't support the "\" char while saving a file.
Does anyone know of a way around this??

Thanks in advance?

Paul..

 

[Bostlabs]

Here is a snip of code I wrote for a filecopy routine in VBS. They should work fairly the same in VB (Some modifications my be needed. )


dim dtmMonth, dtmDay, dtmYear, dtmMDY

dtmMonth = Month(date)
dtmDay = Day(date)
dtmYear = Year(date)
dtmMDY = dtmMonth & "-" & dtmDay & "-" & dtmYear
set ExcelSheet = CreateObject("Excel.sheet&quot 'Creating an Instance
'of the Excel Object
ExcelSheet.Application.Visible = true 'Show Excel

' Add code to make excel do some work here

ExcelSheet.SaveAs"C:\SResults" & dtmMDY & ".xls"
ExcelSheet.Application.quit

-------This works great. the filename is SResults1162000.xls (Example for today.)

HTH

Steve


Stephen Boston
stephenb@nbarizona.com

http://members.home.net/bostlabs

 

[dpaulson]

"Employee" & replace(Date$,"-","&quot & ".mdb" will give you Employee11062000





David Paulson

 

[dgs]

Try this:
Dat2 = "Employee" & Format(Now, "mm-dd-yyyy hh:mm:ss&quot & ".mdb"
You can also accomplish this without changing your code by changing the date separator to "-" in Control Panel "Regional Configurations". The downside is that your programs will no longer use "/"in dates. Personally I've been using "-" for years because I think it looks better!!

 

[swilliams]

If all you want is ddmmyyyy as the date part of the file name, use Format(Now(), "ddmmyyyy&quot to format the current date.

Simon