电视剧妇产科(张瑞希)插曲 »

« Visual Basic 6.0 与 Windows API 讲座 随书光盘[ISO]

具体用法可以看MSDN，或者Google之，这里主要贴点相关的代码：

//对话框初始化

 

BOOL CListDlg::OnInitDialog()

{

CDialog::OnInitDialog();

 

// Add "About..." menu item to system menu.

 

// IDM_ABOUTBOX must be in the system command range.

ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);

ASSERT(IDM_ABOUTBOX < 0xF000);

 

CMenu* pSysMenu = GetSystemMenu(FALSE);

if (pSysMenu != NULL)

{

//省略一些代码

// TODO: Add extra initialization here

PopulateCombo();

m_DirDetails.InsertColumn(0,"Directory",LVCFMT_LEFT,150);

m_DirDetails.InsertColumn(1,"Files",LVCFMT_RIGHT,100);

m_DirDetails.InsertColumn(2,"Size KB",LVCFMT_RIGHT,100);

return TRUE;  // return TRUE  unless you set the focus to a control

}

 

//添加项目至组合框

void CListDlg::PopulateCombo()

{

TCHAR szBuffer[MAX_PATH];

GetWindowsDirectory(szBuffer,MAX_PATH);

m_cbMainDir.AddString(szBuffer);

 

szBuffer[2]=0;

m_cbMainDir.AddString(szBuffer);

 

GetSystemDirectory(szBuffer,MAX_PATH);

m_cbMainDir.AddString(szBuffer);

 

GetCurrentDirectory(MAX_PATH,szBuffer);

m_cbMainDir.AddString(szBuffer);

 

m_cbMainDir.SetCurSel(0);

}

 

//响应组合框

void CListDlg::OnSelchangeMainDir() 

{

// TODO: Add your control notification handler code here

int nIndex=m_cbMainDir.GetCurSel();

 

if (nIndex!=CB_ERR)

{

m_cbMainDir.GetLBText(nIndex,m_strMainDIr);

PopulateTree();

PopulateListBox();

}

}

 

//添加项目至树控件

void CListDlg::PopulateTree()

{

m_treeFiles.DeleteAllItems();

 

HTREEITEM hLetter[27];

for (int nChar='A';nChar<='Z';nChar++)

{

hLetter[nChar-'A']=m_treeFiles.InsertItem((TCHAR*)&nChar);

}

 

hLetter[26]=m_treeFiles.InsertItem("Other");

 

HANDLE hFind;

WIN32_FIND_DATA dataFind;

BOOL bMoreFiles=TRUE;

CString strFile;

 

hFind=FindFirstFile(m_strMainDIr+"\\*.*",&dataFind);

while (hFind!=INVALID_HANDLE_VALUE && bMoreFiles ==TRUE)

{

if (dataFind.dwFileAttributes==FILE_ATTRIBUTE_ARCHIVE)

{

int nChar=dataFind.cFileName[0];

if (islower(nChar))

{

nChar-=32;

}

if (isalpha(nChar))

{

nChar-='A';

}

else

{

nChar=26;

}

 

m_treeFiles.InsertItem(dataFind.cFileName,hLetter[nChar]);

}

bMoreFiles=FindNextFile(hFind,&dataFind);

}

FindClose(hFind);

 

for (int i=0;i<26;i++)

{

m_treeFiles.Expand(hLetter[i],TVE_EXPAND);

}

}

 

//添加项目至列表框

void CListDlg::PopulateListBox()

{

m_lbSubDirs.ResetContent();

 

HANDLE hFind;

WIN32_FIND_DATA dataFind;

BOOL bMoreFiles=TRUE;

 

hFind=FindFirstFile(m_strMainDIr + "\\*.*",&dataFind);

 

while (hFind!=INVALID_HANDLE_VALUE && bMoreFiles==TRUE)

{

if (dataFind.dwFileAttributes==FILE_ATTRIBUTE_DIRECTORY)

{

if (strcmp(dataFind.cFileName,"."))

{

if (strcmp(dataFind.cFileName,".."))

{

m_lbSubDirs.AddString(dataFind.cFileName);

}

}

}

 

bMoreFiles=FindNextFile(hFind,&dataFind);

}

FindClose(hFind);

}

 

//响应列表框

void CListDlg::OnSelchangeSubDirs() 

{

// TODO: Add your control notification handler code here

int nSelCount=m_lbSubDirs.GetSelCount();

 

m_strList.RemoveAll();

if (nSelCount)

{

CString str;

 

LPINT pItems= new int[nSelCount];

m_lbSubDirs.GetSelItems(nSelCount,pItems);

 

for (int i=0;i<nSelCount;i++)

{

m_lbSubDirs.GetText(pItems[i],str);

m_strList.AddTail(str);

}

 

delete [] pItems;

}

PopulateListContol();

}

 

//添加项目至列表控件

void CListDlg::PopulateListContol()

{

m_DirDetails.DeleteAllItems();

POSITION i;

for (i=m_strList.GetHeadPosition();i!=NULL;)

{

int nItem;

HANDLE hFind;

WIN32_FIND_DATA dataFind;

BOOL bMoreFiles=TRUE;

CString str;

CString strFind;

 

str=m_strList.GetAt(i);

nItem=m_DirDetails.InsertItem(0,str);

strFind=m_strMainDIr+"\\"+str+"\\*.*";

 

int nFileCount=0;

double nFileSize=0;

hFind=FindFirstFile(strFind,&dataFind);

while (hFind!=INVALID_HANDLE_VALUE && bMoreFiles==TRUE)

{

if (dataFind.dwFileAttributes==FILE_ATTRIBUTE_ARCHIVE)

{

nFileCount++;

nFileSize+=dataFind.nFileSizeHigh*MAXDWORD+dataFind.nFileSizeLow;

}

bMoreFiles=FindNextFile(hFind,&dataFind);

}

FindClose(hFind);

 

str.Format("%ld",nFileCount);

m_DirDetails.SetItemText(nItem,1,str);

 

str.Format("%1.2f",nFileSize/1024.0);

m_DirDetails.SetItemText(nItem,2,str);

 

m_strList.GetNext(i);

}

 

} 

代码下载：

http://u.115.com/file/f16af44073#

List.zip