Listing number of files per folder?

Here is some VBA that allows you to pick a folder and then tells you how many files it contains:

Sub FileCounter()
    s = GetFolder & "/*.*"
    Filename = Dir(s)
    Do Until Filename = ""
        i = i + 1
        Filename = Dir()
    Loop
    MsgBox i
End Sub


Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function

How about:

Sub FileCounter()
    s = GetFolder & "/*.*"
    Filename = Dir(s)
    Do Until Filename = ""
        i = i + 1
        Filename = Dir()
    Loop
    Range("A1").Value = s
    Range("B1").Value = i
End Sub

It might be possible using the FileSystem Object. I suggest you open a new thread and mention what we have accomplished so far.

Thank you for the feedback!