垃圾文件清理工具

'**********************************************************************************************************************
'查找函数
Public Function FindFilesAPI(path As String, SearchStr As Variant, FileCount As Long, DirCount As Long) As Double
    Dim FileName    As String           '文件名
    Dim Extension   As String           '文件后缀
    Dim DirName     As String           '子目录名
    Dim dirNames()  As String           '目录数组
    Dim nDir        As Long             '当前路径的目录数
    Dim i           As Long             '循环计数器变量
    Dim hSearch     As Long             '搜索句柄变量
    Dim WFD         As WIN32_FIND_DATA
    Dim Cont        As Long
 
    If Right(path, 1) <> chr(92) Then path = path & chr(92)
    '搜索子目录
    nDir = 0
    ReDim dirNames(nDir)
    Cont = True
    hSearch = FindFirstFile(path & "*", WFD)
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
            FileName = StripNulls(WFD.cFileName)
            If (FileName <> ".") And (FileName <> "..") Then
                '遍历目录并累计文件总数
                If GetFileAttributes(path & FileName) And FILE_ATTRIBUTE_DIRECTORY Then
                    dirNames(nDir) = FileName
                    DirCount = DirCount + 1
                    nDir = nDir + 1
                    ReDim Preserve dirNames(nDir)
                Else
                    If isCheckAll Or UserForm1.ZERO.Value And WFD.nFileSizeLow = 0 Then
                        If isCheckAll Then
                            FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
                        End If
                        FileCount = FileCount + 1
                        UserForm1.List1.AddItem path & FileName
                    Else
                        Extension = Mid(FileName, InStrRev(FileName, ".") + 1)
                        If CheckType(Extension, SearchStr) Then
                            FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
                            FileCount = FileCount + 1
                            UserForm1.List1.AddItem path & FileName
                            SendMessage LHwnd, WM_VSCROLL, SB_BOTTOM, 0&
                        End If
                    End If
                End If
            End If
            Cont = FindNextFile(hSearch, WFD)         '获取下一个文件或者文件夹
        Loop
        Cont = FindClose(hSearch)
    End If
    '如果子目录存在则遍历之
    If nDir > 0 And UserForm1.INC.Value Then
        For i = 0 To nDir - 1
            FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i) & chr(92), SearchStr, FileCount, DirCount)
        Next i
    End If
End Function

int CCADCleanerDlg::Search(CString PathName)
{
	CString FileName;
	HANDLE hScan=NULL;
	WIN32_FIND_DATAW FindFileData;
	if (PathName.Right(1) != (chr(92)))
	{
		hScan = FindFirstFile(PathName +_T("*"),&FindFileData);
	}
	else
	{
		hScan = FindFirstFile(PathName +_T("*"),&FindFileData);
	}
 
	if ( hScan != INVALID_HANDLE_VALUE)
	{
		BOOL cont = TRUE;
		while (cont)
		{
			FileName =  FindFileData.cFileName;
			if (FileName!=_T(".") && FileName!=_T(".."))
			{
				if (FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
				{
					DirCount++;
					Search(PathName+FileName+chr(92));
				}
				else
				{
					if (Check(FileName,FindFileData.nFileSizeLow,FindFileData.nFileSizeHigh))
					{
						//m_strInfo = (PathName+FileName);
						m_list.AddString(PathName+FileName);
						//m_Info.SetWindowText(m_strInfo);
						//m_list.SendMessage(LB_ADDSTRING,NULL,(LPARAM)(FileName.GetBuffer()));
						//SendMessage(m_listWnd,LB_ADDSTRING,NULL,(LPARAM)(FileName.GetBuffer()));
						//m_list.SendMessage(WM_VSCROLL,SB_BOTTOM,NULL);
						FileCount++;
						if (FindFileData.nFileSizeHigh)
						{
							TotalSize += (FindFileData.nFileSizeLow + FindFileData.nFileSizeHigh * FOUR_GB);
						}
						else
						{
							TotalSize += FindFileData.nFileSizeLow;
						}
					}
				}
			}	
			cont = FindNextFile(hScan,&FindFileData);
		}
		FindClose(hScan);
		return TRUE;
	}
	else
	{
		return ERROR;
	}
}