مســاء الخيـر
يوجد سيرفر مرتبط به عدد من الأجهزه
داخل السيرفر مجلد أسمه أرشيف
محتاج برمجة زر بحيث أن أي شخص جهازه مرتبط بالسيرفر وعنده مجلد يحتاج إلى أرساله للأرشيف
يضغط على زر أرسال
الحل موجود عند العباقره
هل تريد الارسال كملف ام كبيانات مشفرة ؟
يعني باستخدام windows sharing ام باستخدام database او winsock او ما شابه
عادي بأي طريقه بس المهم أنه يختار المجلد وينقل المجلد بمحتوياته
السلام عليكم ورحمة الله
أخي عادل
جرب هذا الكود
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
أسأل الله أن ىيفرج همك
شغال ولكن فيه مشـكله وهي أني إذا أخترت مجلد وداخله مجلدات يجبرني على أختيار واحد منهم أنا أبيه ينقل المجلد اللي أحدده باللي فيه
أنا جربته على جهازي وهو يعمل ولا أدري سيعمل على جهاز مرتبط بالسـيرفر عن طريق الشبكه ويرسل إلى السيرفر ...؟
بمعنى أصح لو وضعت هذا المسـار C:\أرشيف\
كيف يعرف أن مسـار c أقصد به السيرفر وليس الجهاز ..؟
السلام عليكم ورحمة الله
أخي عادل
لا يوجد إجبار على اختيار واحد، فقط حدد المجلد الأب وسينقله بما فيه من مجلدات وملفات.
السيرفر إذا شبكة محلية عنوانه مباشرة يبدأ عادة ب \\ وليس حرف ثم عنوانه مثل 192.168.1.100
كود :
"192.168.1.100\أرشيف\C:"
أفهم من كلامك أن الباث بيكون كذا
السلام عليكم ورحمة الله
أخي عادل
لا غير صحيح.
هذا مثال يمكن تجربته على نفس الجهاز ليتضح لك شكل المسار،
ضع هذا المسار في عنوان مستكشف الويندوز لترى النتيجة
الأن لو فتحت أبي أختار مجلد وبعدين تراجعت ماعاد أبي أرسل ملف أقفل النافذه تظهر مسج بكس تم النقل
أبي أضع شرط كيف
(16-11-15, 01:29 AM)مهموم كتب : [ -> ]السلام عليكم ورحمة الله
أخي عادل
لا غير صحيح.
هذا مثال يمكن تجربته على نفس الجهاز ليتضح لك شكل المسار،
ضع هذا المسار في عنوان مستكشف الويندوز لترى النتيجة
هل أضع الباث بدون علامات كوتيشن ..؟
السلام عليكم ورحمة الله
أخي عادل
الكود الذي وضعته لك فيه شرط الموافقة وذلك بالضغط على الزر OK وإلا لن تتم العملية ويعتبرها ملغية.
السلام عليكم ورحمة الله
أخي عادل
يبدو أنني وضعت الرسالة خارج الشرط...
أعتذر عن الخطأ، كل ما عليك أن تنقله إلى ما قبل End If.
تم تعديل الكود السابق...