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

[Qleek]

Здравствуйте, это мое первое сообщение на форуме...
Вот у меня такая задачка:
прога должна считать с дискеты названия папок и вывести их на экран.
Сразу вопрос: возможно ли это если дириктории имеют русские названия или название слишком длинное...?
Полистал учебники, но ничего похожего не нашел...
Помогите пожалуйста, если можете...

[volvo]

Qleek
Каким компилятором пользуемся? Если ТР, то в случае длинного имени оно будет усекаться до 8-ми знаков (вместо "My Documents" будет "MYDOCU~1"). Кириллица, насколько я помню, через ТР не отображается.

Сообщение отредактировано: volvo - 28.01.2005 15:41

[Altair]

Кириллица, насколько я помню, через ТР не отображается.

Отображается!
Любые имена хорошо отображаются, была бы загруженна кодовая страница 866.
И усекаются жо 8 симв. имя...

[Qleek]

Так вот мой вопрос сам по себе: как заставить программу прочитать название папок? для этого есть команда? А компилятор - TP7. И еще, если имя более 8 символов, сможет ли программа в этой папке, которую найдет на дискете, создать текстовый файл?

[volvo]

как заставить программу прочитать название папок? для этого есть команда?

Для этого пользуемся вот такой конструкцией (она ищет все директории в корневом каталоге 'A:\' и печатает их названия...):

Код

uses dos;
var sRec: SearchRec;
begin
 findfirst('A:\*.*', directory, sRec);
 while doserror = 0 do
   begin
     with sRec do write(name:15);
     findnext(sRec)
   end;
end.

[Qleek]

ух ты.... оно даже работает... :D спасибо....
но у меня назрел еще вопрос:
можно ли каждой папке присвоить свою переменную?
и если это переменная равна заложенной в программе, открыть эту папку и записать файл именно туда.... те прога должна спросить у меня в какую папку нада файлик бросить...

[volvo]

Qleek

оно даже работает...

А если оно не работает, зачем постить?

А насчет

прога должна спросить у меня в какую папку нада файлик бросить...

Просто читаем имя папки, проверяем, что она существует, и копируем в нее файл... К сожалению, средства копирования файлов в Паскаль не встроены, и надо писать свою функцию, или вызывать "command.com"

Сообщение отредактировано: volvo - 28.01.2005 22:43

[Qleek]

А если оно не работает, зачем постить?

это юмор...

Просто читаем имя папки

если можно, пожалуйста поподробнее, а то у меня не получилось...

[volvo]

Что значит не получилось? Я бы делал так:

Код

uses dos;
var sRec: SearchRec;
const
 name_to_copy = 'C:\test.exe';
begin
 write('enter the dir name: '); readln(s);
 findfirst('A:\'+s, directory, sRec);
 if DosError <> 0 then halt; {директория не существует}
 ...
 {а вот тут - каким-то образом копировать файл
 с именем name_to_copy в папку 'A:\'+s}
end.

[Altair]

К сожалению, средства копирования файлов в Паскаль не встроены, и надо писать свою функцию, или вызывать "command.com"

Не обязательно через command.com, можно побайтово копировать, или еще способ красивый через объекты (см. ФАК)

[Qleek]

:molitva: Большое спасибо, вы мне очень помогли...

[Digitalator]

Не обязательно через command.com, можно побайтово копировать, или еще способ красивый через объекты (см. ФАК)

ООП хорошо когда в меру - скоро уже начнут каждый пиксель на экране монитора представлять как объект (причем как наследник базового класса с примерно 30 методами, 3 разными конструкторами и полусотней полей, которые будут в являться объектами, записями, всевозможными дескриптормаи )

А по теме - чем тебя BlockRead + Blockwrite смущает, для такой архисложнойзадачи думаю они в самый раз

[Altair]

А по теме - чем тебя BlockRead + Blockwrite смущает, для такой архисложнойзадачи думаю они в самый раз

Меня ничем, но рассказать стоит имхо про все.

[Digitalator]

не могу не согласиться :yes:

[Qleek]

В процессе написания программы у меня возник один ламерской вопрос:
вот есть у меня переменная:

Var  st:string;

можно ли этой переменную приравнять к названию одной из папки?

[FreeMan]

Код

uses dos;
var sRec: SearchRec;
st:string;
begin
findfirst('A:\*.*', directory, sRec);
if doserror=0 then st:=sRec.Name else halt(1);
WriteLn(st);  
end.

Можно

[Qleek]

FreeMan, спасибо.
Господа, позвольте поинтересоваться:
возможен ли поиск скрытых папок и файлов?

[volvo]

возможен ли поиск скрытых папок и файлов?

Вполне... Вот эта программка печатает имена скрытых папок на F:\

Код

uses dos;
var sRec: SearchRec;
begin
 writeln('results');
 findfirst('F:\*.*', directory+hidden, sRec);
 while doserror = 0 do
   begin
     with sRec do
       if attr and hidden = hidden then write(name:15);
     findnext(sRec)
   end;
end.

[Qleek]

directory+hidden

а какие здесь еще можно употребить параметры?

writeln('results')

поясните пожалуйста эту строчку...

[volvo]

Первая строчка - "пережиток прошлого" Я просто забыл ее удалить (проверял программу с разными атрибутами и вставил ее чтобы разграничивать результаты)...

А насчет какие еще параметры доступны... Вот что определено в модуле Dos:

Код

Const
   ReadOnly = $01;
   Hidden = $02;
   SysFile = $04;
   VolumeID = $08;
   Directory = $10;
   Archive = $20;
   AnyFile = $3F;

Сообщение отредактировано: volvo - 29.01.2005 21:24