Após selecionar uma imagem para grava no BD eu preciso ler as dimensões (500x350) dela para saber se está de acordo com o necessário e assim evitar que a imagem fique distorcida quando visualizada via web! Alguém sabe me dizer como faço isso?
Com ajuda dos mestres do fórum eu consigo ler o tamanho em KB, mas isso só evita que sejam enviadas imagens grandes demais, mas não resolve a questão das dimensões!
Com ajuda dos mestres do fórum eu consigo ler o tamanho em KB, mas isso só evita que sejam enviadas imagens grandes demais, mas não resolve a questão das dimensões!
- Código:
Function fncObterTamanhoImg()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim File As Scripting.File
Dim strCaminho As String
Dim fileSize As String
strCaminho = strfName
If fso.FileExists(strCaminho) Then
Set File = fso.GetFile(strCaminho)
fileSize = Format(Round(File.Size / 1000))
If fileSize > 100 Then
MsgBox (" Tamanho da Imagem " & fileSize & " " & "KB, permitido imagens até 100KB! "), vbOKOnly, "Sistema Interno ELPER"
Me.Anexo_Name.Value = Null
Call load_IMGv
Else
Me.bt_Salvar_Img.Enabled = True
End If
End If
End Function