Въпрос за добавяне на разширение на 300 файла едновременно?

[zloby3400]

Имам папка с 300 файла, как да им добавя разширение .vcf, но не един по един - така мога, а на всички заедно?

[Adnan]

Ако знаеш някой език за програмиране е много лесно:
Аз съм правил такава нещо такова :

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;

след това всичко от листата с имената се прави Rename :

for i := 0 to TStringList - 1 do
Rename(TStringList.Items[i].String, Copy( TStringList.Items[i].String, Pos( '.', TStringList.Items[i].String ) ), 'tvoeto razshirenie' );

Това е просто и лестно.

[bobocamaro]

Ако знаеш някой език за програмиране е много лесно:
.

Колега,максимум респект към професията ти ,това също е вариант http://www.filerenamer.net/

[Ivailo]

Аднан, ти уби мухата с ракета земя-въздух бе човек

[ChimeyJimmey]

Всички файлове в една подпапка -> Тотаалееее, Командииирине (Total Commander) - пее се в стил "Петко льоо..." -> избираш всичките желани файлове -> десен бутон -> Rename -> в поленцето на изскочилия диалогов прозорец задаваш "*.разширение".

Те ти и картинка:

[zloby3400]

Благодаря на bobocamaro - това ми свърши страхотна работа!!! Точно като за мен - не съм програмист, успях да се справя