VPF::вывод списка файлов в директории

golfV

Дата 16.11.2009, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 4.11.2007

Репутация: нет
Всего: 1

Доброго времени суток!

У меня ткой вопрос, есть маленькая програмка которая выводит список файлов из опред. директории, хотел бы спросить как сделать чтоб можно было вывести список файлов из директории которая находится на локальном сервре(\\Directory\****).

код программы

Код


procedure sacandir(startdir: string; mask:string; list:tstrings);
var searchrec : tsearchrec;
begin
if mask = '' then mask := '*.*';
if startdir[length(startdir)] <> '' then startdir := startdir + '';
if findfirst(startdir+mask, faanyfile, searchrec) = 0 then
begin
repeat
application.processmessages;
if (searchrec.attr and fadirectory) <> fadirectory then
list.add(startdir + searchrec.name)
else if
(searchrec.name <> '..') and (searchrec.name <> '.') then
begin
list.add(startdir + searchrec.name + '');
sacandir(startdir + searchrec.name + '',mask,list);
end;
until
findnext(searchrec) <> 0;
findclose(searchrec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Combobox1.Items.clear;
sacandir('c:','*.*',Combobox1.Items);
label1.caption := inttostr(Combobox1.items.count);
end;

end.

Если кто знает как это сделать, подскажите пожалуйста.
Заранее большое спасибо.

Демо

Дата 17.11.2009, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 6
Всего: 50

'\\server\ShareFolder\'

--------------------

golfV

Дата 18.11.2009, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 4.11.2007

Репутация: нет
Всего: 1

нет, так неполучается, пробовал. Так как на эту директории имеется логин и пароль. Но есть еще html страничка где есть список этих файлов. Может можно как нибудь оттуда вытащить список файлов?

Демо

Дата 18.11.2009, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 6
Всего: 50

Цитата(golfV @ 18.11.2009, 13:34

)

Так как на эту директории имеется логин и пароль.

Ну так естественно не получится. Кто ж тебя пустит на сервер без пароля.
Залогинься на сервер, а потом уже пытайся подключиться.

Цитата(golfV @ 18.11.2009, 13:34

)

Но есть еще html страничка где есть список этих файлов. Может можно как нибудь оттуда вытащить список файлов?

Ну если устроит такое, то почему нет? Скачиваешь страницу и вытаскиваешь отуда файлы.

Это сообщение отредактировал(а) Демо - 18.11.2009, 17:07

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »