Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language:
Expertise: Intermediate
Aug 1, 1997

Used Bytes in a Directory

This function returns the number of bytes used on the directory:
 
Function DirUsedBytes(ByVal dirName As _
        String) As Long
Dim FileName As String
Dim FileSize As Currency

' add a backslash if not there
If Right$(dirName, 1) <> "\" Then
        dirName = dirName & "\" 
Endif
FileSize = 0
FileName = Dir$(dirName & "*.*")

Do While FileName <> ""
        FileSize = FileSize + _
                FileLen(dirName & FileName)
        FileName = Dir$
Loop
DirUsedBytes = FileSize

End Function
You can call the function passing the name of a directory:
 
MsgBox DirUsedBytes("C:\Windows")
Isaias Martinez
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date