Han*_*año 12
试试这个:
Imports System.IO
Imports System.Drawing
Module Module1
Sub Main()
Dim s As New DirectoryInfo("C:/Files")
Dim files As FileInfo() = s.GetFiles("*.jpg")
For Each f As FileInfo In files
Dim bmp As New Bitmap(f.FullName)
Console.WriteLine("Width: " & bmp.Width.ToString() + " > Height: " & bmp.Height.ToString())
Next
Console.Read()
End Sub
End Module
Run Code Online (Sandbox Code Playgroud)