تقييم الموضوع :
  • 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
الحمدلله حلت المشكله
شكرا شكرا شكرا لك اخي
الله يجزيك كل خير ويرزقك جنات الفردوس الاعلى يارب
ماقصرت والله
ان شاء الله ماتعبتك معاي

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] كود لتوليد الارقام تلقائي في text box Raaf 5 620 08-11-23, 03:03 AM
آخر رد: VIP_YEMEN
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,577 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  [VB.NET] كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل يوم Osama_NY 8 2,756 04-11-23, 01:42 PM
آخر رد: الحزين اليماني
  ترقيم تلقائي في الداتا جريد فيو مرتبط بجدول في قاعدة البيانات yosif 1 559 17-04-23, 07:03 AM
آخر رد: Taha Okla
  [سؤال] الخصم من راتب الموظف بشكل تلقائي نهاية كل شهر ... Aisha fa 1 522 09-11-22, 10:30 PM
آخر رد: Amir_Alzubidy
  طريقة لفتح نوافذ مبيعات مختلفة في نفس الوقت وكل فاتورة لها رقم تلقائي tfarejdz 10 3,978 25-09-22, 10:46 AM
آخر رد: رضوان الجماعي
  لايمكن للعملية الوصول للملف لأنه قيد الإستخدام بعملية أخرى جيولوجي مبتدئ 7 841 07-08-22, 06:31 AM
آخر رد: جيولوجي مبتدئ
  حذف تلقائي من listbox dasktop 3 955 08-05-22, 12:20 PM
آخر رد: سعود
  [VB.NET] امر تلقائي او آلي محمد بوقزاحة 4 1,007 27-12-21, 02:45 AM
آخر رد: DR.YASER
  كود سكرين شوت تلقائي fathy54654 1 1,006 09-07-21, 06:01 PM
آخر رد: asemshahen5

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


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