Утилитa для сортировки файлов

@GreenPanda · Регистрация: 29.08.2010

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

Вот зделал неболбшую утилиту для сортировки файлов )) хотелось бы узнать ваше мнение)
Только поменяте New folder на чтонить другое

@GreenPanda · 13.09.2011, 14:46 **[ТС]**

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

ну тогда, вопрос "как перейти обратно на английский?"

а зачем вобще менят если не надо

ну ладно зделаю для удобства

вот английский

@John_Pa9JIbHuK · 13.09.2011, 23:01

Нельзя, Нельзя, Нельзя оставлять такой дизайн формы, кнопки не могут и не должны быть такими маленькими, фон не может быть серый и тд...
Без обид тока

Дайте мне исходники, я пошаманю с дизайном(тока сообщите какая среда разработки)

@GreenPanda · 14.09.2011, 00:38 **[ТС]**

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

Нельзя, Нельзя, Нельзя оставлять такой дизайн формы, кнопки не могут и не должны быть такими маленькими, фон не может быть серый и тд...
Без обид тока

Дайте мне исходники, я пошаманю с дизайном(тока сообщите какая среда разработки)

среда Borland delphi 7
Вот только не ругаете за тупой способ копирования файлов лутше скажитье как улутшить

@John_Pa9JIbHuK · 14.09.2011, 20:36

mischka Завтра выложу

@GreenPanda · 19.09.2011, 01:21 **[ТС]**

ну а как насчет такого дезайна ?

@Денис Н. · 19.09.2011, 01:23

светлая часть вообще конфетка

Добавлено через 1 минуту
только я бы кнопки разместил рядом друг с другом, а не друг под другом

@GreenPanda · 19.09.2011, 15:28 **[ТС]**

Сообщение от Денис Н.

светлая часть вообще конфетка

Добавлено через 1 минуту
только я бы кнопки разместил рядом друг с другом, а не друг под другом

Конфетка это хорошо ? )
а какие имено ?

@Денис Н. · 19.09.2011, 15:29

Sort и Delete

@anonimus · 19.09.2011, 16:04

такс, решил попробовать твою прогу, только не понял что она делает )) все как было в папке мои документы (я ее сортировал) так и осталось, новых папок не создалось, файлы никуда не делесь.

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

@GreenPanda · 19.09.2011, 16:17 **[ТС]**

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

такс, решил попробовать твою прогу, только не понял что она делает )) все как было в папке мои документы (я ее сортировал) так и осталось, новых папок не создалось, файлы никуда не делесь.

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

ну да )
но вот скажитье как лутше зделать так чтобы батником не пользоватся ? :/

@anonimus · 19.09.2011, 16:45

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

но вот скажитье как лутше зделать так чтобы батником не пользоватся ?

а батник какую функцию выполняет копирование файлов и создание папки?
ты ж не delphi вроде пишешь?
CopyFile();
CreateDir();
и лучше бы под каждую группу создавать свою папку.
например в папке folder1 создается папка text, other и т.д.

@GreenPanda · 19.09.2011, 17:01 **[ТС]**

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

CopyFile();

но при исползивание Копи файл надо указывать полностю имя файла
тоесть copyfile(ASD.exe, asd.exe)
а как зделать так чтобы можно было сразу много копировать ? listboxом ползеватся ?

@anonimus · 19.09.2011, 17:24

правильно.
используй
FindFirst
и
FindNext

@Ciberst · 19.09.2011, 17:45

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

@Ciberst · 19.09.2011, 21:22

Если бы я и делал программу данного рода, я бы сделал как-то так:

@anonimus · 19.09.2011, 21:28

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

Если бы я и делал программу данного рода, я бы сделал как-то так:

воот, другое дело. ТС возьми на заметку

@GreenPanda · 19.09.2011, 21:38 **[ТС]**

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

Если бы я и делал программу данного рода, я бы сделал как-то так:
Вложения
FileSortReactor.rar (8.7 Кб, 0 просмотров)

ну до такого мне наверно еще пелить и пелить ну а как зделать так чтобы только те расширения показывались которые в папке есть ?

@anonimus · 19.09.2011, 23:16

не знаю как делал Ciberst, но можно так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button6Click(Sender: TObject);
var dir:string;
search:TSearchRec;
CheckBox:array of TCheckBox;
n,q:integer;
begin
q:=0;
if not SelectDirectory('Óêàæèòå êàòàëîã','',dir) then exit;
n:=FindFirst(dir+'\*.*',faAnyFile,search);
if n=0 then
repeat
if (search.Attr and faDirectory)<>faDirectory then
if FindComponent(copy(ExtractFileExt(search.Name),2,length(ExtractFileExt(search.Name))-1))=nil then begin
SetLength(CheckBox,q+1);
CheckBox[q]:=TCheckBox.Create(self);
CheckBox[q].Left:=200;
if q=0 then
  CheckBox[q].Top:=10
else
  CheckBox[q].Top:=CheckBox[q-1].Top+30;
CheckBox[q].Caption:=ExtractFileExt(search.Name);
CheckBox[q].Name:=copy(ExtractFileExt(search.Name),2,length(ExtractFileExt(search.Name))-1) ;
CheckBox[q].Parent:=form1;
inc(q);
end;
until FindNext(search)<>0;
 
end;

@Ciberst · 19.09.2011, 23:25

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

не знаю как делал Ciberst

Если бы ТС писал свою программу на VB .Net или C# я бы сказал, как я сделал, но в данном случае мой код не нужен для ТС, он его просто не поймет

@GreenPanda · 19.09.2011, 23:27 **[ТС]**

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

не знаю как делал Ciberst, но можно так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button6Click(Sender: TObject);
var dir:string;
search:TSearchRec;
CheckBox:array of TCheckBox;
n,q:integer;
begin
q:=0;
if not SelectDirectory('Óêàæèòå êàòàëîã','',dir) then exit;
n:=FindFirst(dir+'\*.*',faAnyFile,search);
if n=0 then
repeat
if (search.Attr and faDirectory)<>faDirectory then
if FindComponent(copy(ExtractFileExt(search.Name),2,length(ExtractFileExt(search.Name))-1))=nil then begin
SetLength(CheckBox,q+1);
CheckBox[q]:=TCheckBox.Create(self);
CheckBox[q].Left:=200;
if q=0 then
  CheckBox[q].Top:=10
else
  CheckBox[q].Top:=CheckBox[q-1].Top+30;
CheckBox[q].Caption:=ExtractFileExt(search.Name);
CheckBox[q].Name:=copy(ExtractFileExt(search.Name),2,length(ExtractFileExt(search.Name))-1) ;
CheckBox[q].Parent:=form1;
inc(q);
end;
until FindNext(search)<>0;
 
end;

спасибо буду разбиратся и пытатся все поменять )

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	13.09.2011, 23:01
	Нельзя, Нельзя, Нельзя оставлять такой дизайн формы, кнопки не могут и не должны быть такими маленькими, фон не может быть серый и тд... Без обид тока Дайте мне исходники, я пошаманю с дизайном(тока сообщите какая среда разработки) 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	14.09.2011, 20:36
	mischka Завтра выложу 1

@Денис Н. 463 / 463 / 23 Регистрация: 17.08.2011 Сообщений: 1,488
	19.09.2011, 01:23
	светлая часть вообще конфетка Добавлено через 1 минуту только я бы кнопки разместил рядом друг с другом, а не друг под другом 0

@Денис Н. 463 / 463 / 23 Регистрация: 17.08.2011 Сообщений: 1,488
	19.09.2011, 15:29
	Sort и Delete 0

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	19.09.2011, 16:04
	такс, решил попробовать твою прогу, только не понял что она делает )) все как было в папке мои документы (я ее сортировал) так и осталось, новых папок не создалось, файлы никуда не делесь. Добавлено через 6 минут ааа это потому что я ее из архива запускал, теперь вижу папка создалась folder1 и там все скопом мои файлы ))) это не сортировка, они так же беспорядочно, но только в новой папке 0

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	19.09.2011, 17:24
	правильно. используй FindFirst и FindNext 0

@Ciberst 559 / 436 / 21 Регистрация: 16.12.2010 Сообщений: 953
	19.09.2011, 17:45
	Я бы минимизировал бы, т.е. сделал бы всю форму как можно проще, чтобы было меньше контролов всяких, в общем вечером набросаю как я вижу эту программу. 1