منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

اريد نقل ملف لمسار الموبايل حتي مع تغيرة لان الاسماء بتختلف

استخدمت الكود التالي عشان اعرف المسار لاحظت انة المسار بيغلق مع انة شغال مع اي درايف ومسار اخر

كود :

       If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then

            TextBox1.Text = FolderBrowserDialog1.SelectedPath

        End If

وبعد كدة انسخ الملف للمسار بس مش بيظهر معايا اسم المسار لكي انقل الية الملف او الفولدر

أحد الأفكار إنك تحصل علي كل 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 

ثم تنقل الملف بناء علي ذلك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

silverlight