[ تمت الإجابة ]أريد برنامج لتعديل أسماء الملفات

الأخوة المبرمجين

أين أنتم من هذا الموضوع ؟

عفواً أخي.

لكن هنا لا تتم برمجة برامج جاهزة، اطلع على قسم الإعلانات

يا أخي المسأله ليست بما تتصوره ................ إذا كان عندك ما طلبته وإلا جزيت خيرا

السلام عليكــم ورحمـة الله وبركاتــه

بســم الله الـرحمــن الرحيــم

يشرفني أنني اليوم فقط سجلت معكم في هذا المنتدي الرائع

ومستواي في الفيجيوال بيسيك قلييل قلييل

واتمني أن يكون هذا هو ما طلبه الأخ

aos1982

عفوا

لم أذكر أن هذا الكود يعمل من خلال الإكسل

وإن كنت أعرف أنه من السهل إستخدامه من التطبيقات الأخري

كل معلوماتي عن الفيجيوال بيسيك من الإكسل

طارق محمود

أخي الكريم أشكرك شكرا جزيلا

المطلوب بالضبط التسمية السابقة www01 أريد حذف الـ 0 من جميع الملفات

حفظك الله وياليت ترفقلي هذا الشيء على شكل برنامج ..

حفظك الله ورعاك

السلام عليكــم ورحمـة الله وبركاتــه

أولا : أرجو المعذرة للتأخير

ثانيا : هذا هو الماكرو تستطيع نسخه كوبي بيست

Sub F_Rename()

For i = 1 To 4

OldName = "C:\Temp\www0" & i & ".txt"

NewName = "C:\Temp\www" & i & ".txt"

Name OldName As NewName 'FileSearchFileSearch

Next i

End Sub

يمكنك أيضا إستخدام الإكسبلورر العادي في كثير من الحالات

للإستغناء عن أواخر أسماء الملفات مع إستبدالها بأرقام تلقائية بين قوسين

أعتقد أنه سيكون مناسب في هذه حالة

أنظر للصورة المرفقة

مرفق الكود أيضا

لاحظت أن شكله السابق غير مضبوط

</B>Sub F_Rename()		
For i = 1 To 4
	OldName = "C:\Temp\www0" & i & ".txt"
	NewName = "C:\Temp\www" & i & ".txt"
	Name OldName As NewName 'FileSearchFileSearch
Next i
End Sub
<B>

Sub F_Rename()
For i = 1 To 4
	OldName = "C:\Temp\www0" & i & ".txt"
	NewName = "C:\Temp\www" & i & ".txt"
	Name OldName As NewName 'FileSearchFileSearch
Next i
End Sub

جزاك الله خيرا أخي الكريم ....... وفقك الله