Visual Basic

EuroCPian Spring 2004 Get Together[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

EuroCPian Spring 2004 Get Together[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Dim srt As New Scripting.FileSystemObject
Dim drv As Drive
Dim fld As Folder
Dim f As File

  Set drv = srt.Drives("C:\")
  Set fld = drv.RootFolder
  For Each f In fld.Files
    Debug.Print f.Name
  Next

Dim fso As New FileSystemObject
Dim List As TextStream

Const C_PLUS As String = "+ "
Dim i As Integer ' Indent

Private Sub Main()
Dim d As Folder

  Set d = fso.GetFolder("N:\")
  Set List = fso.CreateTextFile(d.Path & "NewSongList.txt", True)

  DoFolders d
  List.Close
  
End Sub

Private Sub DoFolders(fldr As Folder)
Dim d As Folder
  If i = 0 Then
    List.WriteLine Space(i) & C_PLUS & fldr.Path
  Else
    List.WriteLine Space(i) & C_PLUS & fldr.Name
  End If
  i = i + 2
  DoFiles fldr
  For Each d In fldr.SubFolders
    DoFolders d
  Next
  i = i - 2
End Sub

Private Sub DoFiles(fldr As Folder)
Dim f As File

  For Each f In fldr.Files
    List.WriteLine Space(i + 2) & f.Name
  Next
End Sub

           'Create a new xml textwriter and write to a stringwriter object
            Dim sw As New StringWriter
            Dim writer As New XmlTextWriter(sw)
            'Write document element
            writer.WriteStartElement("Files")
            'Get the files here
            ListFoldersAndFiles(Server.MapPath("MyFolder"), writer)
            writer.WriteEndElement()
            'Write end document element
            'Clean up objects
            writer.Flush()
            writer.Close()
            writer = Nothing
            Dim xmldoc As New XmlDocument
            xmldoc.LoadXml(sw.ToString())


Private Sub ListFoldersAndFiles(ByVal pth As String, ByRef writer As XmlTextWriter)
    AddFiles(pth, writer)
    AddFolders(pth, writer)
End Sub

Public Sub AddFiles(ByVal pth As String, ByRef writer As XmlTextWriter)
    Dim sFiles() As String = Directory.GetFiles(pth)
    Dim iFiles As Integer
    For iFiles = 0 To UBound(sFiles)
        writer.WriteStartElement("Files")
        writer.WriteStartElement("Path")
        writer.WriteString(pth)
        writer.WriteEndElement()
        writer.WriteStartElement("Filename")
        writer.WriteString(Path.GetFileName(sFiles(iFiles)))
        writer.WriteEndElement()
        writer.WriteEndElement()
    Next
End Sub

Public Sub AddFolders(ByVal pth As String, ByRef writer As XmlTextWriter)
    Dim sDirectories() As String = Directory.GetDirectories(pth)
    Dim iDirectories As Integer
    Dim sDirectoryName As String
    For iDirectories = 0 To UBound(sDirectories)
        AddFolders(sDirectories(iDirectories), writer)
        AddFiles(sDirectories(iDirectories), writer)
    Next
End Sub

Dim folders As New System.Collections.Specialized.StringCollection<br />
<br />
 Private Function GetAllDirectories(ByVal Name As String)<br />
        On Error Resume Next<br />
        Dim finder As System.IO.Directory<br />
        Dim cdir As New System.Collections.Specialized.StringCollection<br />
        Dim cdir2 As New System.Collections.Specialized.StringCollection<br />
        <br />
        Dim cancel As Boolean = False<br />
        Dim dir As String<br />
<br />
        cdir.AddRange(finder.GetDirectories(Name))<br />
        folders.AddRange(finder.GetDirectories(Name))<br />
<br />
        Do While cancel = False<br />
<br />
            For Each dir In cdir<br />
                folders.AddRange(finder.GetDirectories(dir))<br />
                cdir2.AddRange(finder.GetDirectories(dir))<br />
            Next<br />
            If cdir2.Count = 0 Then<br />
                cdir = Nothing<br />
                cdir2 = Nothing<br />
                Dim i As Integer<br />
                For i = 0 To folders.Count<br />
                    lst.Items.Add(folders(i).ToString)<br />
                Next<br />
                cancel = True<br />
                Exit Do<br />
            Else<br />
                cdir.Clear()<br />
                Dim y As Integer<br />
                For y = 0 To cdir2.Count<br />
                    cdir.Add(cdir2(y))<br />
                Next<br />
                cdir2.Clear()<br />
                dir = Nothing<br />
                y = Nothing<br />
            End If<br />
<br />
        Loop<br />
<br />
        MessageBox.Show(lst.Items.Count)<br />
    End Function<br />
<br />
 Private Function GetAllFiles()<br />
        On error resume next<br />
        Dim files As System.IO.Directory<br />
        Dim dir As String<br />
        For Each dir In folders<br />
            lst.Items.AddRange(files.GetFiles(dir))<br />
        Next<br />
 End Function

EuroCPian Spring 2004 Get Together[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar