تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف الملفات بضغطه زر
#2
الكود التالي ربما يساعدك ف الحصول علي اسم الفهرس الموجود علي جهاز المستخدم...........فيما يخص حذف الملفات أعتقد أنه ليس صعبا الأن طالما أصبح لديك الفهرس الذي به اسم المستخدم

كود :
Public Shared Function GetDefaultDirectory() As String
        Dim txt As String = ""
        Dim paths As String() = Environment.GetFolderPath(Environment.SpecialFolder.Personal).Split(New Char() {"\"c})
        For i As Integer = 0 To paths.Length - 2
            txt = txt & paths(i) & "\"
        Next
        Dim defaultDirectory As String = Nothing
        Try
            If Not Directory.Exists(txt) Then
                Directory.CreateDirectory(txt)
            End If
            defaultDirectory = txt
        Catch ex As Exception
            If TypeOf ex Is IOException AndAlso TypeOf ex Is UnauthorizedAccessException AndAlso TypeOf ex Is ArgumentException Then
                defaultDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            End If
        End Try
        Return defaultDirectory
    End Function

بالنسبة لإستخدام الكود فهو كالتالي

كود :
Dim userDirectory As String = GetDefaultDirectory
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
حذف الملفات بضغطه زر - بواسطة 3booy201 - 24-07-14, 06:16 AM
RE: حذف الملفات بضغطه زر - بواسطة silverlight - 24-07-14, 08:05 AM
RE: حذف الملفات بضغطه زر - بواسطة 3booy201 - 25-07-14, 01:35 AM
RE: حذف الملفات بضغطه زر - بواسطة hassan - 25-07-14, 08:31 AM
RE: حذف الملفات بضغطه زر - بواسطة 3booy201 - 25-07-14, 01:46 AM
RE: حذف الملفات بضغطه زر - بواسطة silverlight - 25-07-14, 03:07 PM
RE: حذف الملفات بضغطه زر - بواسطة kslawy - 26-07-14, 07:41 PM
RE: حذف الملفات بضغطه زر - بواسطة a_almisery - 31-07-14, 03:06 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم