Question

I am new to VBS. I need help to do the following steps;

1) Find the lastest modified folder(folder with latest date time) at a location lets say C:\temp.

2) Then find the specific file (with extention .txt) in the subfolder (of the above mentioned folder)

3) Copy that file to another location, lets assume C:\temp1

4) Rename the file name to current date, for example 2011-02-14

Thanks

Answer 1

VBScript:

BaseDir = "C:\Temp"
FileToFind = "test.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set fl = fs.GetFolder(BaseDir)

For Each sfl In fl.SubFolders
    If IsNull(fd) Or sfl.DateCreated > fd Then
        fd = sfl.DateCreated
        Found = sfl.Path & "\"
    End If
Next

Set f = fs.GetFile(Found & FileToFind)

f.Copy "C:\Temp1\" & Year(Date) & Month(Date) & Day(Date), True

There may be problems including “-” in the file name, so I left it out.