File Copy on Modified Date

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

File Copy on Modified Date

Logged in as: Guest

arrSession:exec spGetSession 2,2,61841

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> File Copy on Modified Date
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

File Copy on Modified Date - 6/25/2008 1:28:05 AM

nb1

Posts: 1
Score: 0
Joined: 6/25/2008
Status: offline

I expect this is probably a silly question, but I am new to writing vbs scripts, so any help is much appreciated.

I am trying to write a script that can be run as a scheduled task. Firstly to copy files modified in the last 24hours from the first directory to the second.
Secondly to check another pair of directories, and if the first directory has files in it from a more recent month the second directory to copy all files modified within 24H of that file from the first directory to the second. Code below.

This throws the error;

VB_Script.vbs(11, 1) Microsoft VBScript compilation error: Expected statement
>Exit code: 1

Attribute VB_Name = "VB_Script"
'vb script

Const full_source_path = "C:\Full_Path\"
Const full_destin_path = "D:\Full_Path\"
Const diff_source_path = "C:\Diff_Path\"
Const diff_destin_path = "D:\Diff_Path\"

Option Explicit
Dim obj_FSO

Dim obj_Folder
Dim obj_File
Dim obj_Filecollection
Dim modified_date
Dim modified_date_destination

'//Copy all files from diff_source path modified in last 24H to diff_destin_path.

Set obj_FSO = CreateObject("Scripting.FileSystemObject")

Set obj_Folder = obj_FSO.GetFolder(diff_source_path)
Set obj_Filecollection = obj_Folder.Files
   
   For Each obj_File In obj_Filecollection
       If DateDiff("d", obj_File.datelastmodified, date) < 1 Then
           obj_File.Copy (diff_destin_path & obj_File.Name)
       End If
   Next obj_File

'// Get the last modified date in the destination folder
Set obj_Folder = obj_FSO.GetFolder(full_source_path)
Set obj_Filecollection = obj_Folder.Files
   
   For Each obj_File In obj_Filecollection
       If Month(obj_File.datelastmodified) > Month(modified_date_destination) Then
           modified_date_destination = obj_File.datelastmodified
       End If
   Next obj_File

'// Get last modifed date in source folder
Set obj_Folder = obj_FSO.GetFolder(full_source_path)
Set obj_Filecollection = obj_Folder.Files
   
   For Each obj_File In obj_Filecollection
       If Month(obj_File.datelastmodified) > Month(modified_date) Then
           modified_date = obj_File.datelastmodified
       End If
   Next obj_File
   
'// If last dates differ by more than a day, then copy all files in source folder modifed within a day of the last file.
If DateDiff("m", modified_date_destination, modified_date) <> 0 Then
   Set obj_Folder = obj_FSO.GetFolder(full_source_path)
   Set obj_Filecollection = obj_Folder.Files
       
       For Each obj_File In obj_Filecollection
           If DateDiff("d", obj_File.datelastmodified, modified_date) <= 1 Then
               obj_FSO.Copy (full_destin_path & obj_File.Name)
           End If
       Next obj_File
End If

Set obj_FSO = Nothing
Set obj_Folder = Nothing
Set obj_File = Nothing
Set obj_Filecollection = Nothing
Set modified_date = Nothing
Set modified_date_destination = Nothing

WScript.Quit

Post #: 1

RE: File Copy on Modified Date - 6/25/2008 1:53:26 AM

ebgreen

Posts: 5041
Score: 31
Joined: 7/12/2005
Status: offline

I would suggest searching. This is a very common question.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to nb1)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> File Copy on Modified Date

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts