' Returns a collection with the names of all the image' files in a directory or a directory tree' this includes all the image types that can be loaded into a PictureBox control'' NOTE: Uses the GetFiles, GetDirectories, and GetAllFiles routinesFunction GetAllPictureFiles(ByVal path As String, _ Optional RecurseDirs As Boolean) As Collection Set GetAllPictureFiles = GetAllFiles(path, _ "*.bmp;*.dib;*.gif;*.jpg;*.jpeg;*.wmf;*.emf;*.ico;*.cur", RecurseDirs)End Function
![Outage Reddit](https://www.devx.com/wp-content/uploads/Outage-Reddit-300x171.jpg)