Список папок и файлов

@watercolor · Регистрация: 15.12.2011

Студворк — интернет-сервис помощи студентам

Задача: сделать вывод папок и файлов в этих папках.

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<?
$handle = opendir('.');
$i = 0;
print("Files: "."<br>");
while($file = readdir($handle))
{
    if((is_dir($file))&&($file!='.')&&($file!='..'))
    {
        $mas[$i] = $file; $i++;
        }
    }
closedir($handle);  
 
for($i = 0; $i < count($mas); $i++)
{
    $handle = opendir($mas[$i]);
    while($file = readdir($handle))
    {   
        if(is_dir($file)) { print("<img src=1.jpg>".$mas[$i]." - folder"."<br>"); }
        }
    closedir($handle);
    }
?>

В принципе, всё работает(код выложен не весь), но дублируются папки. Собственно вопрос, как убрать дублирующиеся папки?

@alpex · 12.11.2012, 19:19

PHP
1
2
3
4
if (file_exists('путь к папке'))
// значит папка уже есть
else 
//папки нет

@Its_me · 12.11.2012, 19:25

PHP
1
2
3
4
while($file = readdir($handle))
       {   
        if(is_dir($file)) { print("<img src=1.jpg>".$mas[$i]." - folder"."<br>"); }
        }

В $mas у вас лежат имена директорий, так что тут вместо $mas[$i] по логике вещей должно быть $file.

@WebMax 2.0 · 12.11.2012, 19:33

лучше рекурсия.

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function read_dir($dir, $mark = '-') {
    $d = opendir($dir);
    while ($name = readdir($d)) {
        if ($name == '.' || $name == '..') {
            continue;
        }
        elseif (is_dir($dir.'/'.$name)) {             
            echo $mark.'<strong>'.$name.'</strong><br>'; 
            read_dir($dir.'/'.$name, $mark.$mark);
        }
        else
            echo $mark.$name.'<br>';
    }
}
 
read_dir('.');

@watercolor · 12.11.2012, 19:35 **[ТС]**

Сообщение от Its_me

PHP
1
2
3
4
while($file = readdir($handle))
       {   
        if(is_dir($file)) { print("<img src=1.jpg>".$mas[$i]." - folder"."<br>"); }
        }

В $mas у вас лежат имена директорий, так что тут вместо $mas[$i] по логике вещей должно быть $file.

Тут всё ок, при замене mas на file вместо названий папок будут точки.

Сообщение от alpex

PHP
1
2
3
4
if (file_exists('путь к папке'))
// значит папка уже есть
else 
//папки нет

Это проверка на наличие файла, а как удалить то?

Добавлено через 1 минуту

Сообщение от WebMax 2.0

лучше рекурсия.

PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function read_dir($dir, $mark = '-') {
    $d = opendir($dir);
    while ($name = readdir($d)) {
        if ($name == '.' || $name == '..') {
            continue;
        }
        elseif (is_dir($name)) {              
            echo $mark.'<strong>'.$name.'</strong><br>'; 
            read_dir($name, $mark.$mark.$mark.$mark);
        }
        else
            echo $mark.$name.'<br>';
    }
}
 
read_dir('.');

За функцию спасибо, но хотелось бы с этим разобраться.)

@WebMax 2.0 · 12.11.2012, 19:38

Сообщение от watercolor

За функцию спасибо, но хотелось бы с этим разобраться.)

Скопируй ещё раз, немного исправил.
Рекурсия - функция вызывает саму себя, т.е. если текущий файл - директория, то передаем её опять же в эту функцию и обрабатываем. Так мы залазием в каждую папку и выводим все файлы.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .