Работа с папками

@Parlepapindipon · Регистрация: 18.09.2020

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

Здравствуйте, мне надо вывести на экран список папок на определенном диске, можете посоветовать функцию или процедуру или место где почитать можно, в моих учебниках ток с файлами, а про папки не слово...

@canadamoscow · 14.03.2021, 15:06

function EnumerateAllDirectories(path: string): sequence of string;
Возвращает последовательность имен каталогов по заданному пути, включая подкаталоги

function EnumerateAllFiles(path: string; searchPattern: string := '*.*'): sequence of string;
Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска, включая подкаталоги

function EnumerateDirectories(path: string): sequence of string;
Возвращает последовательность имен каталогов по заданному пути

function EnumerateFiles(path: string; searchPattern: string := '*.*'): sequence of string;
Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска

@bormant · 14.03.2021, 15:12

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

в моих учебниках ток с файлами

Папки -- это такие файлы, у которых установлен специальный атрибут "каталог" (directory).
Для Turbo Pascal вывод перечня каталогов в текущем каталоге мог бы выглядеть так:

Pascal
1
2
3
4
5
6
7
8
9
10
uses Dos;
var sr: SearchRec;
begin
  FindFirst('*.*',AnyFile,sr);
  while DosError=0 do with sr do begin
    if Attr and Directory<>0 then
      WriteLn(Name);
    FindNext(sr);
  end;
end.

@lartia · 18.03.2021, 13:44

bormant, попробовал Ваш пример и получил:

proba.pas(4,13) Fatal: illegal character "'"'" ($22)

Понял. Вместо " нужно ', т. е. так:

Pascal
1
FindFirst('*.*',AnyFile,sr);

Добавлено через 6 минут
Вот только не выводит ничего.

@mr-Crocodile · 18.03.2021, 14:18

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

Вот только не выводит ничего.

код с ошибкой. пропущен вызов процедуры FindNext()

код должен быть примерно такой

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses Dos;
var sr: SearchRec;
begin
  FindFirst('*.*',AnyFile,sr);
  while DosError=0 do with sr do begin
    if Attr and Directory<>0 then
        WriteLn(Name);
 
    FindNext(sr);
  end;
end.

выводит только папки (включая текущую с именем "." и вышестоящую с именем "..").
папки выводятся в том порядке, в каком они записаны в файловой системе, без всякой сортировки.

ну и ещё. раз ты на Free Pascal компилируешь код, то чем тебя ветка по Free Pascal не устраивает?

Потому как модули для работы с ОС (в частности с файловой системой) в разных Pascal (под разные платформы) - довольно существенно отличаются, поэтому тебе и про FindFirst рассказали и про EnumerateAllDirectories, а ещё могли и про System.IO.Directory.GetDirectories написать

@lartia · 18.03.2021, 16:43

Ветка про FP меня всем устраивает. Там я и вопросы задаю.
Тут, просто, увидел интересную тему, вот и заглянул. И пощупал.
А про FindNext() спасибо.

Попробовал исправленную версию. Выдает только 1 каталог, выбранный случайным образом.
В общем, надо интернеты полистать и почитать умных букав.

@mr-Crocodile · 18.03.2021, 17:15

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

Попробовал исправленную версию. Выдает только 1 каталог, выбранный случайным образом.

а ты уверен, что в том каталоге, где ты запустил свой EXE - есть ещё и другие каталоги?
найди EXE и посмотри внимательно, есть ли там рядом с ним другие каталоги.
или скопируй свой EXE в корень диска и запусти оттуда.

@mr-Crocodile · 18.03.2021, 17:16

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

Попробовал исправленную версию. Выдает только 1 каталог, выбранный случайным образом.

а ты уверен, что в том каталоге, где ты запустил свой EXE - есть ещё и другие каталоги?
найди EXE и посмотри внимательно, есть ли там рядом с ним другие каталоги.
или скопируй свой EXE в корень диска и запусти оттуда.

@lartia · 18.03.2021, 23:07

Сообщение от mr-Crocodile

а ты уверен...

Разумеется.

@mr-Crocodile · 19.03.2021, 12:30

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

Разумеется.

а я нет.

очень продуктивная беседа получается.

@lartia · 21.03.2021, 23:18

Попробовал таки в Виндовс. Все нормально сработало. А вот в нормальной ОС - нет. Надо будет по колупать что да как правильно сделать.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Parlepapindipon Задаватель вопросов 0 / 0 / 0 Регистрация: 18.09.2020 Сообщений: 258 Записей в блоге: 13

	Работа с папками 14.03.2021, 14:04. Показов 1669. Ответов 10 Метки нет (Все метки) Здравствуйте, мне надо вывести на экран список папок на определенном диске, можете посоветовать функцию или процедуру или место где почитать можно, в моих учебниках ток с файлами, а про папки не слово... 0

@canadamoscow 1179 / 430 / 194 Регистрация: 23.03.2020 Сообщений: 1,021 Записей в блоге: 1
	14.03.2021, 15:06
	function EnumerateAllDirectories(path: string): sequence of string; Возвращает последовательность имен каталогов по заданному пути, включая подкаталоги function EnumerateAllFiles(path: string; searchPattern: string := '.'): sequence of string; Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска, включая подкаталоги function EnumerateDirectories(path: string): sequence of string; Возвращает последовательность имен каталогов по заданному пути function EnumerateFiles(path: string; searchPattern: string := '.'): sequence of string; Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска 0

@lartia 68 / 2 / 0 Регистрация: 09.06.2015 Сообщений: 210
	18.03.2021, 16:43
	Ветка про FP меня всем устраивает. Там я и вопросы задаю. Тут, просто, увидел интересную тему, вот и заглянул. И пощупал. А про FindNext() спасибо. Попробовал исправленную версию. Выдает только 1 каталог, выбранный случайным образом. В общем, надо интернеты полистать и почитать умных букав. 0

@lartia 68 / 2 / 0 Регистрация: 09.06.2015 Сообщений: 210
	21.03.2021, 23:18
	Попробовал таки в Виндовс. Все нормально сработало. А вот в нормальной ОС - нет. Надо будет по колупать что да как правильно сделать. 0