【发布时间】:2014-04-17 11:18:13
【问题描述】:
我正在尝试枚举和导入文件夹中的多个图像文件。我当前用于计算图像的代码如下 -
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 吗?
我还计划使用此代码将这些图像导入数据库,因此在那里使用一个循环也会更有效率。
谢谢!
【问题讨论】:
标签: vb.net import .net getfiles