[silverlight]

فيما يختص بحذف الملف يمكنك استخدام الدوال اتالية

كود :

''' <summary>
   '''
   ''' </summary>
   ''' <param name="fileName"></param>
   ''' <param name="force"></param>
   ''' <remarks></remarks>
   Public Shared Sub DeleteFile(fileName As String, force As Boolean)
       Dim files As String() = Nothing
       CheckForNullOrEmpty(fileName)
       Try
           Dim directoryName As String = IO.Path.GetDirectoryName(fileName)
           If Not IO.Directory.Exists(directoryName) Then
               Return
           End If
           ' search for the file
           files = IO.Directory.GetFiles(fileName, IO.Path.GetFileName(fileName))
       Catch ex As Exception When TypeOf ex Is IO.DirectoryNotFoundException AndAlso TypeOf ex Is IO.FileNotFoundException
           'If TypeOf ex Is IO.DirectoryNotFoundException AndAlso TypeOf ex Is IO.FileNotFoundException Then
           Return
           'End If
       End Try
       Dim fileArray As String() = files
       For i As Integer = 0 To fileArray.Length - 1
           Dim path As String = fileArray(i)
           ' repeat the process and set the files attributes
           For count As Integer = 0 To 9
               Try

                   'IO.File.SetAttributes(path, IO.FileAttributes.Normal)
                   SetDestinationFileAttributes(path)
                   Exit Try
               Catch ex As Exception When TypeOf ex Is IO.DirectoryNotFoundException AndAlso TypeOf ex Is IO.FileNotFoundException AndAlso Not force AndAlso count = 9
                   'If TypeOf ex Is IO.DirectoryNotFoundException AndAlso TypeOf ex Is IO.FileNotFoundException AndAlso Not force AndAlso count = 9 Then
                   Throw
                   'End If
                   System.Threading.Thread.Sleep(1000)
               End Try
           Next
           For index As Integer = 0 To 9
               Try
                   IO.File.Delete(path)
                   Exit Try
               Catch ex As Exception When TypeOf ex Is IO.DirectoryNotFoundException AndAlso TypeOf ex Is IO.FileNotFoundException AndAlso Not force AndAlso index = 9
                   'If TypeOf ex Is IO.DirectoryNotFoundException AndAlso TypeOf ex Is IO.FileNotFoundException AndAlso Not force AndAlso index = 9 Then
                   Throw
                   'End If
                   System.Threading.Thread.Sleep(1000)
               End Try
           Next
       Next
   End Sub

   ''' <summary>
   ''' check both sourceFile and destinationFile are not Null
   ''' </summary>
   ''' <param name="name">name string</param>
   '''
   ''' <remarks></remarks>
   Friend Shared Sub CheckForNullOrEmpty(name As String)
       If String.IsNullOrEmpty(name) Then
           Throw New ArgumentNullException("name")
       End If
   End Sub


و فيما يختص ب أبعاد الصور أجد ان الابعد المبدئية كبيرة جدا بالنسبة لحجم الفورم الرئيس إلا إذا سكون برنامج يغطي الشاشة ب الكامل... أم هل هذه أقصي أبعاد للصور؟

---

إن حدث معك خطأ في دالة حذف الملف اعلاه ارجو أن تترك لي رسالة لأضع لك بقية الدوال لأني و لربما سهوا نسيت ان أكتب الدوال كلها