Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

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

Доброго времени суток всем!
Подскажите, как реализовать вот такую муть:чтобы при запуске программы указанный в ней файл перемещался или копировался в другое место\папку, например
из C:\folder\sound.wav в D:\sound.wav или же с флэшки на винт.Помогите,кто чем может плиз!
Старый 12.10.2008, 18:31   #2
Vovan-VE
Форумчанин
 
Аватар для Vovan-VE
 
Регистрация: 10.01.2008
Сообщений: 15,062
Репутация: 12917 (6303)
Лучшие ответы: 144
Как копировать и перемещать файлы

Насколько я помню, в паскале нет встроенных функций для копирования и перемещения файлов. Можно без проблем написать свои функции.
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь студентам и школьникам в решении задач.
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
Форумчанин
 
Регистрация: 13.03.2008
Сообщений: 81
Репутация: 24 (19)
Лучшие ответы: 2
Как копировать и перемещать файлы

Вот код программы, осуществляющей перемещение файла, на вход которой подается полное имя перемещаемого файла и новая директория.
Код 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, 07:59
Google
Объявления
Старый 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Shell, 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
devenge
С++ для начинающих <fstream> как копировать файлы?
Какой функцией можно скопировать нужный файл?
Gepar
C++ Builder Как копировать файлы?
Как копировать файлы с одного места в другое?
Vladant
Windows 7 как скрыто копировать файлы
Такая проблема есть файлы на жестком, нужно их скопировать но не использую проводник или тотал командер, подскажите как правильно копирнуть через cmd (командную строку) или еще как-нибудь не заходя в саму папку. Система винд 7
КРОН
C# под Web, ASP.NET Как в пределах ЛВС (TCP/IP) с помощью ASP читать сетевые папки и перемещать файлы между папками?
Проблема: как в пределах ЛВС (TCP/IP) с помощью ASP читать сетевые папки и перемещать файлы между папками? Влад. Заранее благодарен.
VladZ
Опции темы

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

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