Para realizar este programa debemos crear un formulario con un command button en este caso lo llame cmdcalcular.
A continucacion escribir el siguiente codigo en el boton calcular:
Option Explicit
Private Sub cmdcalcular_Click()
Dim tamano As Long
If Dir$("C:\bueno.jpg") <> vbNullString Then
tamano = FileLen("C:\bueno.jpg")
MsgBox tamano & " bytes"
Else
MsgBox "El archivo no existe"
End If
End Sub
Private Sub cmdcalcular_Click()
Dim tamano As Long
If Dir$("C:\bueno.jpg") <> vbNullString Then
tamano = FileLen("C:\bueno.jpg")
MsgBox tamano & " bytes"
Else
MsgBox "El archivo no existe"
End If
End Sub
* Tener en cuenta que en donde dice "C:\bueno.jpg" pondras la direccion en donde se encuentra el archivo al que quieres medir el tamaño.
Photo Play by AmputeeWrecks
