كيف نستخدم My.Computer.Network لرفع وتحميل ملفات في Visual Basic 2005

هذا المقال يصف كيفية استخدام My.Computer.Network لرفع وتحميل الملفات عبر شبكة باستخدام فيجول بايزيك 2005وباستخدامه يمكنك نقل الملفات من مصادر شبكة بعيدة للكمبيوتر المحلي ولعمل ذلك ستستخدم الطرائق التالية في تطبيق فيجول بايزيك:

• My.Computer.Network.DownloadFile تحمل ملف محدد بعيد وتحفظه في المكان المحدد في الموقع المحدد على الكمبيوتر الحالي

• My.Computer.Network.UploadFile ترسل ملف محدد من الكمبيوتر المحلي إلى عنوان مضيف محدد

استخدام الطريقة My.Computer.Network.DownloadFile لتحميل الملفات

1. افتح فيجول ستوديو 2005

2. من قائمة File اختر New Project

3. من Project Types ومن Visual Basic أنشئ تطبيق من نوع Windows Application

4. أضف زر Button للنموذج Form1

5. انقر الزر نقرا مزدوجا على الزر فتنتقل لمحرر الكود

6. أدخل الكود التالي في الحدث Button1_Click

Try
	 ' My.Computer.Network.DownloadFile("<HostPath>", "<LocalPath>")
	 My.Computer.Network.DownloadFile("\\Server\test.txt", " C:\Download\test.txt")
		MessageBox.Show("File downloaded.")
Catch ex As Exception
	MessageBox.Show("Access failed" & vbCrLf & ex.Message)
End Try

7. شغل المشروع واختبره

استخدام My.Computer.Network.UploadFile لرفع الملفات

1. افتح فيجول ستوديو 2005

2. من قائمة File اختر New Project

3. من Project Types ومن Visual Basic أنشئ تطبيق من نوع Windows Application

4. أضف زر Button للنموذج Form1

5. انقر الزر نقرا مزدوجا على الزر فتنتقل لمحرر الكود

6. أدخل الكود التالي في الحدث Button1_Click

Try
	  ' My.Computer.Network.UploadFile("<LocalPath>", "<HostPath>")
	  My.Computer.Network.UploadFile("C:\Upload\test.txt", " \\Server\test.txt")
	  MessageBox.Show("File uploaded.")
Catch ex As Exception
	  MessageBox.Show("Access failed" & vbCrLf & ex.Message)
End Try

7. شغل المشروع واختبره