directories size!

Hi there,

I'm new in the programming world, i was thinking if i can in VB create a module (as dialog box) which allows me to print (to a txt file) a list of all the sub-directories of a directoty with its size in MB!.. if not what's the programming language which allow me to do this, I mean to interact with the MS windows platform in a direct manner!

Tanx pals,
alk1000

Do you need vb for this.. why dont you write a small batch file.. The code would be something like this..

dir /p >> file.txt

does this answer you.. :confused:

VB Code:

Private Const MAX_PATH = 260
 
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
Private Function EndSlash(ByVal PathIn As String) As String
If Right$(PathIn, 1) = "\" Then
    EndSlash = PathIn
Else
    EndSlash = PathIn & "\"
End If
End Function
 
Private Function SizeOf(ByVal DirPath As String) As Double
Dim hFind As Long
Dim fdata As WIN32_FIND_DATA
Dim dblSize As Double
Dim sName As String
Dim x As Long
On Error Resume Next
x = GetAttr(DirPath)
If Err Then SizeOf = 0: Exit Function
 
If (x And vbDirectory) = vbDirectory Then
    dblSize = 0
    Err.Clear
    sName = Dir$(EndSlash(DirPath) & "*.*", vbSystem Or vbHidden Or vbDirectory)
        If Err.Number = 0 Then
           hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata)
               If hFind = 0 Then Exit Function
                Do
                  If (fdata.dwFileAttributes And vbDirectory) = vbDirectory Then
                    sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1)
                       If sName <> "." And sName <> ".." Then
                        dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName)
                       End If
                  Else
                    dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow
                  End If
                DoEvents
                Loop While FindNextFile(hFind, fdata) <> 0
                hFind = FindClose(hFind)
        End If
Else
    On Error Resume Next
    dblSize = FileLen(DirPath)
End If
SizeOf = dblSize
End Function
 
Private Sub Command1_Click()
'Replace 'c:\windows' with the directory name that you want to get its size.
Screen.MousePointer = vbHourglass
MsgBox SizeOf("c:\windows")
Screen.MousePointer = vbDefault
End Sub

HIagain,

Just to tell that pradeepkrao did a great job. he emailed me a perfect solution. I thought to share it with everyone; u can have a closer look on the attachment.

cheers, and tanx again for him
Camille