الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مطلوب كود لتحويل اسماء الملفات والامتدادت

بدأه محمد 1975 في 14 يونيو 2014 · 4 رد · 1,104 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

احبابنا فى هذا المنتدى الجميل

كل عام وأنتم  بخير بلغنا الله وإياكم رمضان وبارك لنا فيه وتقبله منكم جميعا

أحبابى محتاج كود يقوم بتغيير اسماء مجموعة ملفات وامتداداتها 

البرنامج صغير جدا يقوم بتحويل اسماء الملفات 

الفكرة أن المستخدم سيحدد مسار الملفات ويقوم البرنامج بتغيير اسمها وامتدادها كلها حسب أحد اختيارين فى صفحة البرنامج

أنا أعمل على فيجوال بيسك 2010

إذا كان مطلوب تفاصيل أكثر أخبرونى لأنى جديد فى مجال البرمجة 

جزاكم الله خيرا مقدما

دمتم فى حفظ الرحمن

تم تعديل هذه المشاركة بواسطة محمد 1975 في 14 يونيو 2014 في 12:50

#2

وعليكم السلام ورحمة الله وبركاته وكل عام وأنت بخير

 

ماهما الاختيارين أخي العزيز وماذا تقصد بهما ؟

#4

كود تغيير أسم الملف مع أختبار وجود الملف أولاً:

If File.Exists(originalFile) Then

System.IO.File.Rename(originalFile, copyOfOriginalFile, True)

Else

Console.WriteLine("{0} does not exist", originalFile)

End If

 

 

لا تنس أضافة:

Imports System.IO

فى بداية الكود

#5

كود تغيير الإمتداد للمافات:

Dim files As String()
files = IO.Directory.GetFiles(TextBox1.Text, "*.cbr")
مكان وجود الملفات بإمتدادتها'
Dim filepath_new As String

For Each filepath As String In files
  filepath_new = filepath.Replace(".cbr", ".rar")
الإمتداد الجديد,'الإمتداد الحالى               
  System.IO.File.Move(filepath, filepath_new)
Next

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…