+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] نقل الملف الي portable drive (/showthread.php?tid=22590)
نقل الملف الي portable drive - محمد اسماعيل - 17-11-17
السلام عليكم
اريد نقل ملف لمسار الموبايل حتي مع تغيرة لان الاسماء بتختلف
استخدمت الكود التالي عشان اعرف المسار لاحظت انة المسار بيغلق مع انة شغال مع اي درايف ومسار اخر
كود :
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath
End Ifوبعد كدة انسخ الملف للمسار بس مش بيظهر معايا اسم المسار لكي انقل الية الملف او الفولدر
RE: نقل الملف الي portable drive - silverlight - 17-11-17
أحد الأفكار إنك تحصل علي كل driver أولا الموجودة علي الكمبيوتر
و الكود سيكون شئ من هذا القبيل
PHP كود :
Private Function GetLocalDrives() As List(Of IO.DriveInfo)
Dim list As List(Of IO.DriveInfo) = New List(Of IO.DriveInfo)()
Dim drives As IO.DriveInfo() = IO.DriveInfo.GetDrives()
For i As Integer = 0 To drives.Length - 1
Dim di As IO.DriveInfo = drives(i)
If di.IsReady Then
list.Add(di)
End If
Next
Return New List(Of IO.DriveInfo)(list)
End Function
ثم تتأكد أنه جاهز للإستخدام بالكود التالي
PHP كود :
Private Function IsReadyDrive(driveName As String) As Boolean
Dim driveInfo As IO.DriveInfo = New IO.DriveInfo(driveName)
Return driveInfo.IsReady
End Function
ثم تنقل الملف بناء علي ذلك