Автор | Сообщение |
|
| постоянный участник
|
Пост N: 496
Зарегистрирован: 13.10.05
|
|
Отправлено: 24.03.15 07:57. Заголовок: Содержимое папки
Кто нибудь сталкивался ? Необходимо просканировать содержимое папки,которая имеет и вложенные папки, и вывести список всех файлов с указанием полных путей.
|
|
|
Ответов - 3
[только новые]
|
|
|
| moderator
|
Пост N: 871
Зарегистрирован: 06.07.06
|
|
Отправлено: 24.03.15 09:05. Заголовок: Function DirEval( c..
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
|
|
|
|
| постоянный участник
|
Пост N: 497
Зарегистрирован: 13.10.05
|
|
Отправлено: 24.03.15 11:34. Заголовок: ok!..
ok!
|
|
|
|
| |
Пост N: 2
Зарегистрирован: 28.11.14
|
|
Отправлено: 01.04.15 03:40. Заголовок: команда DIR с параме..
команда DIR с параметром /S
|
|
|
|