Форум » [x]Harbour » Содержимое папки » Ответить
Содержимое папки
Vlad04: Кто нибудь сталкивался ? Необходимо просканировать содержимое папки,которая имеет и вложенные папки, и вывести список всех файлов с указанием полных путей.
Ответов - 3
alkresin: [pre2] Function DirEval( cInitDir ) Local i, nCount := 0, arlen, aFiles IF Right( cInitDir,1 ) != "\"; cInitDir += "\"; ENDIF aFiles := Directory( cInitDir + "*.*", "HSD" ) arlen := Len( aFiles ) FOR i := 1 TO arlen IF "D" $ aFiles[ i,5 ] IF "." != aFiles[ i,1 ] .AND. ".." != aFiles[ i,1 ] nCount += DirEval( cInitDir+aFiles[i,1] ) ENDIF ELSE nCount ++ ? cInitDir+aFiles[i,1] ENDIF NEXT Return nCount [/pre2]
Vlad04: ok!
SadStar3333: команда DIR с параметром /S
полная версия страницы