File Directory ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. File Directory
  4. Enumerating file system directories (VB)
<%@ Page Language="VB" %>


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        For Each drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives()
            Dim node As TreeNode = New TreeNode()
            node.Value = drive.Name
            If (drive.IsReady) Then
                node.Text = drive.Name & " - (free space: " & drive.AvailableFreeSpace & ")"
                LoadDirectories(node, drive.Name)
            Else
                node.Text = drive.Name & " - (not ready)"
            End If
            Me.TreeView1.Nodes.Add(node)
        Next        
    End Sub
    Private Sub LoadDirectories(ByVal parent As TreeNode, ByVal path As String)
        
        Dim directory As System.IO.DirectoryInfo = _
                  New System.IO.DirectoryInfo(path)
        
        Try
            For Each d As System.IO.DirectoryInfo In directory.GetDirectories()
            
                Dim node As TreeNode = New TreeNode(d.Name, d.FullName)
                parent.ChildNodes.Add(node)
                'Recurse the current directory
                LoadDirectories(node, d.FullName)
            Next
        Catch ex As System.UnauthorizedAccessException
            parent.Text += " (Access Denied)"
        Catch ex As System.IO.IOException
            parent.Text += " (Unknown Error: " + ex.Message + ")"
        End Try
    End Sub



    Untitled Page