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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير الليست بكس بالداتاجريد فيو محمد خيري 5 105 15-02-19, 09:09 PM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 117 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 102 11-02-19, 11:39 PM
آخر رد: princelovelorn
  [سؤال] تغيير ألوان التقرير حسب القيمة عاشق الرسول 3 123 21-01-19, 06:04 PM
آخر رد: elgokr
  سؤال في تغيير قيمة الخلية sofiane-phy 3 146 16-01-19, 11:09 PM
آخر رد: sofiane-phy
  تغيير لغة الجداول فى الداتا جريد احمد خطاب 3 185 06-12-18, 09:27 PM
آخر رد: Emam emam
Heart [VB.NET] تغيير لون وخصائص date time picker ahmadpal 4 197 01-12-18, 10:19 PM
آخر رد: Rabeea Qbaha
  [سؤال] تغيير الطابعه الافتراضيه عند الطباعه allo5_800 2 175 18-11-18, 11:15 AM
آخر رد: allo5_800
  كيفية تغيير الباس وورد يوميا احمد خطاب 4 247 27-10-18, 05:16 PM
آخر رد: احمد خطاب
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 478 09-10-18, 08:52 PM
آخر رد: ay.alhaj

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


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