منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

أستخدمت OpenFileDiloge

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

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

الكود اللي أستخدمته

كود :

Dim OpenFileBr As New OpenFileDialog

                OpenFileBr.Filter = "Files (*.pdf)|*.pdf"

                If OpenFileBr.ShowDialog = Windows.Forms.DialogResult.OK Then

                    FileGetName = OpenFileBr.FileName

                    MsgBox(FileGetName)

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

كود :

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

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

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

سورس (2015)

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

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

تحياتى لك

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

موضوع جد جميل

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

DOX.1

911

elgokr

anes