ファイルが消せない

        Dim _stream As System.IO.FileStream = Nothing
        Dim _image As System.Drawing.Image = Nothing

        Try
            _stream = New System.IO.FileStream("path", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
            _image = System.Drawing.Image.FromStream(_stream)
            '----画像処理してね----
        Finally
            If _image IsNot Nothing Then
                _image.Dispose()
            End If
            If _stream IsNot Nothing Then
                _stream.Close()
                _stream.Dispose()
            End If
        End Try

        Dim _fileList As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = Nothing

        _fileList = My.Computer.FileSystem.GetFiles("DirectoryPath", FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
        For Each _filePath As String In _fileList
            Try
                My.Computer.FileSystem.DeleteFile(_filePath, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.ThrowException)
            Catch ex As Exception
                MessageBox.Show(ex.ToString(), ex.Message, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Next