17-09-16, 07:59 PM
السلام عليكم اخى
الاول اشكر اخى أبو عمر
يوجد فى المرفقات المشروع يعمل
و هذ الكود المستخدام فى العمل
الاول اشكر اخى أبو عمر
يوجد فى المرفقات المشروع يعمل
و هذ الكود المستخدام فى العمل
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
Label2.Text = ""
Label4.Text = ""
Label6.Text = ""
Label2.Text = OpenFileDialog1.FileName.ToString
Label4.Text = OpenFileDialog1.SafeFileName.ToString
Dim f As System.IO.FileInfo = New System.IO.FileInfo(Label2.Text)
Label6.Text = f.Length.ToString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
My.Computer.Network.UploadFile(Label2.Text, "FTP://اسم السيرفر/" + Label4.Text, "اسم المستخدام", "كلمة المرور", True, 48000)
End Sub
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
