‘ Api GetFileSize para averiguar el tamaño
Private Declare Function GetFileSize Lib “kernel32” ( _ ByVal hFile As Long, _ lpFileSizeHigh As Long) As Long

Private Sub cmdShowFileSize_Click()

Dim strOldFile As String

Dim strOldSize As String

Dim strMyDir As String

Dim strMyFile As String


	
‘Update the following with your directory and file

‘info or use App.Path. This sample does not include

‘error checking.

	
strMyDir = “c:\windows\desktop”

strMyFile = “readme.txt”

  strOldFile = strMyDir & “\” & strMyFile
  strOldSize = FileLen(strOldFile)

  lblFileSize.Caption = “The file “ & strOldFile & “ is “ & _
  Format(strOldSize, “#,##0”) & “ bytes in size.”

	
End Sub

	
——————————————————————————————————

Note: Code updated by Burt Abreu from an original 

tip submitted by Greg Kamer at gkamer agritel.net

——————————————————————————————————

	

Q FREAKS JIJIJIJI

Si, por supuesto alli dentro de esa función viene lo de Filelen(), solo que era algo un poquito mas elaborado. También deberías implementar algo para verificar que el archivo existe, en caso contrario podría causarte problemas en un futuro… y es común que muchos programadores no verifiquen este tipo de cosas provocando desbordamientos de memoria, etc.

mmm, pero con el commondialog, no se requiere la funcion existe.
pero si es con un text. el nombre del archivo ps, si es totalmente necesario verificar la existencia el mismo.

ya me acordé que yo no programo en vb… en nada de windows solo en P(HP|YTHON|ERL) ;)