File Move

[mitch26]

I need to move 8 file from different locations, to one location once a week. I want to wright a script to do this once a week at a certain time if the files are up to date. I know its possible, but I am not that good with coding. Please let me know if you have anything. Thank you (MITCH )

 

[Rijnsent]

Excel?

Hi Mitch,

wouldn't it be easier to write a .bat file to do that for you? That's at least what I'm using for that kind of job, with commands like:
copy "c:\temp\blabla.xls" "d:\mydir" /d /y

But otherwise, in the VBA-help there are the items "CopyFile", "MoveFile" and "FileSystemObject", could be handy if you want to copy the files from several locations to 1. As a nice startup, I put some code below,

Koen

Sub Main()
    
    Dim oFSO
    Dim oFile
    Dim sSourceFile
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    sSourceFile = "C:\temp\Member list.pdf"
    Set oFile = oFSO.GetFile(sSourceFile)
        
    If oFile.Datelastmodified < Date - 3 Then
        'Older then 3 days
    Else
        oFSO.CopyFile sSourceFile, "D:\blabla.pdf"
    End If

    ' Clean Up
    Set oFile = Nothing
    Set oFSO = Nothing
End Sub