遍历未知FTP服务器文件,遍历FTP服务器上的文件并显示到树控件（CTreeCtrl）中

直接上代码：

void CFtpUpLoadDlg::RefreshTree()

{

CString server;

GetDlgItemText(IDC_EDIP,server);

m_TreeInfo.DeleteAllItems();

hRoot = m_TreeInfo.InsertItem(server,0,0);//根节点为FTP服务器ip

ListDir("",hRoot);

}

void CFtpUpLoadDlg::ListDir(CString dir, HTREEITEM hParent)

{

CString filename ;

CInternetSession session;

CFtpConnection* pTemp = session.GetFtpConnection(strip,strusr,strpwd,atoi(strport));

CFtpFileFind Find(pTemp);

HTREEITEM hItem = hParent;

HTREEITEM hSubItem;

BOOL ret ;

ret = Find.FindFile(dir,INTERNET_FLAG_EXISTING_CONNECT);

while (ret)

{

ret = Find.FindNextFile();

if (Find.IsDots())// 遍历到.或是..

{

continue;

}else if (Find.IsDirectory())

{

filename = Find.GetFileName();

hSubItem = m_TreeInfo.InsertItem(filename,0,0, hParent);//将遍历到的文件夹加入到树控件

ListDir(dir+"\\"+filename,hSubItem);

}else{

filename = Find.GetFileName();

hSubItem = m_TreeInfo.InsertItem(filename,0,0, hParent);//将遍历到的文件加入到树控件

}

}

Find.Close();

delete pTemp;

}

结果如图：