How to get files from Sub Folders

ASP Free Forums Sponsor:

August 16th, 2007, 11:19 AM

sam76210

Registered User

Join Date: Aug 2007

Posts: 5

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

VBScript - How to get files from Sub Folders

Hello Guy's,
Please help me with this code. I am new in VBScript. Here is my Code;

dim BackupFilesSigDate, HTRoFSO, HTRFile, HTRFolder, HTRsrcfolder
BackupFilesSigDate = Now()-0.1
wscript.echo BackupFilesSigDate

'HTRsrcfolder= "C:\HTRDATA\DM4FS1" & "C:\HTRDATA\DM4FS2" '& C:\HTRDATA\DM4FS2"THIS DOES NOT WORK

HTRsrcfolder= "C:\HTRDATA\DM4FS1"

set HTRoFSO = CreateObject("Scripting.FileSystemObject")
on error resume next
set HTRFolder = HTRoFSO.GetFolder(HTRsrcfolder)

Wscript.Echo HTRFolder.Path

on error goto 0
on error resume next

for each HTRFile in HTRFolder.files

if HTRFile.DateLastModified>=BackupFilesSigDate then
wscript.echo HTRFile

'HTRoFSO.DeleteFile HTRFile.path, HTRtgtfolder & "\" & HTRFile.name, True 'THIS DOES NOT WORK

'wscript.echo HTRoFSO.Delete 'THIS DOES NOT WORK

'HTRFile.path, HTRtgtfolder & "\" & HTRFile.name, True 'THIS DOES NOT WORK

on error resume next
end if
Next

set HTRFolder = nothing : set HTRoFSO = nothing

Two Issues;

1. With above code, i can not able to delete files (i am sorting newest file for last 4 hrs...Basically trying to get newest few hrs old files). I got the files but couldn't able to delete them.

2. i have many sub-folders. What will be the easy way to find 4 hrs (lastmodifiedDate) files from all the sub-folder and delete them.

I do appreciate in advance for all expertiese.

Sam

August 17th, 2007, 01:36 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

You were basically on the right track, but you had a lot of syntax errors. There's also no point toggling error-handling on and off that many times.

I've streamlined your code a bit and made it more efficient by using subroutines. I've also added subfolders to it and made it so that you can add more folders to the list. Just add them to the array.

vb Code:

Original - vb Code

BackupFilesSigDate = Now() - 0.167 'Time 4 hours ago
 
Set arrFolders = Array("C:\HTRDATA\DM4FS1", "C:\HTRDATA\DM4FS2")
Set objFso = CreateObject("Scripting.FileSystemObject")
 
For i = 0 To arrFolders.Count - 1
    Set objFolder = objFso.GetFolder(arrFolder(i))
    killFiles(objFolder) 'Delete files
    doSubfolders(objFolder) 'Delete files in subfolders
    Set objFolder = Nothing
Next
 
Sub killFiles (ByRef objFolder) 'Delete all files in folder
    Set colFiles = objFolder.Files
    
    On Error Resume Next
    For Each objFile In colFiles
        If objFile.DateLastModified <= BackupFilesSigDate Then 'Delete files older than 4 hours ago
            objFile.Delete
        End If
    Next
    On Error Goto 0
End Sub
 
Sub getSubFolders(strFolder) 'If subfolders exist, process files in each folder
    Set colSubfolders = objFolder.SubFolders
    For Each objSubfolder In colSubfolders
        killFiles(objSubfolder)
    Next
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

Last edited by Nilpo : August 24th, 2007 at 07:55 PM.

August 17th, 2007, 12:49 PM

sam76210

Registered User

Join Date: Aug 2007

Posts: 5

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

How to get files from Sub Folders

Quote:

Originally Posted by Nilpo