That's your codes or get from internet?
Private file_count As Integer = 0
Public Sub GetDirectoryFileCount(ByVal dir As String)
dir = dir & ”\”
Dim all_files() As String=Directory.GetFileSystemEntries(dir)
For Each file As String In all_files
If Directory.Exists(file) Then
GetDirectoryFileCount(file)
Else
file_count += 1
End If
Next file
End Sub
Last edited by Jx_Man; Sep 22nd, 2008 at 12:43 pm.
Reputation Points: 1182
Solved Threads: 392
Posting Sensei
Offline 3,140 posts
since Nov 2007