[abomo3ath]

كود :

path = "\\10.16.19.28\PF Files ")
If My.Computer.FileSystem.DirectoryExists(path) = False Then
My.Computer.FileSystem.CreateDirectory(path)
End If
Dim dnames As New System.IO.FileInfo(path_.Text)
filename = name_.Text & dnames.Extension
My.Computer.FileSystem.MoveFile(path_.Text, path & "\" & filename, True)

السلام عليكم ورحمة الله وبركاته

أستخدم الكود أعلاه في نقل الملفات ويعمل معي بشكل جيد لكن بشرط أني ألغي اشتراط طلب اسم المستخدم أو كلمة المرور بالسيرفر 

هل فيه إضافة على الكود لكي أضيف اسم المستخدم وكلمة المرور للسيرفر 

حتى لا يكون مجلدات المشاركة عرضة للتلاعب من خلال مستخدمين الشبكة

[أبووسم]

ما شاء الله عليك

ممكن اخي الغالي تشرح لي طريقة نقل الملفات عبر الشبكة لأن محتاج الطريقة

و لك جزيل الشكر

[abomo3ath]

(22-04-22, 04:14 AM)أبووسم كتب : ما شاء الله عليك

ممكن اخي الغالي تشرح لي طريقة نقل الملفات عبر الشبكة لأن محتاج الطريقة

و لك جزيل الشكر

أبشر أبو وسم 

تجد الشرح مرفق في ملف PDF

وأي شي مو واضح أنا حاضر

  بداية الموضوع يحتاج منك تجهيز الملف بالسيرفر للمشاركة وذلك من خلال التالي.pdf (الحجم : 388.25 ك ب / التحميلات : 63)

[أبووسم]

بشرك الله بما يسرك

طبقت الخطوات الاولى في مشاركة الملف على الشبكة

و لكن عند التوجه للفورم لكتابة الاكواد و الاوامر استصعبت علي

انا انشأت فورم و وضعت تكست بوكس اسميته (path_)

ثم وضعت الأمر التالي في بوتين

كود :

My.Computer.FileSystem.MoveFile(path_.Text, path & "\" & filename, True)

و لم تفلح المسألة

ممكن بعد إذنك تصمم لنا مشروع مصغر وانا سأقوم بتغيير الايبي ،

وجزاك الله خير

[abomo3ath]

(24-04-22, 06:02 AM)أبووسم كتب : بشرك الله بما يسرك

طبقت الخطوات الاولى في مشاركة الملف على الشبكة

و لكن عند التوجه للفورم لكتابة الاكواد و الاوامر استصعبت علي

انا انشأت فورم و وضعت تكست بوكس اسميته (path_)

ثم وضعت الأمر التالي في بوتين

كود :

My.Computer.FileSystem.MoveFile(path_.Text, path & "\" & filename, True)

و لم تفلح المسألة

ممكن بعد إذنك تصمم لنا مشروع مصغر وانا سأقوم بتغيير الايبي ،

وجزاك الله خير

أبشر بسعدك

تجد المطلوب ضمن المرفقات

  upload a file.rar (الحجم : 64.34 ك ب / التحميلات : 70)

[أبووسم]

بشرك الله بالجنة في هذه الايام المباركة

اعتذر عن التأخير في الرد بسبب قلت الوقت

و الله يجزاك خير و يرحم والديك

---

تم مراجعة المشروع ، جهد رائع و جبار

و انا كنت ابحث عنه من زمن و راح يفيدني كثير ، الف شكر لك و الله يعطيك العافية ويزيدك علم