|
Ciao;
O provato il tuo esempio, aggiungendo il calcolo delle dimenzione dei file trovati funziona, però diventa "a mio giudizio" troppo dispendioso quando si tratta di elaborare troppi file e cartelle.
Il codice che io avevo postato lo modificato così:
Set FSO = CreateObject("Scripting.FileSystemObject")
Path = (App.Path & "\moduli\rec\audio\")
Set MyFolder = FSO.GetFolder(Path)
If verifica.value = True Then
dimMax = 4600 'GB
If Format(CLng((MyFolder.Size / 1048576)), "######") > CLng(dimMax) Then msgbox "Dimenzione superata per DVD"
Else
dimMax = 600 'MB
If Format(CLng((MyFolder.Size / 1048576)), "######") > CLng(dimMax) Then msgbox "Dimenzione superata x CD"
End If
In pratica Format(CLng((MyFolder.Size / 1048576)), "######") mi ritorna la dimenzione in MB quindi faccio ad esempio:
Se la cartella e di 721 quindi > di 600 Visualizzo avviso per CD
Se la cartella e di 4689 quindi > di 4600 Visualizzo avviso per DVD
Al momento sembra funzionare. Magari se qualcuno può dirmi se effettivamente è corretta oppure no, gli e ne sarei grata.
Ciao
|