Копировать папку

← →
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]

еще?

ааа
я думал тебе еще Т хочеца написать, но жалко)

← →
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;

А у меня на MyDialog по-нерусскому пишет

>Ketmar (10.10.03 16:50) [10]
> не Саша, а Шура. позор. %-)
- да ладно - я сегодня, за десять минут, три раза покурить сходил, потому что, каждый раз, забывал - уже курил или забыл покурить...

> han_malign © (10.10.03 17:25) [22]
> - да ладно - я сегодня, за десять минут, три раза покурить
> сходил, потому что, каждый раз, забывал - уже курил или
> забыл покурить...

Курил... ЗабИвал...
Пятница :))

а почемубы уж не следовать своему стилу

if MyDialog(Capt1,"Будет осуществлено копирование файлов из папки "+Src_dir+" в папку "+Targ_dir+". Продолжать?")=false

(FindNext(SR)<>0)=true

более верней будет FindFirst вынести за try и в finally делать FindClose, а то ведь совсем плохо будет...

и самое интересное будет это реакция на найденые директории...

Копировать папку Найти похожие ветки