Copy files with certain date creation

ASP Free Forums Sponsor:

August 1st, 2007, 05:07 PM

sam76210

Registered User

Join Date: Aug 2007

Posts: 5

Time spent in forums: 1 h 26 m 8 sec
Reputation Power: 0

VBScript - Copy files with certain date creation

Hello,
can anyone help me to create script file for copying files for last n days (last 30 days).
thanks
sam

August 2nd, 2007, 07:34 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Folding Points: 206875 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

Well, you've been pretty vague in what you're looking for. Here's a script that will look in a provided folder and copy all files that haven't been accessed in 30 days. Did you just want to archive them and delete the originals? This script simply creates copies. That seems a bit pointless to me.

vb Code:

Original - vb Code

numDays = 30
strSource = "C:\Windows\Temp"
strDest = "C:\Windows\Temp2"
 
Set objfso = CreateObject("Scripting.FileSystemObject")
If objfso.FolderExists(strPath) Then
   Set objFolder = objfso.GetFolder(strPath)
   Call CheckFolder(objFolder, numDays, True)
Else
   WScript.Echo "The specified folder", strPath, "does not exist"
End If
 
Sub CheckFolder(objFolder, numDays, bRecurse)
   Set colFiles = objFolder.Files
   If colFiles.Count > 0 Then
       For Each objFile In colFiles
          Call CopyOldFile(objFile, numDays)
       Next
   Else
       WScript.Echo "No files in folder", objFolder.Path
   End If
   If bRecurse Then
       Set colSubfolders = objFolder.SubFolders
       If colSubfolders.Count > 0 Then
          For Each SubFolder In colSubfolders
              CheckFolder SubFolder, numDays, True
          Next
       End If
   End If
End Sub
 
Sub CopyOldFile(objFile, numDays)
   On Error Resume Next
   Err.Clear
   dateFile = objFile.DateLastModified
   dateToday = Now()
   If dateFile <= dateToday Then
       daysOld = dateToday - dateFile
       If daysOld > numDays Then
          strFile = objFile.Path
          objFile.Attributes = 0
          objFile.Copy strDest
          If Err.number <> 0 Then
              WScript.Echo Err.number, Err.Description, Err.Source, strFile
          Else
              WScript.Echo strFile, "copied"
          End If
       End If
   Else
       WScript.Echo "Incorrect date stamp in", strFile
   End If
End Sub

__________________

Click the image if at any point you don't like my decision.

Scripting problems? Windows questions? Ask the Windows Guru!

Subscribe to Nilpo's Live Article Feed

August 2nd, 2007, 10:23 AM

sam76210

Registered User

Join Date: Aug 2007

Posts: 5

Time spent in forums: 1 h 26 m 8 sec
Reputation Power: 0

Copy files with certian date creation

Nilpo, sorry about the post with confusion and I do appreciated that you took time to reply my post. I have one folder which collecting data files every day. Everyday 2 or some case 4 files created. What i am looking for to copy last 30 days files. For last 30 days, there could be 60 files or 120 files. Regardless # of files, i would like to copy by date. Please let me know if you have any question. I got one code but it is not working. This is the error, "Backup folder not exist". I do have folder backup there though.

dim BackupFilesSigDate, oFSO, oFolder, srcfolder, tgtfolder, oFile
BackupFilesSigDate = date-1
srcfolder="C:\Images"
tgtfolder="C:\Backup"

set oFSO = CreateObject("Scripting.FileSystemObject")
on error resume next
set oFolder = oFSO.GetFolder(tgtfolder)
if clng(oFile.DateCreated)=BackupfileSigDate-1 then
wscript.echo "The Backup Folder does not exists. Operation aborted."
set oFolder = nothing : set oFSO = nothing
wscript.quit(1)
end if

set oFSO = CreateObject("Scripting.FileSystemObject")
on error resume next
set oFolder = oFSO.GetFolder(srcfolder)
if clng(oFile.DateCreated)=BackupfileSigDate-1 then
wscript.echo "The Source Folder does not exists. Operation aborted."
set oFolder = nothing : set oFSO = nothing
wscript.quit(2)
end if

on error goto 0
for each oFile in oFolder.files
if oFile.DateCreated=BackupfileSigDate then
oFSO.copyfile oFile.path, tgtFolder & "\" & oFile.name, true
end if
next
set oFolder = nothing : set oFSO = nothing

thanks in advance

Quote:

Originally Posted by Nilpo

vb Code:

Original - vb Code

numDays = 30
strSource = "C:\Windows\Temp"
strDest = "C:\Windows\Temp2"
 
Set objfso = CreateObject("Scripting.FileSystemObject")
If objfso.FolderExists(strPath) Then
   Set objFolder = objfso.GetFolder(strPath)
   Call CheckFolder(objFolder, numDays, True)
Else
   WScript.Echo "The specified folder", strPath, "does not exist"
End If
 
Sub CheckFolder(objFolder, numDays, bRecurse)
   Set colFiles = objFolder.Files
   If colFiles.Count > 0 Then
       For Each objFile In colFiles
          Call CopyOldFile(objFile, numDays)
       Next
   Else
       WScript.Echo "No files in folder", objFolder.Path
   End If
   If bRecurse Then
       Set colSubfolders = objFolder.SubFolders
       If colSubfolders.Count > 0 Then
          For Each SubFolder In colSubfolders
              CheckFolder SubFolder, numDays, True
          Next
       End If
   End If
End Sub
 
Sub CopyOldFile(objFile, numDays)
   On Error Resume Next
   Err.Clear
   dateFile = objFile.DateLastModified
   dateToday = Now()
   If dateFile <= dateToday Then
       daysOld = dateToday - dateFile
       If daysOld > numDays Then
          strFile = objFile.Path
          objFile.Attributes = 0
          objFile.Copy strDest
          If Err.number <> 0 Then
              WScript.Echo Err.number, Err.Description, Err.Source, strFile
          Else
              WScript.Echo strFile, "copied"
          End If
       End If
   Else
       WScript.Echo "Incorrect date stamp in", strFile
   End If
End Sub

August 2nd, 2007, 07:37 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

Try removing the clng() functions when you're making your date comparison. VBS will handle types all on it's own. You'll notice in my example, I didn't convert any of them. I did that intentionally.

August 3rd, 2007, 12:13 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,048

Time spent in forums: 5 Days 12 h 32 m 33 sec
Reputation Power: 555

I just noticed this as well...

oFSO.copyfile oFile.path, tgtFolder & "\" & oFile.name, true

Take a look at the FileSystemObject's BuildPath function. Although, that shouldn't stop this from working.

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: