17-09-16, 03:03 AM
الصفحات : 1 2
17-09-16, 05:02 AM
كود :
My.Computer.Network.UploadFile("مسار الملف كامل", "عنوان السيرفر مع اسم الملف فقط", اسم المستخدام"كلمة المرور")
17-09-16, 07:29 AM
ربما للتوضيح اكثر
بالتوفيق
PHP كود :
My.Computer.Network.UploadFile("D:\php.txt", "ftp://your-domain-name/wwwroot/your-folder/php.text", "FTP-user-name", "FTP-password", True, 48000)
17-09-16, 03:43 PM
(17-09-16, 07:29 AM)أبو عمر كتب : [ -> ]ربما للتوضيح اكثرشكرا لكم
بالتوفيقPHP كود :
My.Computer.Network.UploadFile("D:\php.txt", "ftp://your-domain-name/wwwroot/your-folder/php.text", "FTP-user-name", "FTP-password", True, 48000)
لكن لوتكرمتم بالتعديل على الكود ووضعه هنا لاني لم افلح في التعديل عليه وليستفيد الجميع
وشكرا لكم
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
18-09-16, 02:34 AM
(17-09-16, 07:59 PM)alims كتب : [ -> ]كود :
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
شكرا لك اخي alims
الكود يعمل بامتياز لكن تعديل طفيف لو سمحت وهو الملف المراد تحميله ثابت بالجهاز اي تعين مكان الملف برمجيا لتتم عملية التحميل مباشرتا بهد الظغط على الزر من دون ان تفتح وتذهب تختار انت الملف
وشكرا لك على المساعدة
21-09-16, 12:59 PM
ارجو الافادة اخوتي
22-09-16, 12:57 AM
هل من مجيب
22-09-16, 06:35 AM
اكتب لما مسار الملف طيب
22-09-16, 03:34 PM
(22-09-16, 06:35 AM)أبو عمر كتب : [ -> ]اكتب لما مسار الملف طيب
E:\Folder1\dsf.txt
الصفحات : 1 2