Visual Basic 6 - scoprire la dimensione di un file esistente

Ciao Ragazzi sto facendo un programmino che mi permetta di vedere la dimensione di in file, ma mi sto perdendo in un bicchiere d' acqua

premesso che ho aggiunto il riferimento scriptruntume

questo è il codice per vedere se il file esiste, ma già non trova il file figuratevi se mi dice la sua dimensione.

Private Sub Form_Load()
Dim fso As New FileSystemObject
Dim f As File 'Dim File f

If fso.FileExists("C:\testfile.txt" Then 'Se fso.FileExists ("C: \ TestIt.txt" Then
Set f = fso.GetFile("C:\testfile.txt" 'Set f = fso.GetFile ("C: \ TestIt.txt"
MsgBox f.Size 'displays size of file f.Size MsgBox 'dimensione mostra di file
Else ': Altro
MsgBox "File not found" 'MsgBox "Impossibile trovare il file"
End If 'End If
End Sub


qualcuno sa aiutarmi ?

Grazie

Ciao,
prova con il codice seguente:
__________
Option Explicit
Dim nFile As String
dim dFile as double

Private Sub Command1_Click()
On Error Resume Next
nFile = Text1
FileExists nFile
dFile= FormatNumber(FileLen(nFile) / 1024, 2) ' in Kb
Text2 = dFile & " Kb"
End Sub

Function FileExists(FileName As String) As Boolean
On Error Resume Next
FileExists = (GetAttr(FileName) And vbDirectory) = 0
If FileExists = True Then MsgBox ("File esistente" else MsgBox ("file inesistente"
End Function
____________
Saluti