20-04-2013, 08:50 AM
وعليكم السلام ورحمة الله وبركاته
لا أعرف إن كان هناك أسهل من هذه الطريقة ولكنها تؤدي العمل بكل الأحوال
أيضاً يمكنك تعديل الاسماء من خلال powershell
كود :
var
OldN,NewN : TSearchRec;
Path : String;
begin
Path := 'C:\Temp\';
if FindFirst(Path+'*.*', faArchive, OldN) = 0 then
begin
repeat
NewN.Name := (OldN.Name);
Delete(NewN.Name,1,2);
ReNameFile(Path + OldN.Name ,Path + NewN.Name);
until FindNext(OldN) <> 0;
FindClose(OldN);
end;لا أعرف إن كان هناك أسهل من هذه الطريقة ولكنها تؤدي العمل بكل الأحوال
أيضاً يمكنك تعديل الاسماء من خلال powershell
كود :
gci *.pas | rename-item -newname { [string]($_.name).substring(2) }