كود :
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)
السلام عليكم ورحمة الله وبركاته
أستخدم الكود أعلاه في نقل الملفات ويعمل معي بشكل جيد لكن بشرط أني ألغي اشتراط طلب اسم المستخدم أو كلمة المرور بالسيرفر
هل فيه إضافة على الكود لكي أضيف اسم المستخدم وكلمة المرور للسيرفر
حتى لا يكون مجلدات المشاركة عرضة للتلاعب من خلال مستخدمين الشبكة
ما شاء الله عليك
ممكن اخي الغالي تشرح لي طريقة نقل الملفات عبر الشبكة لأن محتاج الطريقة
و لك جزيل الشكر
(22-04-22, 04:14 AM)أبووسم كتب : [ -> ]ما شاء الله عليك
ممكن اخي الغالي تشرح لي طريقة نقل الملفات عبر الشبكة لأن محتاج الطريقة
و لك جزيل الشكر
أبشر أبو وسم
تجد الشرح مرفق في ملف PDF
وأي شي مو واضح أنا حاضر
بشرك الله بما يسرك
طبقت الخطوات الاولى في مشاركة الملف على الشبكة
و لكن عند التوجه للفورم لكتابة الاكواد و الاوامر استصعبت علي
انا انشأت فورم و وضعت تكست بوكس اسميته (path_)
ثم وضعت الأمر التالي في بوتين
كود :
My.Computer.FileSystem.MoveFile(path_.Text, path & "\" & filename, True)
و لم تفلح المسألة
ممكن بعد إذنك تصمم لنا مشروع مصغر وانا سأقوم بتغيير الايبي ،
وجزاك الله خير
بشرك الله بالجنة في هذه الايام المباركة
اعتذر عن التأخير في الرد بسبب قلت الوقت
و الله يجزاك خير و يرحم والديك
تم مراجعة المشروع ، جهد رائع و جبار
و انا كنت ابحث عنه من زمن و راح يفيدني كثير ، الف شكر لك و الله يعطيك العافية ويزيدك علم