Я пытаюсь перечислить и импортировать несколько файлов изображений в папку. Мой текущий код для подсчета изображений выглядит следующим образом:
Dim fullpath As String
fullpath = TxtPath.Text + "\"
Dim FileDirectory As New IO.DirectoryInfo(fullpath)
Dim FileJpg As IO.FileInfo() = FileDirectory.GetFiles("*.jpg")
Dim FileJpeg As IO.FileInfo() = FileDirectory.GetFiles("*.jpeg")
Dim FileGif As IO.FileInfo() = FileDirectory.GetFiles("*.gif")
Dim FileBmp As IO.FileInfo() = FileDirectory.GetFiles("*.bmp")
Dim FilePng As IO.FileInfo() = FileDirectory.GetFiles("*.png")
Dim count As Integer = 0
For Each File As IO.FileInfo In FileJpg
count += 1
Next
For Each File As IO.FileInfo In FileJpeg
count += 1
Next
For Each File As IO.FileInfo In FileGif
count += 1
Next
For Each File As IO.FileInfo In FileBmp
count += 1
Next
For Each File As IO.FileInfo In FilePng
count += 1
Next
Есть ли более эффективный способ сделать это в одном цикле For, а не в 5 отдельных — можете ли вы отправить массив расширений файлов в GetFiles?
Я также планирую использовать этот код для импорта этих изображений в базу данных, поэтому наличие одного цикла было бы гораздо более эффективным.
Спасибо!