[silverlight]

كود :

Imports System.IO

Public Class Form1
    ' +=========================================================================================
    ' مثال الهدف منه التأكد من ان الدالة تعمل بشكل جيد و تجلب الفهرس الرئيس ف الكمبيوتر
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim userDirectory As String = GetDefaultDirectory()
        Me.Text = userDirectory
    End Sub
    ' +=========================================================================================

    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

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim userDirectory As String = GetDefaultDirectory()
        ' طبقا لسؤالك أنت تعرف كيف تحذف الملفات  و لكن الملفات موجودة علي فهرس المستخدم
        ' كل ما عليك أن تفعله الأن هو أن تمرر اسم الفهرس أعلاه
        ' و هو هنا يمثل فهرس المستخدم ثم تبحث عن الملفات المراد حذفها
        ' أو لو كنت تعرف اسم الملف تحديدا يمكن ان تكتبه بعد اسم الفهرس الذي حصلت عليه من الدالة
        ' ثم تحذف الملفات


    End Sub
End Class