saving a text file from one path to another with timestamp

[dalex17]

Good afternoon,

I need assistance with a VB code that will copy a .txt file from one location to another.

The catch is, however, that I need the copied .txt (that is, the new .txt file that copied into another location), to end with a time stamp. Here is an example of what I mean:

P:\files\summary.txt save as P:\files\final\summary1205200312:20p.m.txt

I hope this makes sense but please let me know if I can further explain.

Much apreciation,

dalex

 

[BiggerBrother]

dim fso as new filesystemobject
dim ts as textstream
dim mystring as string

set ts=fso.opentextfile("myfile.txt",reading)
myString=ts.readall
ts.close

set ts=fso.opentextfile(app.path & "/" & Now,for writing)
ts.write mystring
ts.close

bb

 

[dalex17]

Thanks Bigger brother,

Could you clarify where my new path should be typed in your second statement beggining with set ts (after the first ts close).

Thank you!

 

[BiggerBrother]

app.path is the folder location of the .exe file you are currently running. Replace this with any folder location, but enclose it with quotations.

BB

 

[dalex17]

BB,

This is what I have. I get an error on the second part below beggining with Set ts

Also, whay did you write ".exe file I am currently running" My objective to copy a text file to anther location. Thanks again.



Dim fso As New filesystemobject
Dim ts As textstring
Dim mystring As String

Set ts = fso.opentextfile("P:\Standard Reports\Acct\Bank\PP File.txt", reading)
mystring = ts.readall
ts.Close

Set ts=fso.opentextfile("P:\Standard Reports\Acct\Bank\PP History" & "/" & Now,for writing)
ts.write mystring
ts.Close

End Sub

 

[BiggerBrother]

Sorry, try this..

Set ts=fso.opentextfile("P:\Standard Reports\Acct\Bank\PP History\summary" & Now & ".txt", forwriting)
ts.write mystring
ts.Close

BB

 

[dalex17]

Thank you BB, however it now does not like:

fso As New filesystemobject


dalex

 

[BiggerBrother]

you need to make a refernce to the ms scripting runtime. This can be found in the project -> references menu.

This should fix this.

BB

 

[dalex17]

Could you point to where Projects->references is located? I do not see it in Projects Explorer...

 

[BiggerBrother]

on the main title menu bar. It should be one of the main menu options. I thought it was in projects, but it may not be. I think it is the third menu after file, and references is one of the bottom options available.

MS scripting runtime is then in alphabetical order.

BB

 

[LPlates]

Without referencing anything you could simply use this...

FileCopy "P:\files\summary.txt", "P:\files\final\summary" & Now & ".txt"

Why reference something like FSO when there is absolutely no need to?