تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير أسم ملف
#1
السلام عليكم ورحمة الله وبركاته 


أستخدمت OpenFileDiloge  

محتاج كود  بحيث أنه لما تفتح النافذه ويتم أختيار الملف ( أجلب المسار + أسم الملف ) وأغير أسم الملف إلى تسميه جاهزه عندي 
وأحصل على المسار الجديد 


لاحظ محتاج أن أعملها كلها في فتح نافذه واحده كييييف..؟

الكود اللي أستخدمته 
كود :
Dim OpenFileBr As New OpenFileDialog
               OpenFileBr.Filter = "Files (*.pdf)|*.pdf"

               If OpenFileBr.ShowDialog = Windows.Forms.DialogResult.OK Then
                   FileGetName = OpenFileBr.FileName
                   MsgBox(FileGetName)

محتاج أغير أسم الملف بنفس الأمتداد
الرد
تم الشكر بواسطة:
#2
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Using OpenFileBr As New OpenFileDialog With {.Filter = "Files (*.pdf)|*.pdf"}
       If OpenFileBr.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim FileName = OpenFileBr.FileName
           Dim PathFile = IO.Path.GetDirectoryName(OpenFileBr.FileName) & "\"
           MsgBox(PathFile)
       End If
   End Using
End Sub
الرد
تم الشكر بواسطة: DOX.1
#3
وعليكم السلام ورحمة الله وبركاته

مرفق سورس + برنامج للاختبار
سورس (2015)

اتمنى ان يكون به جميع ما تطلبه وما قد تحتاجه فيما بعد
واتمنى ان يكون الكود مبسط وواضح داخل السورس

تحياتى لك
وتمنياتى لك التوفيق


الملفات المرفقة
.zip   Pro.zip (الحجم : 23.29 ك ب / التحميلات : 15)
.zip   Rename File.zip (الحجم : 34.93 ك ب / التحميلات : 21)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: ابو روضة , DOX.1 , DOX.1 , عبدالله الدوسري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير لون button تلقائي عبدالكريم رشدان 6 379 10-12-20, 10:17 PM
آخر رد: عبدالكريم رشدان
  تغيير نص التكست بوكس في كريستال ريبورت Mohammed Nafa 0 256 27-10-20, 08:56 PM
آخر رد: Mohammed Nafa
  [سؤال] تغيير خط ليبال من داخل مجلد السورس عبد الهادي بهاب 9 755 28-08-20, 08:50 AM
آخر رد: Anas Mahmoud
  طلب مساعدة في تغيير كلمة المرور resali 6 609 12-08-20, 02:33 AM
آخر رد: resali
  [كود] كود تغيير حجم النص في التكست بوكس hassan 7 4,588 29-04-20, 06:00 AM
آخر رد: WaeLx
  [سؤال] تغيير لون خلفية textbox عند انتقال المؤشر داخل الاداة سمير1404 5 728 26-04-20, 11:25 PM
آخر رد: سامي محمد
Lightbulb [VB.NET] تغيير لون بعض Items فى Combobox بناء على اختيارات Combobox آخر Doctor GME 4 954 17-04-20, 01:48 AM
آخر رد: Doctor GME
  كيف يمكن تغيير القيمة Albgaly99 1 384 01-03-20, 09:41 PM
آخر رد: ابو ليلى
  [VB.NET] مشكلة تغيير حجم الشاشه mustafa shaker22 1 392 28-02-20, 04:34 AM
آخر رد: kiki
  [سؤال] طلب كود تغيير لون الخط عن طريق تايمر baqaa8 1 909 03-12-19, 01:22 AM
آخر رد: علي بنيان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم