Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 65, средняя оценка - 4.62
L@m@kЪ
Сообщений: n/a
#1

Как копировать и перемещать файлы - Pascal

12.10.2008, 17:08. Просмотров 8464. Ответов 5
Метки нет (Все метки)

Доброго времени суток всем!
Подскажите, как реализовать вот такую муть:чтобы при запуске программы указанный в ней файл перемещался или копировался в другое место\папку, например
из C:\folder\sound.wav в D:\sound.wav или же с флэшки на винт.Помогите,кто чем может плиз!
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.10.2008, 17:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как копировать и перемещать файлы (Pascal):

Перемещать круг по вертикали с заданным шагом и задержкой в одну секунду - Pascal
Программа должна состоять как минимум из двух частей – основной программы и модуля с описанием некоторых объектов – и работать на основе...

Перемещать круг по вертикали с заданным шагом и задержкой в одну секунду. - Pascal
вариант 4 :Перемещать круг по вертикали с заданным шагом и задержкой в одну секунду. Переделать вариант номер 4 для круга, вписанного в...

Копировать сторку s1 в строку s2 n раз - Pascal
Помогите плизз... Напишите программу чтобы копировать сторку s1 в строку s2 n раз. С клавиатуры вводить только n. s1,s2 уже заданы в...

Какой функцией можно копировать файлы? - PascalABC.NET
ну допустим exe файл скопировать из одной папки и вставить в другую?

Перемещать прямоугольник по диагонали с заданным шагом и задержкой в полторы секунды - PascalABC.NET
В общем прямоугольник я построил,закрасил его и по диагонали расставил,но я не знаю команды,которые бы скрывали мой предыдущий треугольник...

Перемещать треугольник по горизонтали с заданным шагом и задержкой в одну секунду (GraphABC) - PascalABC.NET
Перемещать треугольник по горизонтали с заданным шагом и задержкой в одну секунду.

5
Vovan-VE
13128 / 6509 / 186
Регистрация: 10.01.2008
Сообщений: 15,061
12.10.2008, 18:31 #2
Насколько я помню, в паскале нет встроенных функций для копирования и перемещения файлов. Можно без проблем написать свои функции.
0
L@m@kЪ
Сообщений: n/a
12.10.2008, 21:21 #3
Спасибо, конечно за ответ, но я только начал изучать паскаль, не могли бы вы поподробней разъяснить, как создать эту процедуру?
Evklid
24 / 19 / 2
Регистрация: 13.03.2008
Сообщений: 79
13.10.2008, 07:59 #4
Вот код программы, осуществляющей перемещение файла, на вход которой подается полное имя перемещаемого файла и новая директория.
Код
{$M 2048, 0, 0} {устанавливаем размер стека}
program cutfile;
uses
 DOS; {подключаем модуль DOS}
var
 path: PathStr;{полное имя исходного файла}
 dir_new: DirStr;{директория куда копируется файл}
begin
 write('Vvedite polnoe im9 kopiruemogo faila: ');
 readln(path); {считываем полное имя}
 write('Vvedite directoriu, v kotoruiu nado ckopirovat'' fail: ');
 readln(dir_new);{считываем директорию}
 swapvectors;{обмениваем содержимое векторов прерывания с переменными SAVEINTXX} 
 exec('C:\WINDOWS\system32\cmd.exe','/C attrib -h -r -a ' + path);{снимаем атрибуты файла (скрытые/системные и только для чтения)}
 exec('C:\WINDOWS\system32\cmd.exe','/C copy '+ path+ ' '+ dir_new);
{запускаем cmd.exe и передаем ему параметры: команду копировать+имя файла+новая директория}
 exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);{запускаем cmd.exe с командой удаления и путем к первичному файлу} 
 swapvectors;
 readln;
end.
ЗЫ Если убрать строку
Код
exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);
, то получится программа не перемещающая, а копирующая файлы. конечно если вы только начали изучать Паскаль авм будет непросто разобраться в этой программе, точнее надо будет почитать про прерывания, программные.
0
L@m@kЪ
Сообщений: n/a
13.10.2008, 09:32 #5
Спасибо за код! Насколько я понял, здесь операция копирования\перемещения осуществляется через интерпретатор cmd.exe ,просто надо указать необходимые параметры и ключи?
ЗЫ:Сам бы не додумался, спасиба! =)
L@m@kЪ
Сообщений: n/a
13.10.2008, 13:22 #6
А как создавать свои процедуры и функции? Отличается ли asm в pascale от обычного?
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.10.2008, 13:22
Привет! Вот еще темы с ответами:

Желтый закрашенный квадрат перемещать по периметру экрана - Turbo Pascal
Желтый закрашенный квадрат должен двигаться по периметру экрана, программа завершается нажатием любой клавиши. Рисование фигуры оформить в...

Как перемещать и копировать файлы? - Visual Basic .NET
как переместить или копировать файлы на VB.net , скиньте примеры , спасибо!!!

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

Как перемещать файлы батником? - CMD/BAT
есть два вложенных архива, при запуске первого срабатывает батник, что прописать в батнике, чтобы второй архив который внутри, копировался...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Yandex
Объявления
13.10.2008, 13:22
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru