Find Size of Directory

[dsi]

Does anyone have a quick routine to determine the size of a directory, including all subdirectories? I appreciate the help!

 

[chiph]

I don't have that, specifically, but here is some code I wrote to walk through a directory tree setting all the dates.&nbsp;&nbsp;You should be able to modify it to count directory sizes.&nbsp;&nbsp;One thing to watch out for is overflow.&nbsp;&nbsp;A 'long' only holds so much, and with everyone buying 30Gb drives nowadays, if someone were to run your app on c:\, it would blow up.&nbsp;&nbsp;Note in the WIN32_FIND_DATA structure there are two separate variables to hold the file size.&nbsp;&nbsp;You would have to check for overflow before adding each file's size to your totals.<br><FONT FACE=monospace><br>Option Explicit<br><br>Private Const OPEN_EXISTING = 3<br>Private Const GENERIC_WRITE = &H40000000<br>Private Const FILE_SHARE_READ = &H1<br>Private Const FILE_SHARE_WRITE = &H2<br><br>Private Const FILE_ATTRIBUTE_DIRECTORY = &H10<br>Private Const FILE_ATTRIBUTE_READONLY = &H1<br>Private Const FILE_ATTRIBUTE_HIDDEN = &H2<br><br>Private Const INVALID_HANDLE_VALUE = &HFFFFFFFF<br><br>Private Const MAX_PATH = 260<br><br>Private Type SYSTEMTIME<br>&nbsp;&nbsp;&nbsp;&nbsp;wYear As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;wMonth As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;wDayOfWeek As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;wDay As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;wHour As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;wMinute As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;wSecond As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;wMilliseconds As Integer<br>End Type<br>Private Type FILETIME<br>&nbsp;&nbsp;&nbsp;&nbsp;dwLowDateTime As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;dwHighDateTime As Long<br>End Type<br>Private Type WIN32_FIND_DATA<br>&nbsp;&nbsp;&nbsp;&nbsp;dwFileAttributes As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;ftCreationTime As FILETIME<br>&nbsp;&nbsp;&nbsp;&nbsp;ftLastAccessTime As FILETIME<br>&nbsp;&nbsp;&nbsp;&nbsp;ftLastWriteTime As FILETIME<br>&nbsp;&nbsp;&nbsp;&nbsp;nFileSizeHigh As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;nFileSizeLow As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;dwReserved0 As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;dwReserved1 As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;cFileName As String * MAX_PATH<br>&nbsp;&nbsp;&nbsp;&nbsp;cAlternate As String * 14<br>End Type<br><br>Private Declare Function SetFileTime Lib &quot;kernel32&quot; (ByVal hFile As Long, lpCreationTime As Long, lpLastAccessTime As Long, lpLastWriteTime As FILETIME) As Long<br>Private Declare Function SystemTimeToFileTime Lib &quot;kernel32&quot; (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As Long<br>Private Declare Function CreateFile Lib &quot;kernel32&quot; Alias &quot;CreateFileA&quot; (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long<br>Private Declare Function CloseHandle Lib &quot;kernel32&quot; (ByVal hObject As Long) As Long<br>Private Declare Function LocalFileTimeToFileTime Lib &quot;kernel32&quot; (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As Long<br><br>Private Declare Function FindFirstFile Lib &quot;kernel32&quot; Alias &quot;FindFirstFileA&quot; (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long<br>Private Declare Function FindNextFile Lib &quot;kernel32&quot; Alias &quot;FindNextFileA&quot; (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long<br>Private Declare Function FindClose Lib &quot;kernel32&quot; (ByVal hFindFile As Long) As Long<br><br>Private m_DirName As String<br>Private m_Recurse As Boolean<br>Private m_DoHidden As Boolean<br><br>Private m_File_Time As FILETIME<br><br>Private Sub cmdGo_Click()<br><br>&nbsp;&nbsp;&nbsp;&nbsp;Dim SysTime As SYSTEMTIME<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim Local_Time As FILETIME<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim File_Time As FILETIME<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim lRC As Long<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;Screen.MousePointer = vbHourglass<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;' User wants to go thru all child directories?<br>&nbsp;&nbsp;&nbsp;&nbsp;If chkRecurse = vbChecked Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;m_Recurse = True<br>&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;m_Recurse = False<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;'See if we should skip hidden files<br>&nbsp;&nbsp;&nbsp;&nbsp;If chkHidden = vbChecked Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;m_DoHidden = True<br>&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;m_DoHidden = False<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;' store values entered by user in systemtime structure<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wYear = dtpDate.Year<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wMonth = dtpDate.Month<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wDay = dtpDate.Day<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wDayOfWeek = dtpDate.DayOfWeek<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wHour = dtpTime.Hour<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wMinute = dtpTime.Minute<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wSecond = dtpTime.Second<br>&nbsp;&nbsp;&nbsp;&nbsp;SysTime.wMilliseconds = 0<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;'Convert to a filetime structure<br>&nbsp;&nbsp;&nbsp;&nbsp;lRC = SystemTimeToFileTime(SysTime, Local_Time)<br>&nbsp;&nbsp;&nbsp;&nbsp;If lRC = 0 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Screen.MousePointer = vbDefault<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox &quot;Error occurred changing system time to local time.&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit Sub '&lt;-------<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;'Convert to UTC time<br>&nbsp;&nbsp;&nbsp;&nbsp;lRC = LocalFileTimeToFileTime(Local_Time, File_Time)<br>&nbsp;&nbsp;&nbsp;&nbsp;If lRC = 0 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Screen.MousePointer = vbDefault<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox &quot;Error occurred changing local time to a file time.&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit Sub '&lt;-------<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;m_File_Time = File_Time<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;Call WalkFiles(m_DirName)<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;Screen.MousePointer = vbDefault<br>&nbsp;&nbsp;&nbsp;&nbsp;MsgBox &quot;Done&quot;<br>&nbsp;&nbsp;&nbsp;<br>End Sub<br><br>Private Sub WalkFiles(Start As String)<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;Static FindData As WIN32_FIND_DATA<br>&nbsp;&nbsp;&nbsp;&nbsp;Static szFilename As String<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim Handle As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim lRC As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim hFiles As Long<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim f As Boolean<br>&nbsp;&nbsp;&nbsp;&nbsp;Dim bDoIt As Boolean<br><br>&nbsp;&nbsp;&nbsp;&nbsp;If Right$(Start, 1) &lt;&gt; &quot;/&quot; Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Start = Start & &quot;\&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br><br>&nbsp;&nbsp;&nbsp;&nbsp;hFiles = FindFirstFile(Start & &quot;*.*&quot;, FindData)<br>&nbsp;&nbsp;&nbsp;&nbsp;f = (hFiles &lt;&gt; INVALID_HANDLE_VALUE)<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;Do While f<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;szFilename = ByteZToStr(FindData.cFileName)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If szFilename = &quot;.&quot; Or szFilename = &quot;..&quot; Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' Don't do pseudo-directory entries for current and parent dirs<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If FindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If m_Recurse Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call WalkFiles(Start & szFilename)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ElseIf FindData.dwFileAttributes And FILE_ATTRIBUTE_READONLY Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'don't modify read-only files<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bDoIt = True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If FindData.dwFileAttributes And FILE_ATTRIBUTE_HIDDEN Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Not m_DoHidden Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bDoIt = False<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If bDoIt Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Open the file to get a handle to it<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Handle = CreateFile(Start & szFilename, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GENERIC_WRITE, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FILE_SHARE_READ Or FILE_SHARE_WRITE, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ByVal 0&, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;OPEN_EXISTING, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0, _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;0)<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Now change the LastWrittenTo part of the file info<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;lRC = SetFileTime(Handle, 0&, 0&, m_File_Time)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If lRC = 0 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox &quot;Unable to set date/time for file: &quot; & szFilename<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Close the filehandle<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call CloseHandle(Handle)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;f = FindNextFile(hFiles, FindData)<br>&nbsp;&nbsp;&nbsp;&nbsp;Loop<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;f = FindClose(hFiles)<br>&nbsp;&nbsp;&nbsp;<br>End Sub<br><br>Private Function ByteZToStr(NullTermString) As String<br><br>&nbsp;&nbsp;&nbsp;&nbsp;Dim szTemp As String<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;szTemp = Left$(NullTermString, InStr(NullTermString, Chr(0)) - 1)<br>&nbsp;&nbsp;&nbsp;&nbsp;ByteZToStr = szTemp<br>&nbsp;&nbsp;&nbsp;<br>End Function<br></font><br><br>Chip H.