What I'm trying to do is create a file copy script, that will look inside a folder and find files named by the days of the week, RE: Monday, tuesday, etc, and copy the backup files with the same name into the days of the week folders.
then age the files inside this folders, by 7 days, so I will have a weeks worth of backup files inside these folders.
I found information on this forums regarding robocopy, but did not find any thing by searching the forums regarding ingrating robocopy with vbs to do this.
here is with code I'm working with: just a start, with same basic idea, but with files only.
So to help you I think we will need some more information. What exactly is the form of the name of the files in the source folder? What does the name need to look like in the individual day folders?
I remember you where the one, that recommend robocopy, what a great utility. I read documentation on it, and it seemed like to do not have the ability to copy file to folders based on name like (tuesday).
The files that I'm working with are the days of the week.
By default I have all files go into a folder, I would like to then have a script run after the backup and put any file with say Tuesday into the Tuesday folder, then also age the file, because of space limits, say only keep 7 days worth of these files, then delete them.
you want these files to be seperated into seven folders named for the days of the week.
Where will the day folders be? Subfolders of Den_Server_Backup? What do you want the name of the files to be in the day folders? Obviously they can't have the same name as they have in Den_Server_Backup or they would just overwrite the existing file each time that you copied one in.
Well I would put all files into the Den_Server_Backup folder, then copy to days of the week folder.but your right how can I handle this without overwriting the same say tuesday file with say the second or third copy.
Is there a way to age files before copying, like if, then, else statement?
This is a problem, I'm trying to learn as much as I can regarding vbscripting, but this is over my head.
Basically all I need is something to help me save 7 days of ntbackup files, so incase I need to restore back 7 days I'll have it. the main problem is the ntbackup, will not name the files on date or any custom naming standard, like Tuesday010307, if that was the case it would make it a lot more easy. know if someone here knows a way to name these files using ntbackup, please let me know. I thought about finding a way to have the script rename them based on date, but I again do not know even where to start that project.
Thanks alot for doing all of that work, it works great, and thanks for putting the great comments into the script, as a beginner, I learned the hard way, regarding the trailing \ , it took me a long time to figure that one out and it still get me sometimes.
I do have one question. The script when it renames the files, which is awesome, it write them like this example.
SUNDAY20070111bkf
it is missing the . for file extention
So my guess is it has do to with this code:
Hi, EBGreen
I tried several different things to get the . period to append to the file name, with no luck.
Also I found that the files still remain in the main folder DenServerBackup, and I was write this code up and thought that I have the ntbackup overwriting the files, so I guess I will not need this. what do you thing?
That worked, but I was thinking more, I will also need to get the code in the previous post working, so that my external backup hard drive, does not run out of space, so if you can help me figure out this code to delete file that we copied into the days of the week folders, that are older then 7 days.
I know i might not be using the if else or if elseif statements correctly. Also I have the Expected 'End' error message.
I fix one error in the second script:
This: File.Delete True
and changed it to:
oFile.Delete True
so you can update your script.
Thanks for all of you help, if you have time, look at my script and give me some ideas to either make it better or how I can go about rewriting it.
Posts: 2414
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline
Below is what you had. Notice how structuring it with indentations makes it easier to read and therefore easier to see what you're missing. I think you were missing an "End If". This is by no means the most efficient. You might be able to shrink this in the same manner EBGreen has helped you out with the other parts of your script.
thanks for the comment, I do have a question regarding the End If's.
Why do you need the two End If's?
Also what does the Next really do, since I do not have anymore code after it?
I check the MSDN web site and found the information above, but it did not really help me.
I would think it would have told me Expected 'End If' and not Expected 'End'.
dm_4ever thanks again for all of your help in the past. I can really say these forums are such a great asset to the VBS community, specially with people like yourself and EBGreen, he has helped me today a lot and I know that everyone’s time is very valuable. I have been trying to learn from posting to this forum and reading other peoples reply and suggestions, which I find more valuable then most of my text books.
Posts: 2414
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline
The 1st End If is to close out this If: If filesys.FileExists("c:\DenServerBackup\Sunday.bkf") Then The 2nd End If is to close out this If: If datediff("d",File.DateLastModified,Now) > 7 Then 'How many days old the file is The Next completes your: For Each File In Files
For more info on the For Each...Next statement you can look (http://msdn2.microsoft.com/en-us/library/tywtbxd0.aspx)
I have completed this code, I made some changes to the ;;;, and had help from dm_4ever with my End If statement problem. I now have another issue, and need your help.
the problem is in the file names, I need to check to see if they are older then 7 days, if they are delete them, which will help my stay within the space limitations of my ext hard drive. what you did with the files names is awesome getting the create date or last modified into it will work great for me, but with my current code, I do not know how to get it to work with these file names. I do know how if it is a name like Sunday, but not SUNDAY20070111.bkf.
Also do you being a expert see anything in this code, after getting the file problem fixed, like the Path = "c:\DenServerBackup", should I maybe use s Dim statement?
I'll try to figure out what I would do and then let you correct me. Well I can list all files, but how do I read the date part of the file name?
Posts: 2414
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline
I just realized. You don't need this line
Set filesys = CreateObject("Scripting.FileSystemObject")
You already created a FileSystemObject with your set fso. You can replace filesys.FileExists with fso.FileExists. You're currently only looking at the files located at the root of your path and not any of the subdirectories.
Printable Version
Backup Script-copy - 
Change this: 
