How to simplify these codes

[Vntalk]

i need thelp to simplify these codes

FindStr = "*.mp3"
    FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
    TotalScan = TotalScan + NumFiles
    
    FindStr = "*.asf"
    FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
    TotalScan = TotalScan + NumFiles
    
    FindStr = "*.wma"
    FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
    TotalScan = TotalScan + NumFiles
    '.... more extension

[Besoup]

If you have a list of the file names you could probably put them in a text file and loop through the file and search every loop...

Open "C:\Files.txt" for input as #1
 
Do Until EOF(1)
     Input #1, FindStr
     FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
     TotalScan = TotalScan + NumFiles
Loop
 
Close #1

[si_the_geek]

Alternatively you could make an array, and use a loop:

Dim varExtensions as Variant
Dim lngLoopCount as Long
    varExtensions = Array("*.mp3", "*.asf", "*.wma")  'add more as required
 
    For lngLoopCount = 0 To Ubound(varExtensions) 
      FileSize = FindFilesAPI(SearchPath, varExtensions(lngLoopCount), NumFiles, NumDirs)
      TotalScan = TotalScan + NumFiles
    Next lngLoopCount

[Vntalk]

that's what i'm looking for
thanks

[Vntalk]

however i got this error
byref argument type mismatch

[Al42]

Did you Dim all your variables?

Which line did you get the error in?

[si_the_geek]

I think that would be my fault.. I didn't convert the variant to a string for the API:

FileSize = FindFilesAPI(SearchPath, [u]CStr([/u]varExtensions(lngLoopCount)[u])[/u], NumFiles, NumDirs)

[Al42]

Why is it even defined as a variant? Just curious.

[si_the_geek]

It's a Variant because that is what the Array function returns.