[ممدوح]

هذا مثال لرفع الملف على الشبكة سواء محلية أو انترنت، بشرط وجود صلاحية على المجلد المراد الرفع داخله.
إذا مجلد مشاركة يفضل أخذ اسم المسار من خصائص المجلد والذي يكون عادة يبدأ ب \\ وهو شبيه بهذا الاسم DELL-PC\Users\Admin\Desktop\sharefolder\\ ثم تضع بعده اسم للملف وليس بالضرورة ان يكون مشابه لاسم الملف الأساسي

كود :

Public Class Form1

   Private WithEvents wc As New Net.WebClient

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim srcFilename As String = "C:\filename.txt"
       Dim trgFilename As String = "ipadress/uploadfolder/filename.txt"
       Try
            wc.Credentials = New Net.NetworkCredential("username", "password") ' إذا لزم الأمر
           wc.UploadFileAsync(New Uri(trgFilename), srcFilename)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub wc_UploadFileCompleted(ByVal sender As Object, ByVal e As System.Net.UploadFileCompletedEventArgs) Handles wc.UploadFileCompleted
       MsgBox("تم رفع الملف")
   End Sub

   Private Sub wc_UploadProgressChanged(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles wc.UploadProgressChanged
       Me.ProgressBar1.Value = e.ProgressPercentage
   End Sub

End Class