الملفات المؤقتة - نسخة قابلة للطباعة

PHP كود :
'------------------------------------------------------------------------------
'
' File Name     : FileOperations.vb
' Copyright (c) : RiverNile.Net 2017 All rights reserved.
' Date          : 06/10/2017
' Revision      : 0.0.0.0
'                                                             
'------------------------------------------------------------------------------

Public NotInheritable Class FileOperations

    Public Shared Sub WriteToFile(fileDirectory As String, filename As String, ext As String, data As Byte())
        Dim file As String = GetFilePath(fileDirectory, filename, ext)
        Dim operation As Operation(Of Boolean) = New Operation(Of Boolean)(Function()
                                                                               Using action As New OperationAction(Sub()
                                                                                                                       IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(file))
                                                                                                                       IO.File.WriteAllBytes(file, data)
                                                                                                                   End Sub)
                                                                               End Using
                                                                               Return True
                                                                           End Function)
        operation.GetOperation()
    End Sub

    Public Shared Function ReadFromFile(fileDirectory As String, fileName As String, ext As String) As Byte()
        Dim file As String = GetFilePath(fileDirectory, fileName, ext)
        Dim operation As Operation(Of Byte()) = New Operation(Of Byte())(Function() IO.File.ReadAllBytes(file))
        Return operation.GetOperation()
    End Function

    Public Shared Function GetFilePath(fileDirectory As String, fileName As String, ext As String) As String
        Return New Operation(Of String)(Function() IO.Path.Combine(fileDirectory, fileName + ext)).GetOperation
    End Function

    Public Shared Function IsFileExists(filedirectory As String, fileName As String, ext As String) As Boolean
        Dim file As String = GetFilePath(filedirectory, fileName, ext)
        Dim operation As Operation(Of Boolean) = New Operation(Of Boolean)(Function() IO.File.Exists(file))
        Return operation.GetOperation()
    End Function

    Public Shared Sub CreateDirectory(directoryName As String)
        Dim operation As Operation(Of IO.DirectoryInfo) = New Operation(Of IO.DirectoryInfo)(Function() IO.Directory.CreateDirectory(directoryName))
        operation.GetOperation().Create()
    End Sub

    Public Shared Sub DeleteFile(fileDirectory As String, fileName As String, ext As String)
        Dim operation As Operation(Of String) = New Operation(Of String)(Function() GetFilePath(fileDirectory, fileName, ext))
        IO.File.Delete(operation.GetOperation())
    End Sub

    Private Shared Function Write(action As Action) As Boolean
        Dim operation As Operation(Of Boolean) = New Operation(Of Boolean)(Function()
                                                                               action()
                                                                               Return True
                                                                           End Function)
        Return operation.GetOperation()
    End Function

#Region "Operation"

    Private Class Operation(Of T)

        Private func As Func(Of T)

        Public Sub New(func As Func(Of T))
            Me.func = func
        End Sub

        Public Function GetOperation() As T
            Dim result As T = Nothing
            Try
                result = Me.func()
            Catch ex As Exception
                result = Nothing
            End Try
            Return result
        End Function

    End Class

    Private Class OperationAction
        Implements IDisposable

        Private _action As Action

        Public Sub New(action As Action)
            _action = action
        End Sub

        Public Sub Dispose()
            Dim action As Action = Me._action
            Me._action = Nothing
            If action IsNot Nothing Then
                action()
            End If
        End Sub

        Private Sub IDisposable_Dispose() Implements IDisposable.Dispose
            Me.Dispose()
        End Sub

    End Class

#End Region

End Class