السلام عليكم
كيفكم ان شاء الله بخير
مشكورين على افادتكم لي بالموضوع السابق ماقصرتوا الله يجزيكم خير 
المهم
اليوم عندي سوال مهم جدا
كيف اسوي زر وضيفته
اني لما اضغطه اختار ملف محدد واضغط موافق وينتقل الملف لمسار محدد
هل من الممكن عمل ذلك
انتمى تفيديوني وماتقصرون معي وشكرا
UP
اتمنى المساعده
لانني اريد ان انتهي من المشروع قبل العيد لامر ضروري
وشكرا للجميع
.....
نقل ملف لمسار يتم اختيارع عن طريق مربع حوار تحديد المكان الهدف
ضع
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
.....
شكرا اخي
لكن لم افهم
هل من الممكن ان تشرح لي ؟
اين اضع هذه الاكواد واين اضع المسار الذي اريد نقل الملف اليه
شكرا لكك اخي
افدتني
لكن لدي مشكله مع الكود
اذا كان الملف موجود مسبقا مثلا
قمت بنقله الى مسار
C:\Users\abdullah\AppData\Roaming\
ولكن يوجد ملف بنفس الاسم
يقول تعذر لانه موجود مسبقا
هل من الممكن ان يحصل اضافه واسبدال للملف
؟
اتمنى الافاده وشكرا
الف شكر لك اخي
لكن استفسار اخير
هذا المسار
C:\Users\abdullah\AppData\Roaming\.minecraft\bin
سيعمل البرنامج في جهازي لكن لم يعمل في جهاز غيري بسبب ال UserName
هل يوجد حل
شكرا لك
لكن لا اعرف كيف اضيفها
اي تضيف minecraft/bin
هل من الممكن ان تضيفها لي او تشرح لي الطريقة
حملت الفيجوال بيسك قبل ايام ولست خبير
اعتذر على كثره الاسئله
هل لديك Skype
كي استطيع التواصل معك ؟
.....
بامكانك الاستبدال بهذا السطر
كود :
' المسار الهدف
Dim trgPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\minecraft\bin"
.....
الحمدلله حلت المشكله
شكرا شكرا شكرا لك اخي
الله يجزيك كل خير ويرزقك جنات الفردوس الاعلى يارب
ماقصرت والله
ان شاء الله ماتعبتك معاي
اتمنى اذا عندك وسيله تواصل تطرحها
لاني محتاج خبرتك الله يخليك لنا