تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تركيب تلقائي للملف
#1
السلام عليكم
كيفكم ان شاء الله بخير
مشكورين على افادتكم لي بالموضوع السابق ماقصرتوا الله يجزيكم خير Smile

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

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


انتمى تفيديوني وماتقصرون معي وشكرا Smile
الرد }}}}
تم الشكر بواسطة:
#2
UP
اتمنى المساعده
لانني اريد ان انتهي من المشروع قبل العيد لامر ضروري
وشكرا للجميع
الرد }}}}
تم الشكر بواسطة:
#3
.....

نقل ملف لمسار يتم اختيارع عن طريق مربع حوار تحديد المكان الهدف
ضع 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

.....
الرد }}}}
تم الشكر بواسطة: 3booy201
#4
شكرا اخي
لكن لم افهم
هل من الممكن ان تشرح لي ؟
اين اضع هذه الاكواد واين اضع المسار الذي اريد نقل الملف اليه
الرد }}}}
تم الشكر بواسطة:
#5
شكرا لكك اخي
افدتني
لكن لدي مشكله مع الكود
اذا كان الملف موجود مسبقا مثلا
قمت بنقله الى مسار
C:\Users\abdullah\AppData\Roaming\
ولكن يوجد ملف بنفس الاسم
يقول تعذر لانه موجود مسبقا
هل من الممكن ان يحصل اضافه واسبدال للملف
؟
اتمنى الافاده وشكرا
الرد }}}}
تم الشكر بواسطة:
#6
الف شكر لك اخي
لكن استفسار اخير
هذا المسار
C:\Users\abdullah\AppData\Roaming\.minecraft\bin
سيعمل البرنامج في جهازي لكن لم يعمل في جهاز غيري بسبب ال UserName
هل يوجد حل
الرد }}}}
تم الشكر بواسطة:
#7
شكرا لك
لكن لا اعرف كيف اضيفها
اي تضيف minecraft/bin
هل من الممكن ان تضيفها لي او تشرح لي الطريقة
حملت الفيجوال بيسك قبل ايام ولست خبير
اعتذر على كثره الاسئله
الرد }}}}
تم الشكر بواسطة:
#8
هل لديك Skype
كي استطيع التواصل معك ؟
الرد }}}}
تم الشكر بواسطة:
#9
.....

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

.....
الرد }}}}
تم الشكر بواسطة: 3booy201 , kslawy
#10
الحمدلله حلت المشكله
شكرا شكرا شكرا لك اخي
الله يجزيك كل خير ويرزقك جنات الفردوس الاعلى يارب
ماقصرت والله
ان شاء الله ماتعبتك معاي

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [نقاش] [VB.NET] جعل المشروع يعمل تلقائي nabil-maher 4 154 05-11-16, 02:32 AM
آخر رد: الماجيك مسعد
  [كود] اريد كود استخراج سورس موقع تحويل تلقائي sharo.azad 0 68 08-10-16, 03:10 PM
آخر رد: sharo.azad
  ماهو تركيب الملفات التنفيذية PE File Format LoveVb 6 260 28-08-16, 08:29 PM
آخر رد: LoveVb
  كود تحقق الاتصال بالانترنت وتسجيل تلقائي لايميل طالب 22 3 137 05-08-16, 01:04 AM
آخر رد: LoveVb
  عمل تسيجل دخول تلقائي لايميل معين عبدالرحمن المكاوي 29 596 30-07-16, 01:29 AM
آخر رد: عبدالرحمن المكاوي
  [كود] طلب شرح تركيب الكود mostfa1995 0 113 24-04-16, 05:16 PM
آخر رد: mostfa1995
  [كود] طلب شرح تركيب الكود mostfa1995 0 113 09-04-16, 12:45 AM
آخر رد: mostfa1995
  [سؤال] سؤال فتح ايميل بشكل تلقائي عبد الرحمن متولي 2 218 06-04-16, 06:01 PM
آخر رد: عبد الرحمن متولي
  [سؤال] ممكن طريقة عمل تاريخ تلقائي بالفيجوال بيسك غيث 7 496 06-01-16, 12:23 PM
آخر رد: غيث
  احتاج مساعدتكم في طريقه تركيب الكود كامل الاكواد جاهزة مصغر يتبع للعمولات moh61 5 522 06-09-15, 07:38 PM
آخر رد: moh61

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


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