如何取得文件夹的大小

Question

请问如何用win32函数取得一个已知路径的文件夹的答小？
比如已知路径为C:\test\image\a.bmp，我想知道文件夹image的大小。谢谢！

Answer 1

Searching for Files and Changing File Attributes
The following example copies all text files in the current directory to a new directory of read-only files named \TEXTRO. Files in the new directory are changed to read only, if necessary. The application uses the GetCurrentDirectory function to retrieve the current directory path. This function is also used to return to the current directory after changing to the \TEXTRO directory. The application then creates the \TEXTRO directory by using the CreateDirectory function. The application searches the current directory for all .TXT files by using the FindFirstFile and FindNextFile functions. Each .TXT file is copied to the \TEXTRO directory. After a file is copied, the GetFileAttributes function determines whether the file is read only. If the file is not read only, the application changes directories to \TEXTRO and converts the copied file to read only by using the SetFileAttributes function. After all .TXT files in the current directory have been copied, the application closes the search handle by using the FindClose function. WIN32_FIND_DATA FileData; 
HANDLE hSearch; 
DWORD dwAttrs; 
char szDirPath[] = "c:\\TEXTRO\\"; 
char szNewPath[MAX_PATH]; 
char szHome[MAX_PATH]; 
 
BOOL fFinished = FALSE; 
 
// Create a new directory. 
 
if (!CreateDirectory(szDirPath, NULL)) 
{ 
    ErrorHandler("Couldn't create new directory."); 
} 
 
// Start searching for .TXT files in the current directory. 
 
hSearch = FindFirstFile("*.txt", &FileData); 
if (hSearch == INVALID_HANDLE_VALUE) 
{ 
    ErrorHandler("No .TXT files found."); 
} 
 
// Copy each .TXT file to the new directory 
// and change it to read only, if not already. 
 
while (!fFinished) 
{ 
    lstrcpy(szNewPath, szDirPath); 
    lstrcat(szNewPath, FileData.cFileName); 
    if (CopyFile(FileData.cFileName, szNewPath, FALSE))
    { 
        dwAttrs = GetFileAttributes(FileData.cFileName); 
        if (!(dwAttrs & FILE_ATTRIBUTE_READONLY)) 
        { 
            SetFileAttributes(szNewPath, 
                dwAttrs | FILE_ATTRIBUTE_READONLY); 
        } 
    } 
    else 
    { 
        ErrorHandler("Couldn't copy file."); 
    } 
 
    if (!FindNextFile(hSearch, &FileData)) 
    {
        if (GetLastError() == ERROR_NO_MORE_FILES) 
        { 
            MessageBox(hwnd, "No more .TXT files.", 
                "Search completed.", MB_OK); 
            fFinished = TRUE; 
        } 
        else 
        { 
            ErrorHandler("Couldn't find next file."); 
        } 
    }
} 
 
// Close the search handle. 
 
if (!FindClose(hSearch)) 
{ 
    ErrorHandler("Couldn't close search handle."); 
} 

Answer 2

Private FilesAll As Collection, FoldersAll As Collection
Private folderSize As LongPrivate Function SearchPathFiles(ByVal SourcePath As String, Optional ByVal FileEx As String = "*.*")
    If Right(SourcePath, 1) <> "\" Then SourcePath = SourcePath & "\"
    Dim Filestr As String, FolderPath As String
    On Error Resume Next
    Filestr = Dir(SourcePath & "*.*", vbArchive Or vbHidden Or vbSystem Or vbDirectory)
    Do While Filestr <> ""
        DoEvents
        If (GetAttr(SourcePath & Filestr) And vbDirectory) = vbDirectory Then
            If Left(Filestr, 1) <> "." And Left(Filestr, 2) <> ".." Then
                FolderPath = SourcePath & Filestr & ""
                FoldersAll.Add FolderPath
            End If
        Else
            If FileEx = "*.*" Then
                FilesAll.Add SourcePath & Filestr
                folderSize = folderSize + FileLen(SourcePath & Filestr)
            Else
                FileEx = GetFileExt(FileEx)
                If GetFileExt(SourcePath & Filestr) = FileEx Then
                    FilesAll.Add SourcePath & Filestr
                    folderSize = folderSize + FileLen(SourcePath & Filestr)
                End If
            End If
        End If
        Filestr = Dir
    Loop
        
End FunctionPrivate Function SearchPathFilesTmp(ByVal SourcePath As String, Optional ByVal FileEx As String = "*.*", Optional ByVal SubFlag As Boolean)
    FoldersAll.Add SourcePath
    
    Do
        DoEvents
        SearchPathFiles FoldersAll.Item(1), FileEx
        If Not SubFlag Then Exit Do
        FoldersAll.Remove 1
    Loop Until FoldersAll.Count = 0
  
End Function
'此函数从字符串中分离出文件扩展名
Private Function GetFileExt(sFileName As String) As String
  Dim P As Integer
  For P = Len(sFileName) To 1 Step -1
    If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
  Next
  GetFileExt = Right$(sFileName, Len(sFileName) - P)
End FunctionPrivate Sub Command1_Click()
    
    Dim str As String, i As Integer
    Set FilesAll = New Collection
    Set FoldersAll = New Collection
    SearchPathFilesTmp "c:\boot", , True
    MsgBox folderSize
End Sub

Answer 3

遍历文件夹，包括子文件夹和文件
获得文件大小代码long lngNumber = 0;
CString StrFileName = "";
CFileStatus Status;
CString StrFileSize;
if(CFile::GetStatus(StrFileName,Status))
{
    lngNumber = lngNumber + Status.m_size;
}

Answer 4

参考
http://blog.csdn.net/vcmute/archive/2005/10/16/504616.aspx