Function startListFiles( _
List$(), ByVal Path$, _
Optional ByVal Subfolders As Boolean = False, _
Optional ByVal FilenameFilter$ = "*", _
Optional ByVal ExtensionFilter$ = "*" _
)
If dir(Path)="" Then
startListFiles = "Folder doesn't exist"
Exit Function
End If
startListFiles = ListFiles(List, Path, Subfolders, FilenameFilter, ExtensionFilter)
End Function