文件夹遍历,该怎么处理

文件夹遍历
想要实现一个文件夹下所有文件的遍历，（包含子文件夹），捣鼓了半天没弄出来，想用 C++ 实现一个DLL，却又发现其参数为结构体类型....VFP中好像没有结构体吧 ？请问如何实现结构体？或者VF实现遍历文件夹 ？

[解决办法]

VB code

ClearListFiles(InputBox('要查找的文件夹：'))Function ListFiles(tcFolder As String)  Local Array laFiles[1]  Local lcFileName, ii  m.tcFolder = Addbs(m.tcFolder)  If Adir(m.laFiles, m.tcFolder + '*.*', 'AHRSD', 1) < 3    ? m.tcFolder + '[空文件夹]'    Return .F.  EndIf  ASort(m.laFiles, 5, -1, 1)  For m.ii = 1 To Alen(m.laFiles, 1)    m.lcFileName = m.laFiles[m.ii, 1]    Do Case      Case '.' == m.lcFileName Or '..' == m.lcFileName      Case At('D', m.laFiles[m.ii, 5]) > 0        ListFiles(m.tcFolder + m.lcFileName)      OtherWise        ? m.tcFolder + m.lcFileName    EndCase  EndForEndFunc