[DOX.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)

محتاج أغير أسم الملف بنفس الأمتداد

[911]

كود :

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

[elgokr]

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

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

سورس (2015)

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

واتمنى ان يكون الكود مبسط وواضح داخل السورس

تحياتى لك

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

[anes]

موضوع جد جميل