Loop thru all subfolders and list all files under each

[Bill Nguyen]

I need a VB routine to loop thru a select top folder to find all subfolders
and list all subfolders/files under each of these subfolders.
Any help is greatly appreciated.
Bill

[Herfried K. Wagner [MVP]]

"Bill Nguyen" <bi************ *****@jaco.com> schrieb:

I need a VB routine to loop thru a select top folder to find all subfolders
and list all subfolders/files under each of these subfolders.

<URL:http://dotnet.mvps.org/dotnet/samples/filesystem/FileSystemEnume rator.zip>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Bill Nguyen]

I appreciated this but I really don't know where to start. The readme.txt
doesn't tell me a thing about how to get this going.
Any thing I have to do in order to get the demo running?

Bill

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** *******@TK2MSFT NGP14.phx.gbl.. .

"Bill Nguyen" <bi************ *****@jaco.com> schrieb:

I need a VB routine to loop thru a select top folder to find all
subfolders and list all subfolders/files under each of these subfolders.

<URL:http://dotnet.mvps.org/dotnet/samples/filesystem/FileSystemEnume rator.zip>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Herfried K. Wagner [MVP]]

"Bill Nguyen" <bi************ *****@jaco.com> schrieb:

I appreciated this but I really don't know where to start. The readme.txt
doesn't tell me a thing about how to get this going.
Any thing I have to do in order to get the demo running?

I see, my sample is a bit "oversized" . The listing below shows a reduced
version:

\\\
Imports System.IO

Friend Module Module1
Friend Sub Main()
EnumerateDirect ory("C:\WINDOWS ")
End Sub

Private Sub EnumerateDirect ory(ByVal RootDirectory As String)

For Each s As String In Directory.GetFi les(RootDirecto ry)
Console.WriteLi ne("File found: " & s)
Next s
For Each s As String In Directory.GetDi rectories(RootD irectory)

' Prevent enumeration of reparse points.
'
' Platform SDK: Storage -- Reparse Points
'
<URL:http://msdn.microsoft. com/library/en-us/fileio/base/reparse_points. asp>
'
' You can create an infinitely recursive directory tree
'
<URL:http://blogs.msdn.com/oldnewthing/archive/2004/12/27/332704.aspx>
If _
Not (File.GetAttrib utes(s) And FileAttributes. ReparsePoint)
= _
FileAttributes. ReparsePoint _
Then
Console.WriteLi ne("Directory found: " & s)
EnumerateDirect ory(s)
End If
Next s
End Sub
End Module
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Bill Nguyen]

herfried;
I can't run any of your code in your application. It gave me some kind of
error!
Below is my newbie version but all it can do is to list all files in a
single-level directory.
How can I loop thru all directories to list files in lowest level folder and
move to the next?

Thanks a billion

Bill

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

Dim mDir, mFile, rootDir, mrootPath, mFolder, mFileName As String

Dim mCount As Integer

rootDir = "C:\windows "

' For Each s As String In Directory.GetFi les(rootDir)

For Each d As String In Directory.GetDi rectories(rootD ir)

'Console.WriteL ine("File found: " & s)

'mSourceFile = .FileName.Subst ring(OpenFileDi alog1.FileName. LastIndexOf("\" )
+ 1)

mFolder = d.Substring(d.L astIndexOf("\") + 1)

mrootPath = d.Substring(0, d.LastIndexOf(" \"))

mDir += mrootPath & "\" & mFolder & vbCrLf

For Each f As String In Directory.GetFi les(d)

mFileName = f.Substring(f.L astIndexOf("\") + 1)

'mrootPath = f.Substring(1, d.LastIndexOf(" \"))

mFile += mFileName & vbCrLf

Next f

MsgBox(mFile)

mFile = ""

Next d

MsgBox(mDir)

End Sub

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:Oc******** ******@TK2MSFTN GP14.phx.gbl...

"Bill Nguyen" <bi************ *****@jaco.com> schrieb:

I appreciated this but I really don't know where to start. The readme.txt
doesn't tell me a thing about how to get this going.
Any thing I have to do in order to get the demo running?

I see, my sample is a bit "oversized" . The listing below shows a reduced
version:

\\\
Imports System.IO

Friend Module Module1
Friend Sub Main()
EnumerateDirect ory("C:\WINDOWS ")
End Sub

Private Sub EnumerateDirect ory(ByVal RootDirectory As String)

For Each s As String In Directory.GetFi les(RootDirecto ry)
Console.WriteLi ne("File found: " & s)
Next s
For Each s As String In Directory.GetDi rectories(RootD irectory)

' Prevent enumeration of reparse points.
'
' Platform SDK: Storage -- Reparse Points
'
<URL:http://msdn.microsoft. com/library/en-us/fileio/base/reparse_points. asp>
'
' You can create an infinitely recursive directory tree
'
<URL:http://blogs.msdn.com/oldnewthing/archive/2004/12/27/332704.aspx>
If _
Not (File.GetAttrib utes(s) And FileAttributes. ReparsePoint)
= _
FileAttributes. ReparsePoint _
Then
Console.WriteLi ne("Directory found: " & s)
EnumerateDirect ory(s)
End If
Next s
End Sub
End Module
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Herfried K. Wagner [MVP]]

"Bill Nguyen" <bi************ *****@jaco.com> schrieb:

I can't run any of your code in your application. It gave me some kind of
error!

Error message?

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Chris Dunaway]

The whole purpose of Herfried's method was that it is a *recursive*
method, i. e. it calls itself. But you have removed the recursion and
therefore it only scans the first directory.

Here is Herfried's method again (slightly altered):

Imports System.IO

Friend Module Module1
Friend Sub Main()
EnumerateDirect ory("C:\WINDOWS ")
End Sub

Private Sub EnumerateDirect ory(ByVal RootDirectory As String)

For Each s As String In Directory.GetFi les(RootDirecto ry)
'******* Perform task on file s here. Replace with your
own file
'******* manipulation code here
Next

For Each s As String In Directory.GetDi rectories(RootD irectory)

'Correct me if I'm wrong Herfried but this line prevents
recursion into
'empty folders
If Not (File.GetAttrib utes(s) And
FileAttributes. ReparsePoint) = _
FileAttributes. ReparsePoint Then

'***** Perform work in folder s here. Replace with
your
'***** folder manipuation code here

'Notice we're calling ourself here to get data on child
folders
'This is the recursive part!
EnumerateDirect ory(s)
End If
Next
End Sub
End Module
BTW: Why are you using substring parse out the portions of your
folders and filename? why not use the methods in the System.IO
namespace?

For example, instead of:

mrootPath = d.Substring(0, d.LastIndexOf(" \"))

use this instead:

mrootPath = Path.GetPathRoo t(d)

and instead of

mFileName = f.Substring(f.L astIndexOf("\") + 1)

use this instead:

mFileName = Path.GetFileNam e(f)

[Bill nguyen]

Chris;

Thanks for the tip.
mFileName = Path.GetFileNam e(f) worked great!

mrootPath = Path.GetPathRoo t(d) only give me the root path. I need to get
the name of the folder at subsequent levels.
For example, the full path:

C:\Base\Level1\ level2\level3\L evel4\Filename. TXT
C:\Base is the base (root) dir.
I need to parse the folder name Level1 thru level4 and assign a
corresponding folder level ID 2,3,4) to these folders.

Any idea how to do this?
Thanks in advance.

Bill


"Chris Dunaway" <du******@gmail .com> wrote in message
news:11******** *************@z 14g2000cwz.goog legroups.com...

The whole purpose of Herfried's method was that it is a *recursive*
method, i. e. it calls itself. But you have removed the recursion and
therefore it only scans the first directory.

Here is Herfried's method again (slightly altered):

Imports System.IO

Friend Module Module1
Friend Sub Main()
EnumerateDirect ory("C:\WINDOWS ")
End Sub

Private Sub EnumerateDirect ory(ByVal RootDirectory As String)

For Each s As String In Directory.GetFi les(RootDirecto ry)
'******* Perform task on file s here. Replace with your
own file
'******* manipulation code here
Next

For Each s As String In Directory.GetDi rectories(RootD irectory)

'Correct me if I'm wrong Herfried but this line prevents
recursion into
'empty folders
If Not (File.GetAttrib utes(s) And
FileAttributes. ReparsePoint) = _
FileAttributes. ReparsePoint Then

'***** Perform work in folder s here. Replace with
your
'***** folder manipuation code here

'Notice we're calling ourself here to get data on child
folders
'This is the recursive part!
EnumerateDirect ory(s)
End If
Next
End Sub
End Module
BTW: Why are you using substring parse out the portions of your
folders and filename? why not use the methods in the System.IO
namespace?

For example, instead of:

mrootPath = d.Substring(0, d.LastIndexOf(" \"))

use this instead:

mrootPath = Path.GetPathRoo t(d)

and instead of

mFileName = f.Substring(f.L astIndexOf("\") + 1)

use this instead:

mFileName = Path.GetFileNam e(f)

[Stuart Irving]

C:\Base\Level1\ level2\level3\L evel4\Filename. TXT
C:\Base is the base (root) dir.
I need to parse the folder name Level1 thru level4 and assign a
corresponding folder level ID 2,3,4) to these folders.

Any idea how to do this?
Thanks in advance.

Do something like this (one I prepared earlier... you don't need to use XML.
To add the folder level counter add a line to increment a class-level counter
inside the recursion loop and include its value in the output:

Private Function GetFiles(ByRef XmlDoc As XmlDocument, ByRef ParentNode
As XmlElement, ByVal DirPath As String, Optional ByVal IncludeSubFolde rs As
Boolean = True) As XmlNode

Dim objFileInfo As FileInfo
Dim objDir As DirectoryInfo = New DirectoryInfo(D irPath)
Dim objSubFolder As DirectoryInfo

'add a node for each file
For Each objFileInfo In objDir.GetFiles ()
Dim MyFileNode As XmlElement = XmlDoc.CreateEl ement("Node")
MyFileNode.SetA ttribute("type" , "file")
MyFileNode.SetA ttribute("id", intCount.ToStri ng)
intCount += 1
MyFileNode.SetA ttribute("type" , objFileInfo.Ext ension)
MyFileNode.SetA ttribute("size" , objFileInfo.Len gth.ToString)
MyFileNode.SetA ttribute("text" , objFileInfo.Nam e)
ParentNode.Appe ndChild(MyFileN ode)
Next

'call recursively to do sub folders
'if you don't want this set optional
'parameter to false

'add the folder node
If IncludeSubFolde rs Then
For Each objSubFolder In objDir.GetDirec tories()
Dim DirNode As XmlElement = XmlDoc.CreateEl ement("Node")
DirNode.SetAttr ibute("type", "folder")
DirNode.SetAttr ibute("id", intCount.ToStri ng)
intCount += 1
DirNode.SetAttr ibute("text", objSubFolder.Na me)
ParentNode.Appe ndChild(DirNode )
GetFiles(XmlDoc , DirNode, objSubFolder.Fu llName, True)
Next
End If

Return ParentNode

End Function

[Bill Nguyen]

Stuart;

Sorry for my very late response. I'd been away for a long period of time.
Thanks for your help!

Bill

"Stuart Irving" <Stuart Ir****@discussi ons.microsoft.c om> wrote in message
news:62******** *************** ***********@mic rosoft.com...

C:\Base\Level1\ level2\level3\L evel4\Filename. TXT
C:\Base is the base (root) dir.
I need to parse the folder name Level1 thru level4 and assign a
corresponding folder level ID 2,3,4) to these folders.

Any idea how to do this?
Thanks in advance.

Do something like this (one I prepared earlier... you don't need to use
XML.
To add the folder level counter add a line to increment a class-level
counter
inside the recursion loop and include its value in the output:

Private Function GetFiles(ByRef XmlDoc As XmlDocument, ByRef ParentNode
As XmlElement, ByVal DirPath As String, Optional ByVal IncludeSubFolde rs
As
Boolean = True) As XmlNode

Dim objFileInfo As FileInfo
Dim objDir As DirectoryInfo = New DirectoryInfo(D irPath)
Dim objSubFolder As DirectoryInfo

'add a node for each file
For Each objFileInfo In objDir.GetFiles ()
Dim MyFileNode As XmlElement = XmlDoc.CreateEl ement("Node")
MyFileNode.SetA ttribute("type" , "file")
MyFileNode.SetA ttribute("id", intCount.ToStri ng)
intCount += 1
MyFileNode.SetA ttribute("type" , objFileInfo.Ext ension)
MyFileNode.SetA ttribute("size" , objFileInfo.Len gth.ToString)
MyFileNode.SetA ttribute("text" , objFileInfo.Nam e)
ParentNode.Appe ndChild(MyFileN ode)
Next

'call recursively to do sub folders
'if you don't want this set optional
'parameter to false

'add the folder node
If IncludeSubFolde rs Then
For Each objSubFolder In objDir.GetDirec tories()
Dim DirNode As XmlElement = XmlDoc.CreateEl ement("Node")
DirNode.SetAttr ibute("type", "folder")
DirNode.SetAttr ibute("id", intCount.ToStri ng)
intCount += 1
DirNode.SetAttr ibute("text", objSubFolder.Na me)
ParentNode.Appe ndChild(DirNode )
GetFiles(XmlDoc , DirNode, objSubFolder.Fu llName, True)
Next
End If

Return ParentNode

End Function