Visual Basic 6 - scoprire la dimensione di un file esistente

Forum - Visual Basic 6 - scoprire la dimensione di un file esistente

visualrenzo (Normal User)
Pro

Messaggi: 94
Iscritto: 15/05/2009

Postato alle 23:00
Sabato, 28/05/2011

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

Sal47 (Normal User)
Pro

Messaggi: 96
Iscritto: 05/02/2009

Postato alle 7:08
Domenica, 29/05/2011

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

IL codice che mi hai dato non trova il file che gli metto in text1 ho provato anche a mettere il percorso, ma niente. Ma ho letto sull' help che bisogna usare Object system - visualrenzo - 29/05/11 17:47

si funziona mettevo le virgolette quando davo il percorso - visualrenzo - 29/05/11 18:13