File count within folder(s)

[thumper5]

i searched these forums for a file counting snippet of code to count the number of files in folder and return a value but i couldn't find one that worked. i just want to have it search the folder under the default folder( meaning the folder under where the .exe file is)

any ideas?

[Dököll]

i searched these forums for a file counting snippet of code to count the number of files in folder and return a value but i couldn't find one that worked. i just want to have it search the folder under the default folder( meaning the folder under where the .exe file is)

any ideas?

Hiya, thumper5!

Here's something that should get you started:

Public Function FileCount(PathName As String) As Long
  Dim FSO As New FileSystemObject
  Dim fld As Folder
  If FSO.FolderExists(PathName) Then
     Set fld = FSO.GetFolder(PathName)
     FileCount = fld.Files.Count
  End If
End Function
 

Please write if you're stuck. By the way I edited you title to ensure ease of search, especially if someone else is looking.

In a bit!

[thumper5]

i found this snippet of code on some site:

   Private Function GetFileCount(ByVal path As String) As Integer
        'this function will figure out the 
 
        Dim FileCounter As Integer
        path = Dir("../")
        Do While Len(path)
            FileCounter = FileCounter + 1
            path = Dir()
        Loop
 
        Return FileCounter
 
    End Function
 
 

and i implimented it with this event in order for it to execute and i have it output the number to a textbox to make sure it's running correct... and i runs correctly, so i'm happy:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetFileCount("../")
        TextBox2.Text = GetFileCount("../")
    End Sub
 

[thumper5]

replace the "../" with what ever file folder you want to deal with.

[Dököll]

replace the "../" with what ever file folder you want to deal with.

You're a gentleman and scholar, thumper5, and good of you to post what you find out...

Good luck with the project:-)