[Gareth]

Привет...
Есть программа, в папке с программой есть папка с файлами.
Как мне копировать эту папку, в другую папку с заменой?
В инете говорят, надо copyfile('путь папки' , 'путь куда копировать ')
У меня в edit1 есть путь куда копировать папку с файлами! Но как мне указать её в copyfile ? И путь до папки с программой?

[Alegun]

Смотрите здесь

[Gareth]

Сообщение от Alegun

Смотрите здесь

Ну там опять же не сказано, как указать путь к программе.
Я в принципе могу указать путь до программы, но путь программы может изменится.
А путь куда мне копировать, лежит в edit1. Как текст из edit1 впихнуть в copyfile ('...','...') ?

[Alegun]

Сообщение от Gareth

...Я в принципе могу указать путь до программы, но путь программы может изменится...

Путь до вашей проги лежит в Paramstr(0)

З.Ы. Если быть точнее, то путь к папке с файлами лежит в ExtractFileDir(ParamSTR(0)) + '\Имя папки'

[Gareth]

Сообщение от Alegun

Путь до вашей проги лежит в Paramstr(0)

З.Ы. Если быть точнее, то путь к папке с файлами лежит в ExtractFileDir(ParamSTR(0)) + '\Имя папки'

Объясните пожалуйста подробно.
делаю так:
CopyFile(PChar(ParamStr(0)),PChar(sEdit1.Text));
Ошибки...

[M.A.D.M.A.N.]

Какого рода ошибки?

[Gareth]

Сообщение от M.A.D.M.A.N.

Какого рода ошибки?

Unsafe Type 'Pchar'
Not enough actual parametres

[Alegun]

Берёте функцию по ссылке, делаете так

Код:

CopyFiles(ExtractFileDir(ParamSTR(0)) + '\Data', sEdit1.Text);

и в перёд.

[M.A.D.M.A.N.]

У дельфы какая-то паранойя, она вообще дико варнинги выдает при работе с указателями.
Нащет второй ошибки - смотри объявление ф-ии CopyFile.

[Gareth]

Сообщение от Alegun

Берёте функцию по ссылке, делаете так

Код:

CopyFiles(ExtractFileDir(ParamSTR(0)) + '\Data', sEdit1.Text);

и в перёд.

Блин, ребята, не выходит(
Допустим с папкой программы мы разобрались, а как записать в copyfile текст с edit1 ???
Pchar(edit1.text) - не получается.

Может не понятно объяснил...
У меня в папке с программой, есть папка с файлами. Её надо скопировать c заменой по пути, который лежит в edit1.
Copyfile (тут я указываю где лежит папка, то-есть ExtractFileDir(ParamSTR(0)) + '\название папки', Тут я указываю путь, куда копировать, то-есть Edit1.text );

Я уже окончательно запутался... Если возможно, напишите за меня эту строчку кода...

[Alegun]

Посмотрите делфийский пример

C:\Program Files\Borland\Delphi7\Demos\Doc\Filmanex\filmanex. dpr

[Gareth]

Сообщение от Alegun

Посмотрите делфийский пример

Посмотрел, мне это ничего не дало. Нашёл знакомую строчку:
copyfile(fromfile, tofile);

Блин мужики, ну бьюсь над этой проблемой уже сутки...
Как можно скопировать c замено папку с файлами, лежащую вместе с прогой, в такую же папку в другой директории, путь до нее лежит в Edit1

[Alegun]

Сообщение от Gareth

...Как можно скопировать c замено папку с файлами, лежащую вместе с прогой, в такую же папку в другой директории, путь до нее лежит в Edit1

Просмотрите ещё раз внимательнее посты, ответ уже дан.

[Gareth]

Сообщение от Alegun

Просмотрите ещё раз внимательнее посты, ответ уже дан.

Предложить посмотреть исходник могу и я
Нашёл решение, хоть и не очень подходящее...

Код:

CopyFile (PAnsiChar(sEdit3.Text) ,PAnsiChar(sEdit2.Text) );

за место Pchar, надо было написать PAnsiChar
И приходится копировать каждый файл папки отдельно

Всем спасибо за помощь!!!

[Alegun]

Повторяюсь, скопируйте функцию по ссылке во 2 посте, затем делайте так

Код:

CopyFiles(ExtractFileDir(ParamSTR(0)) + '\Data', sEdit1.Text);

где '\Data' имя папки с копируемыми файлами, а sEdit1.Text путь к папке куда эти файлы нужно скопировать, что не понятно?