Function GetFileByExt(ByVal Directory As String, ByVal Extension() As String) As String() Dim Files As New System.Collections.Generic.List(Of String) For Each File As String In System.IO.Directory.GetFiles(Directory) If Extension.Contains(System.IO.Path.GetExtension(File)) Then Files.Add(File) Next Return Files.ToArray() End Function
Dim TesFichiers() As String TesFichiers = GetFileByExt("D:", New String() {".jpg", ".bmp", ".gif"})