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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع الرائد 3 85 09-06-19, 05:21 AM
آخر رد: ابراهيم ايبو
  مشكله في تغيير مقاسات البرنامج عند نقله علي اللاب توب Emam emam 6 227 19-05-19, 12:10 AM
آخر رد: elgokr
  زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري atefkhalf2004 4 255 24-02-19, 04:50 PM
آخر رد: حريف برمجة
  تغيير الليست بكس بالداتاجريد فيو محمد خيري 5 226 15-02-19, 09:09 PM
آخر رد: princelovelorn
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 238 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 210 11-02-19, 11:39 PM
آخر رد: princelovelorn
  [سؤال] تغيير ألوان التقرير حسب القيمة عاشق الرسول 3 230 21-01-19, 06:04 PM
آخر رد: elgokr
  سؤال في تغيير قيمة الخلية sofiane-phy 3 242 16-01-19, 11:09 PM
آخر رد: sofiane-phy
  تغيير لغة الجداول فى الداتا جريد احمد خطاب 3 280 06-12-18, 09:27 PM
آخر رد: Emam emam
Heart [VB.NET] تغيير لون وخصائص date time picker ahmadpal 4 309 01-12-18, 10:19 PM
آخر رد: Rabeea Qbaha

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


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