tam = FileLen("C:\nombredelarchivo.txt")
Dim tam As Stringtam = FileLen("C:\Winsys32.exe")Text1.Text = tam