devxlogo

Used Bytes in a Directory

Why Trust Us

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")

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.

See also  Seven Service Boundary Mistakes That Create Technical Debt
Disclosure

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.

Show More