Перенос файла из одной папки в другую

@Lavdansky · Регистрация: 16.03.2016

Студворк — интернет-сервис помощи студентам

Здоров, в чем суть, у меня в папке с проектом есть папка Doc, там имеются файлы PDF, мне необходимо реализовать такую функцию, чтобы по нажатию на кнопку я находил файл на пк, выбирал его и он переносился в папку Doc, помагайте)))

@Пытливый · 05.06.2017, 01:02

Находил везде или все-же в какой-то конкретной папке? Поиск файлов можно реализовать через FindFirst,FindNext, а перенос через MoveFile

@Lavdansky · 05.06.2017, 01:19 **[ТС]**

Находил везде

@northener · 05.06.2017, 01:55

А что значит "переносился"?

@KMSNasgool · 05.06.2017, 10:26

Если ты файл должен выбрать сам, то TOpenDialog + MoveFile
Если поиск программный, то

Сообщение от Пытливый

Находил везде или все-же в какой-то конкретной папке? Поиск файлов можно реализовать через FindFirst,FindNext, а перенос через MoveFile

@Пытливый · 05.06.2017, 16:47

Ну вот вам простенькая тотальная сканилка-перемещалка.

@Lavdansky · 05.06.2017, 17:14 **[ТС]**

я извиняюсь, а какая у вас версия делфи?) я сижу в Delphi 7 Lite Edition , чот не компелируется))))

@Пытливый · 05.06.2017, 17:26

для uMain замените:

Delphi
1
2
3
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.StrUtils, Vcl.CheckLst;

на

Delphi
1
2
uses
  Windows, Dialogs, Controls, StdCtrls, CheckLst, Classes, Forms, SysUtils, StrUtils;

и для файла проекта:

Delphi
1
2
3
uses
  Vcl.Forms,
  uMain in 'uMain.pas' {Form18};

на

Delphi
1
2
3
uses
  Forms,
  uMain in 'uMain.pas' {Form18};

@Lavdansky · 05.06.2017, 17:31 **[ТС]**

сделал, но вот ошибочка)))

@Пытливый · 05.06.2017, 17:50

Я не знаю в какой библиотеке у вас эта функция в D7, но как альтернативное решение, можно на одно расширение переписать так:

Delphi
1
if UpperCase(ExtractFileExt(FileInfo.Name)) <> '.PDF' then Continue;

@Lavdansky · 05.06.2017, 18:01 **[ТС]**

наверное последняя ошибка)))

@GoodWeather · 05.06.2017, 18:06

В Делфи7 не было такого свойства. Просто удалить строку.

@Lavdansky · 05.06.2017, 18:17 **[ТС]**

Граждане, я безмерно благодарен за помощь, но я наверное не правильно описал суть, мне необходимо, я предполагаю, через opendiolog найти файл, выбрать его, и после этого он должен переместиться в папку Doc которая находится у меня в проекте.
Если кто-то может что-то подсказать, буду рад.

@Пытливый · 05.06.2017, 18:26

Возвращаемся к первому моему вопросу.

Находил везде или все-же в какой-то конкретной папке?

Находил везде

@Lavdansky · 05.06.2017, 18:28 **[ТС]**

Найти везде, я ведь через opendiolog могу рыскать по всему пк))))

@GoodWeather · 05.06.2017, 18:30

Не по теме:

Ему походу вообще не надо "находил", он просто выбирает в диалоге... И возможно не знает как настраивать в диалогах фильтрацию по расширениям...

Добавлено через 1 минуту
Так что вот:

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

Если ты файл должен выбрать сам, то TOpenDialog + MoveFile

@Lavdansky · 05.06.2017, 20:42 **[ТС]**

Можете кинуть примерчик?)))

Добавлено через 18 минут
только не бейте ссаными тряпками, подскажите почему не работает))))

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  i,s:string;
 
begin
OpenDialog1.Execute;
i:= OpenDialog1.FileName;  // получаем путь выбранного файла
s:= 'Doc\' + ExtractFileName(i); // путь перемещения с именем выбранного файла
  MoveFile(PChar(OpenDialog1),PChar(s));
 end;
 
end.

Добавлено через 40 минут
Шикарно, я понял, MoveFile работает только с полными путями, от диска до папки, но вот вопрос, как сделать так, чтобы он кидал файл в папку в проекте тобишь в папку Doc, не то при переносе проекта все полетит к чертям, посоветуйте пжлст)))

@krapotkin · 05.06.2017, 20:54

подскажу
полный путь к вашему exe это paramstr(0)
отсюда можно вычислить все что нужно

@Lavdansky · 05.06.2017, 22:54 **[ТС]**

Крапоткин, ты вообще мужик, не первый год меня спасаешь)))

Добавлено через 1 час 51 минуту
все шикарно, теперь подскажите неразумному как извлечь из строки
C:\Users\Николай\Desktop\Новая папка\Project1.exe
вот это
C:\Users\Николай\Desktop\Новая папка\

@krapotkin · 05.06.2017, 22:59

ну совесть то надо иметь
http://www.delphibasics.ru/navSysUtils.php

и вообще странный вопрос глядя текст в #17

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30

	Перенос файла из одной папки в другую 05.06.2017, 00:26. Показов 2267. Ответов 22 Метки нет (Все метки) Здоров, в чем суть, у меня в папке с проектом есть папка Doc, там имеются файлы PDF, мне необходимо реализовать такую функцию, чтобы по нажатию на кнопку я находил файл на пк, выбирал его и он переносился в папку Doc, помагайте))) 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	05.06.2017, 01:02
	Находил везде или все-же в какой-то конкретной папке? Поиск файлов можно реализовать через FindFirst,FindNext, а перенос через MoveFile 1

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30
	05.06.2017, 01:19 [ТС]
	Находил везде 0

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,608
	05.06.2017, 01:55
	А что значит "переносился"? 1

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30
	05.06.2017, 17:14 [ТС]
	я извиняюсь, а какая у вас версия делфи?) я сижу в Delphi 7 Lite Edition , чот не компелируется)))) 0

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30
	05.06.2017, 17:31 [ТС]
	сделал, но вот ошибочка))) Миниатюры 0

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30
	05.06.2017, 18:01 [ТС]
	наверное последняя ошибка))) Миниатюры 0

@GoodWeather 886 / 588 / 179 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	05.06.2017, 18:06
	В Делфи7 не было такого свойства. Просто удалить строку. 1

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30
	05.06.2017, 18:17 [ТС]
	Граждане, я безмерно благодарен за помощь, но я наверное не правильно описал суть, мне необходимо, я предполагаю, через opendiolog найти файл, выбрать его, и после этого он должен переместиться в папку Doc которая находится у меня в проекте. Если кто-то может что-то подсказать, буду рад. 0

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30
	05.06.2017, 18:28 [ТС]
	Найти везде, я ведь через opendiolog могу рыскать по всему пк)))) 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	05.06.2017, 20:54
	подскажу полный путь к вашему exe это paramstr(0) отсюда можно вычислить все что нужно 1

@Lavdansky 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 30
	05.06.2017, 22:54 [ТС]
	Крапоткин, ты вообще мужик, не первый год меня спасаешь))) Добавлено через 1 час 51 минуту все шикарно, теперь подскажите неразумному как извлечь из строки C:\Users\Николай\Desktop\Новая папка\Project1.exe вот это C:\Users\Николай\Desktop\Новая папка\ 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,656 Записей в блоге: 21
	05.06.2017, 22:59
	ну совесть то надо иметь http://www.delphibasics.ru/navSysUtils.php и вообще странный вопрос глядя текст в #17 1