Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
12.10.2008, 17:08   #1
L@m@kЪ
Гость
Сообщений: n/a
Как копировать и перемещать файлы / Pascal (Паскаль)

Доброго времени суток всем!
Подскажите, как реализовать вот такую муть:чтобы при запуске программы указанный в ней файл перемещался или копировался в другое место\папку, например
из C:\folder\sound.wav в D:\sound.wav или же с флэшки на винт.Помогите,кто чем может плиз!
12.10.2008, 17:08
AdAgent
Объявления
12.10.2008, 18:31   #2
Vovan-VE
Форумчанин
12940 / 6326 / 143
Регистрация: 10.01.2008
Сообщений: 15,063
Как копировать и перемещать файлы

Насколько я помню, в паскале нет встроенных функций для копирования и перемещения файлов. Можно без проблем написать свои функции.
Другие темы раздела
Pascal Составить из двух одномерных таблиц третью, в которой элементы упорядоченны по возрастанию
Вот собственно и задачи: 1. Составить из двух одномерных таблиц третью,в которой элементы упорядрченны по возрастанию. 2. Дан одномерный массив из целых чисел,вывести все элементы этого массива,которые находятся между максимальным и минимальным. Каждая программа отдельно. Желательно пузырьком....
Найти все числа из массива B, встречающиеся более чем в одной строке матрицы A Pascal
Помогите решить задачку в Pascal, заранее спасибо! Найти все числа из массива B(n), встречающиеся более чем в одной строке матрицы A(m,n).
12.10.2008, 21:21   #3
L@m@kЪ
Гость
Сообщений: n/a
Как копировать и перемещать файлы

Спасибо, конечно за ответ, но я только начал изучать паскаль, не могли бы вы поподробней разъяснить, как создать эту процедуру?
13.10.2008, 07:59   #4
Evklid
Форумчанин
24 / 19 / 2
Регистрация: 13.03.2008
Сообщений: 81
Как копировать и перемещать файлы

Вот код программы, осуществляющей перемещение файла, на вход которой подается полное имя перемещаемого файла и новая директория.
Код Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{$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.
ЗЫ Если убрать строку
Код Code
1
exec('C:\WINDOWS\system32\cmd.exe','/C del '+ path);
, то получится программа не перемещающая, а копирующая файлы. конечно если вы только начали изучать Паскаль авм будет непросто разобраться в этой программе, точнее надо будет почитать про прерывания, программные.
13.10.2008, 09:32   #5
L@m@kЪ
Гость
Сообщений: n/a
Как копировать и перемещать файлы

Спасибо за код! Насколько я понял, здесь операция копирования\перемещения осуществляется через интерпретатор cmd.exe ,просто надо указать необходимые параметры и ключи?
ЗЫ:Сам бы не додумался, спасиба! =)
13.10.2008, 13:22   #6
L@m@kЪ
Гость
Сообщений: n/a
Как копировать и перемещать файлы / Pascal (Паскаль)

А как создавать свои процедуры и функции? Отличается ли asm в pascale от обычного?
13.10.2008, 13:22
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
PascalABC.NET Какой функцией можно копировать файлы?
ну допустим exe файл скопировать из одной папки и вставить в другую?
PascalABC.NET Nikakula 24.03.2014 19:25
Не могу открыть, копировать и перемещать файлы на флэшке
пишет доступ закрыт администратором
Лечение компьютерных вирусов krvnk 05.10.2013 20:19
Bash Как копировать файлы на FTP?
Код должен копировать файлы на фтп, но это не происходит. где здесь ошибка? cd /home/c/cl125524/public_html/tmp/orders/ for filename in $(ls); do ftp -in <<EOF open 12.345.67.89 user anonymous a cd /incoming/New_server/Share/orders/ bin
Shell, Bash devenge 03.05.2012 12:36
Turbo Pascal Файлы. Как просматривать большие файлы полностью и в любую сторону
Всем добрый вечер, скажите кто знает, как в паскале при работе с фаилами, просматривать большие фаилы полностью и в любую сторону? А то когда я начинаю посматривать фаил с большим количеством текста, мне показывают его конец.
Turbo Pascal Doctor Nano 24.04.2012 19:40
Free Pascal Как писать в блокноте,а потом копировать в Паскаль?
Доброго времени суток!Подскажите, можно ли писать программный код в блокноте,а потом копировать в Паскаль?
Free Pascal sibamen 08.11.2011 14:21
C++ Builder Как копировать файлы?
Как копировать файлы с одного места в другое?
C++ Builder Vladant 19.11.2010 22:26
Pascal ABC Перемещать круг по вертикали
Перемещать круг по вертикали с заданным шагом и задержкой в 1 секунду. Вот задача,только круг перемещается по горизонтали ))) исправте пожалуйста :- program lab12; uses ABCObjects,GraphABC,crt; const h=20; var r:CircleABC; x,y:integer; begin x:=200; y:=50;
Pascal ABC slimyonok 01.11.2010 21:51
Pascal произвольная строка. стрелками перемещать по экрану
программа, где будет произвольная строка, а используя стрелки, перемещать строку по экрану. Добавлено через 49 секунд только не особо сложными вычислениями Добавлено через 44 минуты пожалуйста!)
Pascal (Паскаль) elenka 23.12.2009 17:27
Опции темы

Текущее время: 01:34. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.