lopezatienza.com

Un ejemplo de como saber cuánto ocupa un directorio.

Tomado de esta web.

Sub Form_Load()

        Dim FileName As String

        Dim FileSize As Currency

        Dim Directory As String

        Directory = "c:\windows\"

        FileName = Dir$(Directory & "*.*")

        FileSize = 0

        Do While FileName <> ""

            FileSize = FileSize + FileLen(Directory & FileName)

            FileName = Dir$()

        Loop

        Text1.Text = "Este directorio ocupa la cantidad de bytes = " + Str$(FileSize)

    End Sub

Autor: Antonio Lopez Atienza