Visual Basic - Tamaño de un fichero

Life is soft - evento anual de software empresarial
 
Vista:

Tamaño de un fichero

Publicado por Alex (39 intervenciones) el 05/07/2001 17:28:22
Hola
Necesito saber como puedo comparar la longitud d un txt, es decir, ejmp.
if (long texto.txt) = 13 (kb) then.........

¿que propiedad controla la longitud???
Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tamaño de un fichero

Publicado por Miguel (243 intervenciones) el 05/07/2001 18:05:04
Hola.
Esto te da el tamaño de un archivo cerrado y abierto.

Private Sub Command1_Click()
'***Tamaño del archivo si no está abierto***
Dim lFileSize As Long
lFileSize = FileLen(Text1.Text)
Label1.Caption = Format(lFileSize, "##,##0")
End Sub

Private Sub Command2_Click()
Dim nFileNum As Integer
Dim lFileSize As Long
'***Tamaño del archivo si está abierto***
'Get a new file number
nFileNum = FreeFile
'Abre el archivo
Open Text2.Text For Input As nFileNum
'Obtiene el tamaño
lFileSize = LOF(nFileNum)
'Cierra el archivo
Close nFileNum
Label2.Caption = Format(lFileSize, "##,##0")
End Sub

Espero que tesirva

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tamaño de un fichero

Publicado por Miguel (243 intervenciones) el 05/07/2001 18:06:04
Hola.
Esto te da el tamaño de un archivo cerrado y abierto.En el Text1 y el Text2 va la ruta completa del archivo que quieres comprobar.

Private Sub Command1_Click()
'***Tamaño del archivo si no está abierto***
Dim lFileSize As Long
lFileSize = FileLen(Text1.Text)
Label1.Caption = Format(lFileSize, "##,##0")
End Sub

Private Sub Command2_Click()
Dim nFileNum As Integer
Dim lFileSize As Long
'***Tamaño del archivo si está abierto***
'Get a new file number
nFileNum = FreeFile
'Abre el archivo
Open Text2.Text For Input As nFileNum
'Obtiene el tamaño
lFileSize = LOF(nFileNum)
'Cierra el archivo
Close nFileNum
Label2.Caption = Format(lFileSize, "##,##0")
End Sub

Espero que tesirva

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar