24-04-2013, 06:43 PM
وعليكم السلام ورحمة الله وبركاته
التعديل الوحيد بسبب وجود علامة ~
في بداية اسماء الملفات
التعديل الوحيد بسبب وجود علامة ~
في بداية اسماء الملفات
كود :
var
OldN : TSearchRec;
NewN, Path : String;
begin
Path := 'C:\Temp\New Folder\';
if FindFirst(Path+'*.*', faArchive, OldN) = 0 then
begin
repeat
NewN := OldN.Name;
if UpperCase(Copy(NewN,1,3)) = '~ID' then
Delete(NewN,1,3);
if Copy(NewN,1,2) = '00' then
Begin
Delete(NewN,1,2);
NewN := ChangeFileExt(NewN,'.mod');
End;
ReNameFile(Path + OldN.Name ,Path + NewN);
until FindNext(OldN) <> 0;
FindClose(OldN);
end;
end;