SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Bopo en Lunes 1 de Marzo de 2004, 03:22

Título: Maxfilesize
Publicado por: Bopo en Lunes 1 de Marzo de 2004, 03:22

Hola, estoy ahciendo un programa y queiro que no salgan imagenes de mas de 100 kilos oq eu de un error si es ded mas de 100 kilos

Código: Text

1. Private Sub Form_Load()
2. With CommonDialog1
3.         .DialogTitle = "Imagen a Subir"
4.         .DefaultExt = "JPEG"
5.         .MaxFileSize = 100
6.         .Filter = "Archivo de Imagenes (*.JPG;*.JPEG;*.JPE;*.JFIF;*.GIF)|*.JPG;*.JPEG;*.JPE;*.JFIF;*.GIF"
7.         .ShowOpen
8.  End With
9.  MsgBox "El archivo que abrió es " & CommonDialog1.FileName, vbInformation, "Bopronic" ' Da la ruta del archivo abierto
10. End Sub
11.  
12.  
13.  
14.  

que hago :huh:

Título: Re: Maxfilesize
Publicado por: elmango80 en Martes 2 de Marzo de 2004, 12:32

Puedes utilizar la siguiente API para optener el tamaño de un archivo

 GetFileSize(HANDLE hFile, LPDWORD lpFileSizeHigh);

 :comp: