If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'硬盘图片转换为二进制流
Dim mstream As New IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open, IO.FileAccess.Read)
MsgBox(mstream.Length) '图片大小
End If
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'硬盘图片转换为二进制流
Dim mstream As New IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open, IO.FileAccess.Read)
MsgBox(mstream.Length) '图片大小
End If