[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)

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

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

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

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