The last thing we're going to do is create a subroutine that will back up your file and will actually create a dated back up file. So it will be your file name with the date on the end of it, so you can know when you backed it up. So let's go ahead and get started. Let me show you what we're going to be creating in this screencast. I just have an example file here. So when this thing is run when we click make back up, it's already done. It was pretty quick. So what it did was, in the directory, we have created a backup file. So let me actually delete this and let's run that again. So I clicked make back up and it's going to save it with today's date. So today is February 17, 2018. Every couple of days, you can make a backup and it'll have the date on there of when that file was backed up. Now, what I'm doing here is I'm not having the user select the directory. Just like I did in the sinking files screencast, I have this sheet here that's already has the path typed into cell A1. So it's kind of like a static path. And then what I do is right click, and hide that, and it's just hidden. However, you can still access that path sheet with your VBA code. The first thing we're going to do is dim path As a String. That's going to be the path that's on that path sheet. We're going to then say the path = Sheets("Path") Range ("A1"). So that's cell A1 that has the static path that's in the hidden sheet path. Now, this is how we can get the date. There's a function that's built into VBA. We just do Now, empty parentheses, that gives us the date. It actually gives you the date, and the time, and something else, I forget. But there's three elements. What we can do, all those three elements are split by a space. So I can split that into a NowArray using the Split function. The first element of the NowArray, which is actually the zero element is the date. So that will be 2-17-2018, for today. Unfortunately, the date has forward slashes in it, and those you cannot use in filenames. So we're going to have to do something to replace those forward slashes with hyphens. I also need to dim NowArray. That's going to be dimmed as a variant. So I dimmed that and then we're going to set today date, which also needs to be dimmed as a string. And we're going to set today date using this Replace function. So remember, the Split function takes the three elements of the Now function that are separated by a space, and separates that into an array. The first element, which is actually the zero element is going to be the date which is 2/17/2018. But we"re going to use this Replace function in VBA. Wherever we have a forward slash we're going to replace it with a hyphen because you can't use forward slashes in the names of files. And finally, we can use this With statement. We can use.SaveCopyAs. This will save this file as a copy but then, after it, you can have the name of the file. So I'm concatenating the path with Grade_Manager_Backup. That's just the name that I'm deciding to give this, with an underscore. And then, we're concatenating that with today's date, which is obtained up here. And then we got the file type.xlsm, and then we're done. So let's just step through this. We have path, which was defined in cell A1 of that hidden sheet, and that's down here in the Locals window. We can then use the Split function to create this NowArray. If I open up the NowArray, you see that it has separated into the date, the time, and I guess, that third element is pm or am. Today data is going to be, we're going to replace the zeroth element of the NowArray of zero, which is down here. See we have those forward slashes, we need to replace those with hyphens. So when I press F8 again, you see today date got transferred and converted into the hyphenated date. And then, all we do is we save this file as a copy with that file extension. Now, there's one more thing that I'm going to do and that is, if you've already saved the file today and you try to do it again, it's going to come up with a warning that you're going to overwrite that file. So let's just put it in a single line of code and that is Application.DisplayAlert=False. So it won't display those alerts. It will just automatically say yes in those boxes. So this is how then you can do this. And let's just go ahead and press F5 and that's all it was. We going here and it's made a back up here. So that's how you can back up your roster in the Great Manager Project. Hope this helps. Thanks for watching.
