تقييم الموضوع :
  • 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 ك ب / التحميلات : 4)
.zip   Rename File.zip (الحجم : 34.93 ك ب / التحميلات : 4)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير لغة الجداول فى الداتا جريد احمد خطاب 3 85 06-12-18, 09:27 PM
آخر رد: Emam emam
Heart [VB.NET] تغيير لون وخصائص date time picker ahmadpal 4 110 01-12-18, 10:19 PM
آخر رد: Rabeea Qbaha
  [سؤال] تغيير الطابعه الافتراضيه عند الطباعه allo5_800 2 83 18-11-18, 11:15 AM
آخر رد: allo5_800
  كيفية تغيير الباس وورد يوميا احمد خطاب 4 161 27-10-18, 05:16 PM
آخر رد: احمد خطاب
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 336 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] عدم تغيير قيمة NumericUpdown Simo1991 7 169 09-10-18, 12:21 PM
آخر رد: Simo1991
Smile [VB.NET] تغيير شكل الفورم Mahmoud Nasser 7 551 30-09-18, 02:36 PM
آخر رد: mustafa husaieen
  [VB.NET] استفسار :- بخصوص تغيير اسم ال Button بعد الضغط dubai.eig 10 352 17-09-18, 10:53 AM
آخر رد: dubai.eig
  [سؤال] تغيير السكاين من الكومبوبكس العيدروس 14 465 14-09-18, 11:46 PM
آخر رد: العيدروس
Exclamation [سؤال] تغيير الماك ادرس DK-x 4 184 13-09-18, 03:22 PM
آخر رد: DK-x

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


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