Утилит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;

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

Новые блоги и статьи Все статьи Все блоги /
сукцессия 30. Фосфорный и азотный замки по "честному" закону лимитирования Либиха anaschu 16.07.2026 Основные достижения за последние дни 1. Механизм отложенного высвобождения фосфора Добавлен специальный пул для медленного разложения меланизированных гиф ЕСМ Реализована разная скорость. . .	Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет
Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .

@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