1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

counting the number of files in a folder

Discussion in 'Visual Basic ( VB )' started by harish13, Jul 27, 2006.

  1. harish13

    harish13 New Member

    Joined:
    Jul 20, 2006
    Messages:
    16
    Likes Received:
    0
    Trophy Points:
    0
    i want to count the number of files present in a folder how can i do this
    thank u in advance
     
  2. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,287
    Likes Received:
    364
    Trophy Points:
    83
  3. ocena

    ocena New Member

    Joined:
    Aug 6, 2006
    Messages:
    7
    Likes Received:
    0
    Trophy Points:
    0
    if you are using vb 2005 then here it is
    Code:
    Dim SearchCriteria As String = String.Empty  ' Globals
    Dim FileFound As Integer
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            Try
                FileFound = 0 ' reset counter
                MessageBox.Show("Number of files matching : " + GetFileCount(TextBox2.Text).ToString())
            Catch ex As Exception
                MessageBox.Show("Error occured: " + ex.Message)
            End Try
    End Sub
    
    
    Private Function GetFileCount(ByVal path As String) As Integer
            Dim CriteriaPath, files, dirs As String
    
            CriteriaPath = path.Substring(0, path.LastIndexOf("\"))
    
            If SearchCriteria.Length = 0 Then
                SearchCriteria = "*.*"
            Else
                SearchCriteria = path.Substring(path.LastIndexOf("\") + 1)
            End If
    
            For Each files In Directory.GetFiles(CriteriaPath, SearchCriteria)
                FileFound += 1
            Next
    
            For Each dirs In Directory.GetDirectories(CriteriaPath)
                GetFileCount(dirs + "\" + SearchCriteria) ' recursive call
            Next
    
            Return FileFound
    End Function
     
    Last edited by a moderator: Aug 7, 2006

Share This Page