VB scripts to archive mutliple files with date

[fredong]

Hi,
I am using VB script for Active X DTS. I have mulitple files like (AA.txt, BB.txt. CC.txt) in a directory \\servername\Data and I need to archive it to the directory \\servername\Data\Archive once it is exported through DTS. I like to archive it and add latest date after the original names for example like (AA_20070516.txt, BB_20070516.txt. CC_20070516.txt). Any ideas? Thanks.

 

[dm4ever]

This is a very common question. Do a search in this forum for "format date" and you'll find plenty of posts regarding similar things.

here is one:

http://www.tek-tips.com/viewthread.cfm?qid=1364176

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[fredong]

I think I did not make self clear. In the \\servername\Data directory there are many different formats of files and I only want to archive the .txt files and add the dates to the end of each file. Is that possible? Thanks.

 

[dm4ever]

You will want to look at the FileSystemObject object to recurse through your folders and look a the files.

http://msdn2.microsoft.com/en-us/library/z9ty6h50.aspx

You should be able to find examples of this since it is a frequent type of question. In particular you want to look at the GetFolder method which will let you look at the files in that folder.

Once you have your recursion going, then you want to look at the names to see if they have the .txt extension.

The following post shows several files and folder examples...one comparing a datecreated...you should be able to modify to look at the extension.

Again, search and you'll find similar things here.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[sparkbyte]

Here is a thread from a simular question that should help.

thread329-1208195

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[dm4ever]

Nice find sparkbyte...shows using FSO and WMI

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[fredong]

Thanks everyone.