Trouble counting files in a Directory with VBA

[mvervair]

I'm trying to check how many files are in a directory, increment the count each time then put that count in my file name.

I'm having trouble with the loop. I can kinda see what the reason is, it looks like it's not counting each file but possibly saying on the same one. Any ideas from the geniuses out there?

If Dir(filePath & custnm & "*.*") <> "" Then
    Do Until Dir(filePath & custnm & "*.xlsm") = ""
    x = x + 1
    Dir
    Loop
    book.SaveAs Filename:=filePath & custnm & "\" & custnm & " install form" & "v_" & x
Else:
    MkDir filePath & custnm
    book.SaveAs Filename:=filePath & custnm & "\" & custnm & " install form"
    
End If

 

[mbt2103]

I use a macro that lists all of the files in a folder. Some modifications might make it work for your purposes:

Sub RecursiveFolder(objFolder As Scripting.Folder)
    
    'Declare the variables
    Dim objFile As Scripting.File
    x=0
    
    'Loop through each file in the folder
    For Each objFile In objFolder.Files
        x=x+1
    Next objFile
    
End Sub

*shrug* Give it a try!

 

[mbt2103]

er, forgot to mention, you'll need to plug that into the proper section of your sub. "Some assembly required"

 

[mvervair]

Ok, that led me down the FileSystemObject rabbit hole - I hadn't used that feature(?) in VBA before. Looks like I have some reading up to do tonight!