Visual Basic 6 - Individuare la grandezza di una cartella

Forum - Visual Basic 6 - Individuare la grandezza di una cartella

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:16
Martedì, 06/05/2008

Ciao a tutti!
Vorrei sapere come si può in vb6 trovare il peso di una cartella. Cioè quanto è grande (es. 20 kb)

Si può fare?
Se si come?

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 18:33
Martedì, 06/05/2008

puoi fare la somma delle dimensioni di tutti i files presenti nella cartella
devi utilizzare un filelistbox, scorrerlo, aprire un file alla volta poi usi la funzione lof che ti restituisce la dimensione del file in Byte

forse xò cè un modo + veloce che nn conosco

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 18:36
Martedì, 06/05/2008

LOF non ho mai capito bene come si utilizza mi puoi spiegare bene questa funzione?

Grz x aver risp

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 18:43
Martedì, 06/05/2008

no.. non credo sia una cosa conveniente.
Aggiungi nei riferimenti microsoft scripting runtime e poi:

Codice sorgente - presumibilmente VB.NET

Private Sub Form_Load()
Dim fso As New FileSystemObject
Dim fd As Folder
dim c
 
Set fd = fso.GetFolder("C:\nomecartella")
c = fd.Size
 
Set fd = Nothing
Set fso = Nothing
 
End Sub

la variabile c contiene la dimensione della cartella in byte.
Ciao.

Ultima modifica effettuata da Overflow il 06/05/2008 alle 18:44

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 18:43
Martedì, 06/05/2008

apri il file con filenumber n
dim=lof(n)
chiudi il file
dim=dim\1024 hai la dimensione in KB

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 18:50
Martedì, 06/05/2008

in effetti è vero anche perchè se ci sono delle sottocartelle nn vengono aggiunte alla dimensione totale

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:34
Martedì, 06/05/2008

Grazie infinite ancora una volta a tutti