منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تركيب تلقائي للملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تركيب تلقائي للملف (/showthread.php?tid=3521)

تركيب تلقائي للملف - 3booy201 - 20-07-14

السلام عليكم
كيفكم ان شاء الله بخير
مشكورين على افادتكم لي بالموضوع السابق ماقصرتوا الله يجزيكم خير Smile

المهم
اليوم عندي سوال مهم جدا

كيف اسوي زر وضيفته
اني لما اضغطه اختار ملف محدد واضغط موافق وينتقل الملف لمسار محدد
هل من الممكن عمل ذلك


انتمى تفيديوني وماتقصرون معي وشكرا Smile

RE: تركيب تلقائي للملف - 3booy201 - 21-07-14

UP
اتمنى المساعده
لانني اريد ان انتهي من المشروع قبل العيد لامر ضروري
وشكرا للجميع

RE: تركيب تلقائي للملف - vbnet - 21-07-14

.....

نقل ملف لمسار يتم اختيارع عن طريق مربع حوار تحديد المكان الهدف
ضع Button1 في الفورم
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إنشاء مربع حوار فتح ملف (وهنا لاختيار ملف) ـ
    Using op As New OpenFileDialog

        ' عند الموافقة على الملف الذي تم اختياره
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' إنشاء مربع حوار تحديد المكان المراد نقل الملف إليه
            Using bws As New FolderBrowserDialog

                ' عند الموافقة على المكان
                If bws.ShowDialog = Windows.Forms.DialogResult.OK Then

                    ' رسالة تأكيد من رغبتك في نقل الملف من مكان إلى مكان
                    If MsgBox("هل أنت متأكد", MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading) = MsgBoxResult.Yes Then

                        ' إقتناص أي خطأ يحدث في عدم إمكانية نقل الملف لأي سبب من الأسباب
                        Try

                            ' إسم الملف الأساس مع مساره
                            Dim srcFilename As String = op.FileName

                            ' إسم الملف الأساس مع تبديل مساره الأساس بالمسار المنقول إليه
                            Dim trgFilename As String = bws.SelectedPath & "\" & IO.Path.GetFileName(op.FileName)

                            ' إذا كان يوجد ملف بنفس الإسم فاخذف الملف القديم
                            If IO.File.Exists(trgFilename) Then IO.File.Delete(trgFilename)

                            ' عملية نقل الملف
                            IO.File.Move(srcFilename, trgFilename)

                        Catch ex As Exception
                            ' إظهار رسالة بالخطأ الذي حصل
                            MsgBox(ex.Message)

                        End Try
                    End If
                End If
            End Using
        End If
    End Using

End Sub

نقل ملف لمسار محدد مسبقاً
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إنشاء مربع حوار فتح ملف (وهنا لاختيار ملف) ـ
    Using op As New OpenFileDialog

        ' عند الموافقة على الملف الذي تم اختياره
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' المسار الهدف
            Dim trgPath As String = "C:\......."
            ' التأكد من وضع \ في نهاية المسار
            If Not trgPath.EndsWith("\") Then trgPath &= "\"

            ' رسالة تأكيد من رغبتك في نقل الملف من مكان إلى مكان
            If MsgBox("هل أنت متأكد", MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading) = MsgBoxResult.Yes Then

                ' إقتناص أي خطأ يحدث في عدم إمكانية نقل الملف لأي سبب من الأسباب
                Try

                    ' إسم الملف الأساس مع مساره
                    Dim srcFilename As String = op.FileName

                    ' إسم الملف الأساس مع تبديل مساره الأساس بالمسار المنقول إليه
                    Dim trgFilename As String = trgPath & IO.Path.GetFileName(op.FileName)

                    ' إذا كان يوجد ملف بنفس الإسم فاخذف الملف القديم
                    If IO.File.Exists(trgFilename) Then IO.File.Delete(trgFilename)

                    ' عملية نقل الملف
                    IO.File.Move(srcFilename, trgFilename)

                Catch ex As Exception
                    ' إظهار رسالة بالخطأ الذي حصل
                    MsgBox(ex.Message)

                End Try
            End If
        End If
    End Using

End Sub

.....

RE: تركيب تلقائي للملف - 3booy201 - 21-07-14

شكرا اخي
لكن لم افهم
هل من الممكن ان تشرح لي ؟
اين اضع هذه الاكواد واين اضع المسار الذي اريد نقل الملف اليه

RE: تركيب تلقائي للملف - 3booy201 - 21-07-14

شكرا لكك اخي
افدتني
لكن لدي مشكله مع الكود
اذا كان الملف موجود مسبقا مثلا
قمت بنقله الى مسار
C:\Users\abdullah\AppData\Roaming\
ولكن يوجد ملف بنفس الاسم
يقول تعذر لانه موجود مسبقا
هل من الممكن ان يحصل اضافه واسبدال للملف
؟
اتمنى الافاده وشكرا

RE: تركيب تلقائي للملف - 3booy201 - 21-07-14

الف شكر لك اخي
لكن استفسار اخير
هذا المسار
C:\Users\abdullah\AppData\Roaming\.minecraft\bin
سيعمل البرنامج في جهازي لكن لم يعمل في جهاز غيري بسبب ال UserName
هل يوجد حل

RE: تركيب تلقائي للملف - 3booy201 - 21-07-14

شكرا لك
لكن لا اعرف كيف اضيفها
اي تضيف minecraft/bin
هل من الممكن ان تضيفها لي او تشرح لي الطريقة
حملت الفيجوال بيسك قبل ايام ولست خبير
اعتذر على كثره الاسئله

RE: تركيب تلقائي للملف - 3booy201 - 21-07-14

هل لديك Skype
كي استطيع التواصل معك ؟

RE: تركيب تلقائي للملف - vbnet - 21-07-14

.....

بامكانك الاستبدال بهذا السطر
كود :
' المسار الهدف
Dim trgPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\minecraft\bin"

.....

RE: تركيب تلقائي للملف - 3booy201 - 21-07-14

الحمدلله حلت المشكله
شكرا شكرا شكرا لك اخي
الله يجزيك كل خير ويرزقك جنات الفردوس الاعلى يارب
ماقصرت والله
ان شاء الله ماتعبتك معاي

اتمنى اذا عندك وسيله تواصل تطرحها
لاني محتاج خبرتك الله يخليك لنا