كيف يتم حذف اول حرف من اسماء مجموعه ملفات

[ELARAPY]

تم تعديل الكود ويعمل جيدا مع جميع الملفات الا ملف واحد ولا ادري لماذا ..

كود :

var OldN : TSearchRec; NewN, Path : String; begin Path := 'C:\Temp\New Folder\'; if FindFirst(Path+'*.*', faArchive, OldN) = 0 then begin repeat NewN := OldN.Name; NewN := ChangeFileExt(NewN,'.mod'); if UpperCase(Copy(NewN,1,3)) = '~ID' then Delete(NewN,1,3); if Copy(NewN,1,2) = '00' then Begin Delete(NewN,1,2); End; ReNameFile(Path + OldN.Name ,Path + NewN); until FindNext(OldN) <> 0; FindClose(OldN); end; end;

سؤال اخر

كيف اضيف حرفين قبل اسم الملف وليكن ID ?