Переименовать файлы

[nibufep]

Как в указаной папке у всех файлов у которых не указан формат изменить его на txt?

[Человек_Борща]

Рекурсивно пройтись с пом. FinFirst, FindNext, FindClose по маске * и проверять условие

TSearchRec.Attr = faAnyFile

а затем наличие расширения(ExtractFileExt вернет пустую строку), и если расширения нет, то ставить своё.

[northener]

TSearchRec.Attr = faAnyFile

Каталогам тоже надо давать расширение?

[kta87]

Как вариант можно забирать имя файла и расширение проверять, в случае необходимости менять RenameFile(oldName, newName)

[Shinobi3456]

Просто как идея рекурсивно пробегать по каталогу, и если это файл то проверяем расширение через ExtractFileExt.

procedure GetAllFiles( Path: string; Lb: TListBox);
var
sRec: TSearchRec;
isFound: boolean;

begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Add( Path + '\' + sRec.Name ); <---Собственно здесь можешь муть свою проверку....
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

Я писал уже про эту статью про список файлов...Только я там искал файлы с расширение xml...Что мешает тебе сделать проверку через ExtractFileExt вернуло пустую строку тогда делаешь переименование вот и все))Тем более что полный путь к файлу у тебя уже есть)))

[northener]

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

Просто как идея рекурсивно пробегать по каталогу, и если это файл то проверяем расширение через ExtractFileExt.

procedure GetAllFiles( Path: string; Lb: TListBox);
var
sRec: TSearchRec;
isFound: boolean;

begin
isFound := FindFirst( Path + '\*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + '\' + sRec.Name, Lb );
Lb.Add( Path + '\' + sRec.Name ); <---Собственно здесь можешь муть свою проверку....
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

Я писал уже про эту статью про список файлов...Только я там искал файлы с расширение xml...Что мешает тебе сделать проверку через ExtractFileExt вернуло пустую строку тогда делаешь переименование вот и все))Тем более что полный путь к файлу у тебя уже есть)))

И где тут "если это файл то"?

[Dmitry33RU]

Как вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
filelist:TStringDynArray;
a,s:string;
begin
if SelectDirectory('Выберите каталог', '', a) then begin
FileList := TDirectory.GetFiles(a, '*', TSearchOption.soAllDirectories);
for s in FileList do begin
RenameFile(s, s+'.txt');
end;
end;
end;

[nibufep]

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

Как вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
filelist:TStringDynArray;
a,s:string;
begin
if SelectDirectory('Выберите каталог', '', a) then begin
FileList := TDirectory.GetFiles(a, '*', TSearchOption.soAllDirectories);
for s in FileList do begin
RenameFile(s, s+'.txt');
end;
end;
end;

Работает, но нужно переименовывать только файлы без формата, как сделать эту проверку?

[northener]

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

Работает, но нужно переименовывать только файлы без формата, как сделать эту проверку?

Как сделать эту проверку написали уже два раза. Ты ответы читаешь?

[Dmitry33RU]

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

Работает, но нужно переименовывать только файлы без формата, как сделать эту проверку?

Совсем лень подумать...

procedure TForm1.Button1Click(Sender: TObject);
var
filelist:TStringDynArray;
a,s:string;
begin
if SelectDirectory('Выберите каталог', '', a) then begin
FileList := TDirectory.GetFiles(a, '*', TSearchOption.soAllDirectories);
for s in FileList do begin
if ExtractFileExt(s) = '' then begin
RenameFile(s, s+'.txt');
end;
end;
end;
end;