| Автор | Сообщение |
|
|
| постоянный участник
|
Пост 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
|
|
|
|
- участник сейчас на форуме
- участник вне форума