+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج مسـاعدتكم في أرسال مجلد (/showthread.php?tid=13826)
الصفحات:
1
2
محتاج مسـاعدتكم في أرسال مجلد - adel27 - 15-11-15
مســاء الخيـر
يوجد سيرفر مرتبط به عدد من الأجهزه
داخل السيرفر مجلد أسمه أرشيف
محتاج برمجة زر بحيث أن أي شخص جهازه مرتبط بالسيرفر وعنده مجلد يحتاج إلى أرساله للأرشيف
يضغط على زر أرسال
الحل موجود عند العباقره
RE: محتاج مسـاعدتكم في أرسال مجلد - HASAN6.0 - 15-11-15
هل تريد الارسال كملف ام كبيانات مشفرة ؟
يعني باستخدام windows sharing ام باستخدام database او winsock او ما شابه
RE: محتاج مسـاعدتكم في أرسال مجلد - adel27 - 15-11-15
عادي بأي طريقه بس المهم أنه يختار المجلد وينقل المجلد بمحتوياته
RE: محتاج مسـاعدتكم في أرسال مجلد - مهموم - 15-11-15
السلام عليكم ورحمة الله
أخي عادل
جرب هذا الكود
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Using folderBrowser As New FolderBrowserDialog
If folderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim folderPath As String = folderBrowser.SelectedPath
Dim archivePath As String = "مسار مجلد الأرشيف كاملا"
IO.Directory.Move(folderPath, archivePath & "\" & IO.Path.GetFileName(folderPath))
MessageBox.Show("تم النقل")
End If
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
RE: محتاج مسـاعدتكم في أرسال مجلد - adel27 - 15-11-15
أسأل الله أن ىيفرج همك
شغال ولكن فيه مشـكله وهي أني إذا أخترت مجلد وداخله مجلدات يجبرني على أختيار واحد منهم أنا أبيه ينقل المجلد اللي أحدده باللي فيه
أنا جربته على جهازي وهو يعمل ولا أدري سيعمل على جهاز مرتبط بالسـيرفر عن طريق الشبكه ويرسل إلى السيرفر ...؟
بمعنى أصح لو وضعت هذا المسـار C:\أرشيف\
كيف يعرف أن مسـار c أقصد به السيرفر وليس الجهاز ..؟
RE: محتاج مسـاعدتكم في أرسال مجلد - مهموم - 16-11-15
السلام عليكم ورحمة الله
أخي عادل
لا يوجد إجبار على اختيار واحد، فقط حدد المجلد الأب وسينقله بما فيه من مجلدات وملفات.
السيرفر إذا شبكة محلية عنوانه مباشرة يبدأ عادة ب \\ وليس حرف ثم عنوانه مثل 192.168.1.100
RE: محتاج مسـاعدتكم في أرسال مجلد - adel27 - 16-11-15
كود :
"192.168.1.100\أرشيف\C:"RE: محتاج مسـاعدتكم في أرسال مجلد - مهموم - 16-11-15
السلام عليكم ورحمة الله
أخي عادل
لا غير صحيح.
هذا مثال يمكن تجربته على نفس الجهاز ليتضح لك شكل المسار،
ضع هذا المسار في عنوان مستكشف الويندوز لترى النتيجة
PHP كود :
\\127.0.0.1\Users
RE: محتاج مسـاعدتكم في أرسال مجلد - adel27 - 16-11-15
الأن لو فتحت أبي أختار مجلد وبعدين تراجعت ماعاد أبي أرسل ملف أقفل النافذه تظهر مسج بكس تم النقل
أبي أضع شرط كيف
(16-11-15, 01:29 AM)مهموم كتب : السلام عليكم ورحمة اللههل أضع الباث بدون علامات كوتيشن ..؟
أخي عادل
لا غير صحيح.
هذا مثال يمكن تجربته على نفس الجهاز ليتضح لك شكل المسار،
ضع هذا المسار في عنوان مستكشف الويندوز لترى النتيجة
PHP كود :
\\127.0.0.1\Users
RE: محتاج مسـاعدتكم في أرسال مجلد - مهموم - 16-11-15
السلام عليكم ورحمة الله
أخي عادل
الكود الذي وضعته لك فيه شرط الموافقة وذلك بالضغط على الزر OK وإلا لن تتم العملية ويعتبرها ملغية.
السلام عليكم ورحمة الله
أخي عادل
يبدو أنني وضعت الرسالة خارج الشرط...
أعتذر عن الخطأ، كل ما عليك أن تنقله إلى ما قبل End If.
تم تعديل الكود السابق...