Used Bytes in a Directory

Expertise: Intermediate
Language:

August 1, 1997

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

















It's quick, easy and you get access to all the articles on DevX.

This registration/login is to allow you to read articles on devx.com.
Already a member?







To become a member of DevX.com create your Member Profile by completing the form below.
Membership is free!


Already registered? Sign In










E-mail (User Name)
 

Create a Password
 

Re-enter Password
 


First Name
 

Last Name
 

Company
 

Company Size



Address
 

City
 

State/Province


Country


Postal Code/Zip
 

Job Function


Phone
 

Note: Extension number is optional, but may be included by adding an "x" before the extension number.
 

By registering you will also be signed up for the Enterprise Development Daily newsletter.
 After registering you may choose to opt-out by clicking on the "Manage Profile" link.


Cancel








Don't have an account? Register Now - for FREE!






E-mail (user name)


Password



Cancel | Forgot Your Password?

















Isaias Martinez

If you have a hot tip and we publish it, we'll pay you. However, due to accounting overhead we no longer pay $10 for a single tip submission. You must accumulate 10 acceptable tips to receive payment. Be sure to include a clear explanation of what the technique does and why it's useful. If it includes code, limit it to 20 lines if possible. Submit your tip here.






Browse All Tips


   

Browse "XML" Tips
   


   

Browse "Java" Tips