Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/25: Рейтинг темы: голосов - 25, средняя оценка - 4.60
141 / 110 / 30
Регистрация: 20.04.2011
Сообщений: 582
1

PascalABC файлы в текущей директории

11.07.2011, 23:52. Показов 5197. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Как в АБС вывести список файлов (и дату создания) в текущей папке? Не нашел в хелпе.

Добавлено через 14 минут
Pascal
1
2
3
4
5
6
7
8
9
uses utils;
var dir,f:string;
 
begin
readln(dir);
setcurrentdir('e:\'+dir);
writeln(getcurrentdir);
FindFirstFile('e:\'+dir, f);
writeln(f);
Неизвестнное имя FindFirstFile. ЧЯДНТ?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.07.2011, 23:52
Ответы с готовыми решениями:

Вывести в консоль все файлы и директории, какие есть в текущей директории
вывести в консоль все файлы и директории какие есть в текущей директории. подскажите пожалуйста...

Как выбрать файлы из текущей директории?
Как выбрать файлы из текущей директории? :) Ну...или как вот просто получить путь к директории...

Отправить txt-файлы из текущей директории на принтер
Здравствуйте. Ребят подскажите пожалуйста код bat файла который сможет взять txt файлы в парке где...

Удалить все файлы заданного расширения в текущей директории кроме
Удалить все файлы заданного расширения в текущей директории кроме последнего. Подгружаются файлы...

2
113 / 86 / 52
Регистрация: 22.10.2010
Сообщений: 227
12.07.2011, 10:41 2
Pascal
1
2
3
4
5
6
7
8
9
10
uses utils;
var dir:string;
    f  :SearchRec;
begin
readln(dir);
setcurrentdir('e:\'+dir);
writeln(getcurrentdir);
FindFirstFile('e:\'+dir+'\', f);
writeln(f.name);
end.
Добавлено через 2 минуты
http://pascal.toom.su/SearchRec-variables
Ответ на Ваш вопрос.
Хотя это для турбо паскаля, пишите на нем, там проще.
0
141 / 110 / 30
Регистрация: 20.04.2011
Сообщений: 582
12.07.2011, 22:23  [ТС] 3
Поправка. PascalABC.NET
Это там не работает. Вот работающий вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses
  System.IO;
 
var
  dir: string;
 
begin
  dir := 'temp\'; 
  var d := new DirectoryInfo('c:\' + dir);
  var ff := d.GetFiles;  
  
  foreach f: FileInfo in ff do  
    writeln(f.Name , '       ', f.CreationTime);
1
12.07.2011, 22:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.07.2011, 22:23
Помогаю со студенческими работами здесь

Как удалить все файлы, пустые и непустые папки из текущей директории?
Подскажите, как удалить все файлы, пустые и непустые папки из текущей директории.

как найти во всех в подпапках, в определенной папке текущей директории, все файлы с расширение lua?
Скажите пожалуйста, как найти во всех в подпапках, в определенной папке текущей директории, все...

Скрипт, который удаляет файлы из первой директории, если есть файлы с такими же именами во второй директории
Помоги, пожалуйста, написать скрипт, который удаляет файлы из первой директории, если есть файлы с...

Получение текущей директории
Этим кодом получаю директорию программы: procedure TForm1.Timer1Timer(Sender: TObject); var ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru