File Aging Program

[Justin Fancy]

Hi Everyone,

I am developing a file aging program that will eventually report on
every folder that is in the root directory. I have a list of requested
years, and counters set up to count every file within every subfolder
to add up all the files from the specified year. I have the
functionality working, but not quite. With the following code, the end
result includes folders within subfolders. For example, instead of
having root/folder1/ and the next line root/folder1/subfolder, i need
root/folder1, and count including all the folders inside of folder1. So
subfolder will be added in to the count of folder1.

Here's the code:

Imports System.IO

Public Class Form1
Inherits System.Windows. Forms.Form
Dim fmtStr As String = "{0,3} {1,-7} {2,-7} {3, -7} {4, -7} {5, -7}
{6,-7} {7,-7}"

Private Sub btnSearch_Click (ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles btnSearch.Click
lstFilesFound.I tems.Clear()

lstFilesFound.I tems.Add(String .Format(fmtStr, "DIRECTORY" ,
"1995", "1996", "1997", "1998", "1999", "2000", "Total"))
txtFile.Enabled = False
cboDirectory.En abled = False
btnSearch.Text = "Searching. .."
Me.Cursor = Cursors.WaitCur sor
Application.DoE vents()
DirSearch(cboDi rectory.Text)
btnSearch.Text = "Search"
Me.Cursor = Cursors.Default
txtFile.Enabled = True
cboDirectory.En abled = True
End Sub

Sub DirSearch(ByVal sDir As String)
Dim rootLevelFolder (), rootFolder, rootLevelFolder New,
rootLevelFolder Old, bottomLevel(), bottomLevel2() As String
Dim c95, c96, c97, c98, c99, c00, totcount As Integer
Dim d As String
Dim f As String
Dim lastModify As String
Try
For Each d In Directory.GetDi rectories(sDir)
MsgBox(d)
c95 = 0
c96 = 0
c97 = 0
c98 = 0
c99 = 0
c00 = 0
totcount = 0
For Each f In Directory.GetFi les(d)

Dim sb As New System.Text.Str ingBuilder(d)
Dim file As New FileInfo(f)
sb.Replace("C:\ ", "/")
sb.Replace("\", "/")
d = sb.ToString
lastModify = file.LastWriteT ime
Select Case True
Case InStr(lastModif y, "1995")
c95 += 1
totcount += 1

Case InStr(lastModif y, "1996")
c96 += 1
totcount += 1

Case InStr(lastModif y, "1997")
c97 += 1
totcount += 1

Case InStr(lastModif y, "1998")
c98 += 1
totcount += 1

Case InStr(lastModif y, "1999")
c99 += 1
totcount += 1

Case InStr(lastModif y, "2000")
c00 += 1
totcount += 1

End Select

Next
lstFilesFound.I tems.Add(String .Format(fmtStr, d, c95,
c96, c97, c98, c99, c00, totcount))
DirSearch(d)
Next
Catch excpt As System.Exceptio n
Debug.WriteLine (excpt.Message)
End Try
End Sub

Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim s As String
cboDirectory.It ems.Clear()
For Each s In Directory.GetLo gicalDrives()
cboDirectory.It ems.Add(s)
Next
cboDirectory.Te xt = "C:\"
End Sub
End Class

----------------------------------------------------------------------------------------------------------

The output is something like this:

DIRECTORY 1995 1996 1997
1998 1999 2000 total

C:/My Documents 0 1 3
4 6 7 21
C:/My Documents/My Music 89 5 0 7
8 10 119
C:/My Documents.My Videos 0 5 6 7
8 4 30
C:/Windows 90 6 7
9 7 5 124

------------------------------------------------------------------------------------------------------------

What I would prefer is that My Music and My Videos get added into the
My Documents category, instead being its only seperate count. The same
goes with everything else under My Documents. Its very hard to explain,
but I think you may understand.

Any Suggestions??

Justin

[RobinS]

You need a top level that gets a count of those files, and then
goes through the subfolders and gets the count of files in each
subfolders&its subfolders. The second routine needs to be
recursive. Try something like the following. You'll probably
want to catch the exception that gets thrown when it hits the
SystemVolumeInf ormation because you won't have access to that
folder.

Public Sub LookThruFolders (ByVal path As String)
Dim TestCount As Integer
'First, get the number of files in this directory
TestCount = 0
For Each FileFound As String In Directory.GetFi les(path)
TestCount += 1
Next
Console.WriteLi ne(String.Forma t("In {0}, {1} files found.", _
path, TestCount))
For Each dirName As String In Directory.GetDi rectories(path)
TestCount = 0
Call NextLevel(dirNa me, TestCount)
Console.WriteLi ne(String.Forma t("In {0}, {1} files found.", _
dirName, TestCount))
Next
End Sub

Public Sub NextLevel(ByVal path As String, ByRef CountOfFiles As Integer, _
Optional ByVal level As Integer = 0)
'count all the files in this folder and in all the folders below it
'get number of files in this folder, and then
' go through this guy's subfolders
level += 1 'shows how many levels down you are
'uncomment this to see all the folders
'Console.WriteL ine(String.Form at("level = {0}, dir = {1}", _
' level, path.ToString))
For Each FileFound As String In Directory.GetFi les(path)
CountOfFiles += 1
Next
'now process the subfolders by calling this routine for each folder
For Each dir As String In Directory.GetDi rectories(path)
Call NextLevel(dir, CountOfFiles, level)
Next
level -= 1
End Sub

Robin S.
"Justin Fancy" <ju*********@gm ail.comwrote in message
news:11******** **************@ m73g2000cwd.goo glegroups.com.. .

Hi Everyone,

I am developing a file aging program that will eventually report on
every folder that is in the root directory. I have a list of requested
years, and counters set up to count every file within every subfolder
to add up all the files from the specified year. I have the
functionality working, but not quite. With the following code, the end
result includes folders within subfolders. For example, instead of
having root/folder1/ and the next line root/folder1/subfolder, i need
root/folder1, and count including all the folders inside of folder1. So
subfolder will be added in to the count of folder1.

Here's the code:

Imports System.IO

Public Class Form1
Inherits System.Windows. Forms.Form
Dim fmtStr As String = "{0,3} {1,-7} {2,-7} {3, -7} {4, -7} {5, -7}
{6,-7} {7,-7}"

Private Sub btnSearch_Click (ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles btnSearch.Click
lstFilesFound.I tems.Clear()

lstFilesFound.I tems.Add(String .Format(fmtStr, "DIRECTORY" ,
"1995", "1996", "1997", "1998", "1999", "2000", "Total"))
txtFile.Enabled = False
cboDirectory.En abled = False
btnSearch.Text = "Searching. .."
Me.Cursor = Cursors.WaitCur sor
Application.DoE vents()
DirSearch(cboDi rectory.Text)
btnSearch.Text = "Search"
Me.Cursor = Cursors.Default
txtFile.Enabled = True
cboDirectory.En abled = True
End Sub

Sub DirSearch(ByVal sDir As String)
Dim rootLevelFolder (), rootFolder, rootLevelFolder New,
rootLevelFolder Old, bottomLevel(), bottomLevel2() As String
Dim c95, c96, c97, c98, c99, c00, totcount As Integer
Dim d As String
Dim f As String
Dim lastModify As String
Try
For Each d In Directory.GetDi rectories(sDir)
MsgBox(d)
c95 = 0
c96 = 0
c97 = 0
c98 = 0
c99 = 0
c00 = 0
totcount = 0
For Each f In Directory.GetFi les(d)

Dim sb As New System.Text.Str ingBuilder(d)
Dim file As New FileInfo(f)
sb.Replace("C:\ ", "/")
sb.Replace("\", "/")
d = sb.ToString
lastModify = file.LastWriteT ime
Select Case True
Case InStr(lastModif y, "1995")
c95 += 1
totcount += 1

Case InStr(lastModif y, "1996")
c96 += 1
totcount += 1

Case InStr(lastModif y, "1997")
c97 += 1
totcount += 1

Case InStr(lastModif y, "1998")
c98 += 1
totcount += 1

Case InStr(lastModif y, "1999")
c99 += 1
totcount += 1

Case InStr(lastModif y, "2000")
c00 += 1
totcount += 1

End Select

Next
lstFilesFound.I tems.Add(String .Format(fmtStr, d, c95,
c96, c97, c98, c99, c00, totcount))
DirSearch(d)
Next
Catch excpt As System.Exceptio n
Debug.WriteLine (excpt.Message)
End Try
End Sub

Private Sub Form1_Load(ByVa l sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim s As String
cboDirectory.It ems.Clear()
For Each s In Directory.GetLo gicalDrives()
cboDirectory.It ems.Add(s)
Next
cboDirectory.Te xt = "C:\"
End Sub
End Class

----------------------------------------------------------------------------------------------------------

The output is something like this:

DIRECTORY 1995 1996 1997
1998 1999 2000 total

C:/My Documents 0 1 3
4 6 7 21
C:/My Documents/My Music 89 5 0 7
8 10 119
C:/My Documents.My Videos 0 5 6 7
8 4 30
C:/Windows 90 6 7
9 7 5 124

------------------------------------------------------------------------------------------------------------

What I would prefer is that My Music and My Videos get added into the
My Documents category, instead being its only seperate count. The same
goes with everything else under My Documents. Its very hard to explain,
but I think you may understand.

Any Suggestions??

Justin

[Justin Fancy]

So where do you suggest I put the select statements I have proposed.
Because i am using the FileInfo class to dig up the lastModified
attribute of each file in a particular. I want to loop through each
file in a root level directory (including all subfolders), and count up
the number of files that were last accessed in 1995, 96, and so on all
in seperate categories. Then, when all the files are looped through,
break and go to the next directory.

Justin

[RobinS]

If you mean how do you get a count for each year?
First, I'd split out the routine that counts the files.

Then I would replace TestCount with an array of
counts, where the 1st entry was for the first year,
the 2nd was for the 2nd year, and so on.

In IncrementCountO fFiles, you check the year
and add it to the appropriate array entry.

I'm anal-retentive, so I would probably set up
an array that had the years in it that
corresponded to each entry in the array of
counts, so I wouldn't have the years hardcoded.

If I put this in production, I would look up
how to make the years date field; I'll leave
that for you to do if you so choose. If you
use an integer field, you'll have to convert
year to integer when you do the compare.

Dim myYears(10) as Integer
'Fill this somewhere with your seed values
For i as Integer = 1995 to 2006
myYears(i) = i
Next i
Dim myCounts(10) as integer

'**Change all places that use TestCount
'** to use myCounts instead. In fact, you
'** can put the definition of myCounts
'** inside this routine, or just change TestCount to TestCount(10).
'** The loop to fill myYears could go
'** inside LookThruFolders , too.
'**
Public Sub LookThruFolders (ByVal path As String)
Dim TestCount As Integer
'First, get the number of files in *this* directory
TestCount = 0
IncrementCountO fFiles(TestCoun t, path)
Console.WriteLi ne(String.Forma t("In {0}, {1} files found.", _
path, TestCount))
For Each dirName As String In Directory.GetDi rectories(path)
TestCount = 0
Call NextLevel(dirNa me, TestCount)
Console.WriteLi ne(String.Forma t("In {0}, {1} files found.", _
dirName, TestCount))
Next
End Sub

'**Replace CountOfFiles with an array of integers.
Public Sub NextLevel(ByVal path As String, ByRef CountOfFiles As Integer, _
Optional ByVal level As Integer = 0)
'count all the files in this folder and in all the folders below it
'get number of files in this folder, and then
' go through this guy's subfolders
level += 1 'shows how many levels down you are
'uncomment this to see all the folders
'Console.WriteL ine(String.Form at("level = {0}, dir = {1}", _
' level, path.ToString))
IncrementCountO fFiles(CountOfF iles, path)
'now process the subfolders by calling this routine for each folder
For Each dir As String In Directory.GetDi rectories(path)
Call NextLevel(dir, CountOfFiles, level)
Next
level -= 1
End Sub

'**Replace CountOfFiles with an array of integers.
Private Sub (ByRef CountOfFiles as Integer, ByVal path as String)
For Each FileFound As String In Directory.GetFi les(path)
'**Here, add logical to get the year.
'Then you can look thru the array to find the matching year
' and increment the appropriate pointer.
For i as Integer = 0 to CountOfFiles.Le ngth
if myYears(i) = YearInteger Then
CountOfFiles(i) += 1
End If
Next
Next
End Sub

Does that make sense?
Robin S.
"Justin Fancy" <ju*********@gm ail.comwrote in message
news:11******** **************@ h48g2000cwc.goo glegroups.com.. .

>
So where do you suggest I put the select statements I have proposed.
Because i am using the FileInfo class to dig up the lastModified
attribute of each file in a particular. I want to loop through each
file in a root level directory (including all subfolders), and count up
the number of files that were last accessed in 1995, 96, and so on all
in seperate categories. Then, when all the files are looped through,
break and go to the next directory.

Justin

[Justin Fancy]

Perfect Robin. I've figured it out and its working fine!

Thanks so much for your help.
Justin

[RobinS]

Great; I'm glad I could help.
Robin S.

"Justin Fancy" <ju*********@gm ail.comwrote in message
news:11******** *************@f 16g2000cwb.goog legroups.com...

Perfect Robin. I've figured it out and its working fine!

Thanks so much for your help.
Justin