строчные прописные

@adelbaew · Регистрация: 30.06.2011

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

у меня в папке 30 000 файлов - причем в разных местах встречаются заглавные буквы,
как на delphi написать программу чтобы переименовать все файлы - чтобы их названия было только из строчных букв

@саша40 · 04.11.2012, 20:10

Не по теме:

А зачем так много файлов? :D В Windows и то меньше.

Переменовать их можно с помощью цыкла:

Delphi

var 
i: integer;
begin
for i:=1 To 30000 Do 
begin
RenameFile('бла-бла-бла', 'бла-бла-бла');
end;
 
end;

У тебя у каджово файла есть в конце начального имени число(любое)?

@adelbaew · 04.11.2012, 20:25 **[ТС]**

да от 01-08

и че за бла-бла-бла?

у меня например Бла-бла-бла-02 надо в бла-бла-бла-02

@DaMortum · 04.11.2012, 20:38

Функция LowerCase(S: string):string;

@adelbaew · 04.11.2012, 21:03 **[ТС]**

покажите пожалуйста по-подробнее весь код

@DaMortum · 04.11.2012, 21:30

Delphi

function RenameLowCaseFiles(const FileMask : String) : Boolean;
var
  SRec : TSearchRec;
  Path : String;
begin
  Result := FindFirst(FileMask, faAnyFile, SRec) = 0;
  if not Result then
  exit;
try
  Path := ExtractFilePath(FileMask);
  Repeat
    if (SRec.Name <> '') and (SRec.Name  <> '.') and (SRec.Name <> '..') and
       (SRec.Attr and (faVolumeID + faDirectory) = 0) then
      begin
        Result := RenameFile(Path + SRec.Name,Path + LowerCase(SRec.Name));
        if not Result then
          break;
      end;
  Until FindNext(SRec) <> 0;
finally
  FindClose(SRec);
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  RenameLowCaseFiles('c:\tempp\*.*');
end;

@adelbaew 4 / 4 / 0 Регистрация: 30.06.2011 Сообщений: 175
		1
	строчные прописные 04.11.2012, 20:05. Показов 697. Ответов 5 Метки нет (Все метки) у меня в папке 30 000 файлов - причем в разных местах встречаются заглавные буквы, как на delphi написать программу чтобы переименовать все файлы - чтобы их названия было только из строчных букв 0

@adelbaew 4 / 4 / 0 Регистрация: 30.06.2011 Сообщений: 175
	04.11.2012, 20:25 [ТС]	3
	да от 01-08 и че за бла-бла-бла? у меня например Бла-бла-бла-02 надо в бла-бла-бла-02 0

@DaMortum 249 / 154 / 31 Регистрация: 07.10.2012 Сообщений: 401
	04.11.2012, 20:38	4
	Функция LowerCase(S: string):string; 1

@adelbaew 4 / 4 / 0 Регистрация: 30.06.2011 Сообщений: 175
	04.11.2012, 21:03 [ТС]	5
	покажите пожалуйста по-подробнее весь код 0

	04.11.2012, 21:30