Used Bytes in a Directory

Used Bytes in a Directory

This function returns the number of bytes used on the directory:

 Function DirUsedBytes(ByVal dirName As _        String) As LongDim FileName As StringDim FileSize As Currency' add a backslash if not thereIf Right$(dirName, 1) <> "" Then        dirName = dirName & "" EndifFileSize = 0FileName = Dir$(dirName & "*.*")Do While FileName <> ""        FileSize = FileSize + _                FileLen(dirName & FileName)        FileName = Dir$LoopDirUsedBytes = FileSizeEnd Function

You can call the function passing the name of a directory:

 MsgBox DirUsedBytes("C:Windows")
See also  Redefining Energy Management: Advanced Solutions for Modern Buildings

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist