当前位置: 代码迷 >> VFP >> 文件夹遍历,该怎么处理
  详细解决方案

文件夹遍历,该怎么处理

热度:7289   发布时间:2013-02-26 00:00:00.0
文件夹遍历
想要实现一个文件夹下所有文件的遍历,(包含子文件夹),捣鼓了半天没弄出来,想用 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
  相关解决方案