Форум: "Потрепаться";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
ВнизКопировать папку Найти похожие ветки
← →
Ph0enix (2003-10-10 16:28) [0]Как скопировать папку?
← →
Е-Моё имя (2003-10-10 16:29) [1]римскаго?
← →
Johnny Smith (2003-10-10 16:30) [2]Даже папке скопировать сына (дочку) не всегда удается...
← →
Юрий Федоров (2003-10-10 16:30) [3]ShFileOperation
правда римского иак не получится, там другие функции нужны
← →
Кулюкин Олег (2003-10-10 16:31) [4]АПИ CopyRomePapka
← →
Ph0enix (2003-10-10 16:38) [5]Без юмора, SHFileOperation копирует ТОЛЬКО файлы. Как получить хотя бы список всех файлов директории и вложенные папки.
← →
Кулюкин Олег (2003-10-10 16:41) [6]
> Как получить хотя бы список всех файлов директории и вложенные
> п
FindFirst function
FindNext function
← →
Юрий Федоров (2003-10-10 16:41) [7]>>Кулюкин Олег © (10.10.03 16:31) [4]
Странно, не компилируется...
Народ, где скачать такой компонент, чтобы выполнял [4]
>>Ph0enix © (10.10.03 16:38) [5]
Не только
← →
han_malign (2003-10-10 16:44) [8]> SHFileOperation копирует ТОЛЬКО файлы.
- "Пилите Саша, пилите - она золотая."(с)Паниковский
← →
Кулюкин Олег (2003-10-10 16:44) [9]
> Юрий Федоров © (10.10.03 16:41) [7]
> >>Кулюкин Олег © (10.10.03 16:31) [4]
> Странно, не компилируется...
> Народ, где скачать такой компонент, чтобы выполнял [4]
Там винду пропачить надо.
Патч NewPrecept
← →
Ketmar (2003-10-10 16:50) [10]>han_malign © (10.10.03 16:44) [8]
не Саша, а Шура. позор. %-)
← →
Юрий Федоров (2003-10-10 16:58) [11]>>Кулюкин Олег © (10.10.03 16:44) [9]
пропатчил.
Вылетает с ошибкой
Duplicate implements clause for interface "<element>"
← →
Кулюкин Олег (2003-10-10 16:59) [12]
> Юрий Федоров © (10.10.03 16:58) [11]
> >>Кулюкин Олег © (10.10.03 16:44) [9]
> пропатчил.
> Вылетает с ошибкой
> Duplicate implements clause for interface "<element>"
Это БГ все испортил
← →
Кулюкин Олег (2003-10-10 17:05) [13]Кстати, умеет ли римский папка помещать ИКОНКУ в трей?
← →
clickmaker (2003-10-10 17:08) [14]> Кулюкин Олег © (10.10.03 17:05) [13]
Да, у него иконка рядом с часами висит :)
← →
Е-Моё имя (2003-10-10 17:09) [15]
> в трей?
мамке?
← →
Кулюкин Олег (2003-10-10 17:15) [16]
> Е-Моё имя © (10.10.03 17:09) [15]
> > в трей?
> мамке?
Теще
← →
Е-Моё имя (2003-10-10 17:16) [17]еще?
← →
Кулюкин Олег (2003-10-10 17:17) [18]
> -Моё имя © (10.10.03 17:16) [17]
> еще?
Нет, тЁще (мамуле жены :)
← →
Е-Моё имя (2003-10-10 17:18) [19]ааа
я думал тебе еще Т хочеца написать, но жалко)
← →
Defiler (2003-10-10 17:22) [20]
{-----------------------------CopyDirectory-------------------------}
function CopyDirectory(Src_dir:string;Targ_dir:string;Podtv:boolean;Capt1:string):boolean;
var SR:TSearchRec;
begin
result:=false;
if podtv=true then if not MyDialog(Capt1,"Будет осуществлено копирование файлов из папки "+Src_dir+" в папку "+Targ_dir+". Продолжать?") then exit;
try
if FindFirst(Src_dir+"*.*",faAnyFile,SR)=0 then
repeat
CopyFile(pchar(Src_dir+ExtractFileName(sr.Name)),pchar(Targ_dir+ExtractFileName(sr.Name)),false);
until FindNext(SR)<>0;
sysutils.FindClose(SR);
result:=true;
application.MessageBox(PChar("Копирование завершено нормально."),"Копирование",MB_OK+mb_IconInformation);
except
result:=false;
application.MessageBox(PChar("Копирование выполнить не удалось.Проверьте настройки."),"Копирование",MB_OK+mb_IconStop);
end;
end;
← →
Кулюкин Олег (2003-10-10 17:24) [21]А у меня на MyDialog по-нерусскому пишет
← →
han_malign (2003-10-10 17:25) [22]>Ketmar (10.10.03 16:50) [10]
> не Саша, а Шура. позор. %-)
- да ладно - я сегодня, за десять минут, три раза покурить сходил, потому что, каждый раз, забывал - уже курил или забыл покурить...
← →
Кулюкин Олег (2003-10-10 17:26) [23]
> han_malign © (10.10.03 17:25) [22]
> - да ладно - я сегодня, за десять минут, три раза покурить
> сходил, потому что, каждый раз, забывал - уже курил или
> забыл покурить...
Курил... ЗабИвал...
Пятница :))
← →
Palladin (2003-10-10 17:53) [24]а почемубы уж не следовать своему стилу
if MyDialog(Capt1,"Будет осуществлено копирование файлов из папки "+Src_dir+" в папку "+Targ_dir+". Продолжать?")=false
(FindNext(SR)<>0)=true
более верней будет FindFirst вынести за try и в finally делать FindClose, а то ведь совсем плохо будет...
← →
Palladin (2003-10-10 17:55) [25]и самое интересное будет это реакция на найденые директории...
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.011 c