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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل تحديث تلقائي للبرنامج عبدالرحمن المكاوي 4 103 19-09-17, 10:53 PM
آخر رد: محمدصلاح
Question ممكن كود نسخ تلقائي؟؟ The Light Fire 1 124 17-07-17, 08:21 AM
آخر رد: silverlight
  [VB.NET] ترقيم تلقائي بشرط محمد بوقزاحة 1 186 17-05-17, 06:35 AM
آخر رد: alma2
  [VB.NET] ترقيم تلقائي من بداية الشهر محمد بوقزاحة 3 232 20-03-17, 01:52 PM
آخر رد: myalsailamy
  [VB.NET] جدولة الإستحقاقات بشكل تلقائي اليوم مبتدئة وغداً محترفة 2 222 07-03-17, 08:17 PM
آخر رد: مساعدة
  جعل الجريد ترقيم تلقائي بورمات معين abdulla2 4 292 06-02-17, 05:55 PM
آخر رد: abdulla2
  ترقيم تلقائي من بداية الشهر محمد بوقزاحة 0 171 06-02-17, 03:25 PM
آخر رد: محمد بوقزاحة
Rainbow [نقاش] [VB.NET] جعل المشروع يعمل تلقائي nabil-maher 4 394 05-11-16, 02:32 AM
آخر رد: الماجيك مسعد
  [كود] اريد كود استخراج سورس موقع تحويل تلقائي sharo.azad 0 360 08-10-16, 03:10 PM
آخر رد: sharo.azad
  ماهو تركيب الملفات التنفيذية PE File Format LoveVb 6 740 28-08-16, 08:29 PM
آخر رد: LoveVb

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


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