• Jueves 28 de Marzo de 2024, 13:35

Autor Tema:  Maxfilesize  (Leído 878 veces)

Bopo

  • Miembro activo
  • **
  • Mensajes: 72
    • Ver Perfil
Maxfilesize
« en: Lunes 1 de Marzo de 2004, 03:22 »
0
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:

elmango80

  • Miembro MUY activo
  • ***
  • Mensajes: 149
  • Nacionalidad: ve
    • Ver Perfil
Re: Maxfilesize
« Respuesta #1 en: Martes 2 de Marzo de 2004, 12:32 »
0
Puedes utilizar la siguiente API para optener el tamaño de un archivo

 GetFileSize(HANDLE hFile, LPDWORD lpFileSizeHigh);

 :comp:
Citar
No soy bueno, tampoco soy malo sino todo lo contrario...