' Get LoByte
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetLoByte(1587S)) ' Result: 51
    '
    ''' <summary>
    ''' Gets the low-order byte of an 'Int16' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'Int16' value that contains both the LoByte and the HiByte.</param>
    ''' <returns>The return value is the low-order byte.</returns>
    Public Shared Function GetLoByte(ByVal value As Short) As Byte
 
        Return BitConverter.GetBytes(value).First
 
    End Function

    ' Get HiByte
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetHiByte(1587S)) ' Result: 6
    '
    ''' <summary>
    ''' Gets the high-order byte of an 'Int16' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'Int16' value that contains both the LoByte and the HiByte.</param>
    ''' <returns>The return value is the high-order byte.</returns>
    Public Shared Function GetHiByte(ByVal value As Short) As Byte
 
        Return BitConverter.GetBytes(value).Last
 
    End Function

    ' Get LoWord
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetLoWord(13959358I)) ' Result: 190S
    '
    ''' <summary>
    ''' Gets the low-order word of an 'Int32' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'Int32' value that contains both the LoWord and the HiWord.</param>
    ''' <returns>The return value is the low-order word.</returns>
    Public Shared Function GetLoWord(ByVal value As Integer) As Short
 
        Return BitConverter.ToInt16(BitConverter.GetBytes(value), 0)
 
    End Function

    ' Get HiWord
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetHiWord(13959358I)) ' Result: 213S
    '
    ''' <summary>
    ''' Gets the high-order word of an 'Int32' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'Int32' value that contains both the LoWord and the HiWord.</param>
    ''' <returns>The return value is the high-order word.</returns>
    Public Shared Function GetHiWord(ByVal value As Integer) As Short
 
        Return BitConverter.ToInt16(BitConverter.GetBytes(value), 2)
 
    End Function

    ' Get LoDword (As Unsigned Integer)
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetLoDword(328576329396160UL)) ' Result: 2741317568UI
    '
    ''' <summary>
    ''' Gets the low-order double word of an 'UInt64' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'UInt64' value that contains both the LoDword and the HiDword.</param>
    ''' <returns>The return value is the low-order double word.</returns>
    Public Shared Function GetLoDword(ByVal value As ULong) As UInteger
 
        Return BitConverter.ToUInt32(BitConverter.GetBytes(value), 0)
 
    End Function

    ' Get HiDword (As Unsigned Integer)
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetHiDword(328576329396160UL)) ' Result: 76502UI
    '
    ''' <summary>
    ''' Gets the high-order double word of an 'UInt64' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'UInt64' value that contains both the LoDword and the HiDword.</param>
    ''' <returns>The return value is the high-order double word.</returns>
    Public Shared Function GetHiDword(ByVal value As ULong) As UInteger
 
        Return BitConverter.ToUInt32(BitConverter.GetBytes(value), 4)
 
    End Function

    ' Get LoDword (As Signed Integer)
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetLoDword(328576329396160L)) ' Result: -1553649728I
    '
    ''' <summary>
    ''' Gets the low-order double word of an 'Int64' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'Int64' value that contains both the LoDword and the HiDword.</param>
    ''' <returns>The return value is the low-order double word.</returns>
    Public Shared Function GetLoDword(ByVal value As Long) As Integer
 
        Return BitConverter.ToInt32(BitConverter.GetBytes(value), 0)
 
    End Function

    ' Get HiDword (As Signed Integer)
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetHiDword(328576329396160L)) ' Result: 76502I
    '
    ''' <summary>
    ''' Gets the high-order double word of an 'Int64' value.
    ''' </summary>
    ''' <param name="Value">Indicates the 'Int64' value that contains both the LoDword and the HiDword.</param>
    ''' <returns>The return value is the high-order double word.</returns>
    Public Shared Function GetHiDword(ByVal value As Long) As Integer
 
        Return BitConverter.ToInt32(BitConverter.GetBytes(value), 4)
 
    End Function

    ' Make Word
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(MakeWord(51S, 6S)) ' Result: 1587S
    '
    ''' <summary>
    ''' Makes an 'Int16' value from two bytes.
    ''' </summary>
    ''' <param name="LoByte">Indicates the low-order byte.</param>
    ''' <param name="HiByte">Indicates the high-order byte.</param>
    ''' <returns>The 'Int16' value.</returns>
    Public Shared Function MakeWord(ByVal LoByte As Byte,
                                    ByVal HiByte As Byte) As Short
 
        Return BitConverter.ToInt16(New Byte() {LoByte, HiByte}, 0)
 
    End Function

    ' Make Dword
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(MakedWord(190S, 213S)) ' Result: 13959358I
    '
    ''' <summary>
    ''' Makes an 'Int32' value from two 'Int16' values.
    ''' </summary>
    ''' <param name="LoWord">Indicates the low-order word.</param>
    ''' <param name="HiWord">Indicates the high-order word.</param>
    ''' <returns>The 'Int32' value.</returns>
    Public Shared Function MakeDword(ByVal LoWord As Short,
                                     ByVal HiWord As Short) As Integer
 
        Dim LoBytes As Byte() = BitConverter.GetBytes(LoWord)
        Dim HiBytes As Byte() = BitConverter.GetBytes(HiWord)
        Dim Combined As Byte() = LoBytes.Concat(HiBytes).ToArray
 
        Return BitConverter.ToInt32(Combined, 0)
 
    End Function

    ' Make Long (From An Unsigned Integer)
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(MakeLong(2741317568UI, 76502UI)) ' Result: 328576329396160UL
    '
    ''' <summary>
    ''' Makes an 'UInt64' value from two 'UInt32' values.
    ''' </summary>
    ''' <param name="LoDword">Indicates the low-order Dword.</param>
    ''' <param name="HiDword">Indicates the high-order Dword.</param>
    ''' <returns>The 'UInt64' value.</returns>
    Public Shared Function MakeLong(ByVal LoDword As UInteger,
                                    ByVal HiDword As UInteger) As ULong
 
        Dim LoBytes As Byte() = BitConverter.GetBytes(LoDword)
        Dim HiBytes As Byte() = BitConverter.GetBytes(HiDword)
        Dim Combined As Byte() = LoBytes.Concat(HiBytes).ToArray
 
        Return BitConverter.ToUInt64(Combined, 0)
 
    End Function

    ' Make Long (From a Signed Integer)
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(MakeLong(-1553649728I, 76502I)) ' Result: 328576329396160L
    '
    ''' <summary>
    ''' Makes an 'Int64' value from two 'Int32' values.
    ''' </summary>
    ''' <param name="LoDword">Indicates the low-order Dword.</param>
    ''' <param name="HiDword">Indicates the high-order Dword.</param>
    ''' <returns>The 'Int64' value.</returns>
    Public Shared Function MakeLong(ByVal LoDword As Integer,
                                    ByVal HiDword As Integer) As Long
 
        Dim LoBytes As Byte() = BitConverter.GetBytes(LoDword)
        Dim HiBytes As Byte() = BitConverter.GetBytes(HiDword)
        Dim Combined As Byte() = LoBytes.Concat(HiBytes).ToArray
 
        Return BitConverter.ToInt64(Combined, 0)
 
    End Function

    ' Character Is Diacritic?
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(CharacterIsDiacritic("á")) ' Result: True
    '
    ''' <summary>
    ''' Determines whether a character is diacritic or else contains a diacritical mark.
    ''' </summary>
    ''' <param name="Character">Indicates the character.</param>
    ''' <returns><c>true</c> if character is diacritic or contains a diacritical mark, <c>false</c> otherwise.</returns>
    Public Function CharacterIsDiacritic(ByVal Character As Char) As Boolean
 
        If String.IsNullOrEmpty(CharacterIsDiacritic) Then
 
            Return False
        Else
            Dim Descomposed As Char() = Character.ToString.Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
            Return (Descomposed.Count <> 1 OrElse String.IsNullOrWhiteSpace(Descomposed))
 
        End If
 
    End Function

    ' Convert Diacritic Character
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(ConvertDiacritic("á", UnicodeNormalization:=System.Text.NormalizationForm.FormKD)) ' Result: 'a'
    '
    ''' <summary>
    ''' Converts the diacritic characters in a String to an equivalent normalized English characters.
    ''' </summary>
    ''' <param name="Character">
    ''' Indicates the diacritic character.
    ''' </param>
    ''' <param name="UnicodeNormalization">
    ''' Defines the type of Unicode character normalization to perform.
    ''' (Default is 'NormalizationForm.FormKD')
    ''' </param>
    ''' <returns>The converted character.</returns>
    Public Function ConvertDiacritic(ByVal Character As Char,
                                     Optional ByVal UnicodeNormalization As System.Text.NormalizationForm =
                                                                            System.Text.NormalizationForm.FormKD) As String
 
        Dim Chars As Char() =
            CStr(Character).Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
 
        For Each c As Char In Chars
 
            Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)
 
                Case Globalization.UnicodeCategory.NonSpacingMark,
                     Globalization.UnicodeCategory.SpacingCombiningMark,
                     Globalization.UnicodeCategory.EnclosingMark
 
                    ' Do nothing.
                    Exit Select
 
                Case Else
                    Return c
 
            End Select
 
        Next c
 
        Return Character
 
    End Function

    ' Get Keyboard Layout
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetKeyboardLayout(IntPtr.Zero)) ' Result: 10
    ' MsgBox(GetKeyboardLayout(Process.GetCurrentProcess.MainWindowHandle)) ' Result: 10
    '
    ''' <summary>
    ''' Retrieves the active input locale identifier (formerly called the keyboard layout).
    ''' </summary>
    ''' <param name="idThread">
    ''' A window handle identifier of the thread to query, or 'IntPtr.Zero' to query the current thread.
    ''' </param>
    ''' <returns>
    ''' The return value is the input locale identifier for the thread.
    ''' </returns>
    Public Shared Function GetKeyboardLayout(Optional ByVal idThread As IntPtr = Nothing) As Short
 
        Return BitConverter.GetBytes(APIGetKeyboardLayout(idThread)).First
 
    End Function
 
    ''' <summary>
    ''' Retrieves the active input locale identifier (formerly called the keyboard layout).
    ''' </summary>
    ''' <param name="idThread">
    ''' A window handle identifier of the thread to query, or 'IntPtr.Zero' to query the current thread.
    ''' </param>
    ''' <returns>
    ''' The return value is the input locale identifier for the thread.
    ''' 
    ''' The low-order byte contains a Language Identifier for the input language,
    ''' and the high-order byte contains a device handle to the physical layout of the keyboard.
    ''' </returns>
    <System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint:="GetKeyboardLayout",
    CharSet:=System.Runtime.InteropServices.CharSet.Unicode)>
    Private Shared Function APIGetKeyboardLayout(
                            Optional ByVal idThread As IntPtr = Nothing
    ) As UInteger
    End Function

    ' Get KeyCode
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(GetKeyCode("a")) ' Result: 65
    ' MsgBox(GetKeyCode("á")) ' Result: 65
    ' MsgBox(GetKeyCode("á", IntPtr.Zero)) ' Result: 65
    ' MsgBox(GetKeyCode("a", Process.GetCurrentProcess.MainWindowHandle)) ' Result: 65
    '
    'Private Sub Test() Handles MyBase.Shown
    '    Dim sb As New System.Text.StringBuilder
    '    Dim Characters As Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ ñÑçÇ áéíóú ÁÉÍÓÚ àèìòù ÀÈÌÒÙ äëïÖÜ ÄËÏÖÜ º\'¡`+´-.,ª!·$%&/()=?¿".ToCharArray
    '    For Each c As Char In Characters
    '        sb.AppendFormat("Character: {0}", CStr(c))
    '        sb.AppendLine()
    '        sb.AppendFormat("KeyCode  : {0}", CStr(GetKeyCode(c, IntPtr.Zero)))
    '        MessageBox.Show(sb.ToString)
    '        sb.Clear()
    '    Next c
    'End Sub
 
    ''' <summary>
    ''' Translates a character to the corresponding keycode. 
    ''' </summary>
    ''' <param name="Character">Indicates the character.</param>
    ''' <param name="KeyboardLayout">Indicates the keyboard layout.</param>
    ''' <returns>
    ''' If the function succeeds, the return value contains the keycode.
    ''' 
    ''' If the function finds no key that translates to the passed character code, 
    ''' the return value contains "-1".
    ''' </returns>
    Public Shared Function GetKeyCode(ByVal Character As Char,
                                      Optional ByVal KeyboardLayout As IntPtr = Nothing) As Short
 
        ' Get the Keycode of the character.
        Dim Keycode As Short =
            BitConverter.GetBytes(VkKeyScanEx(Character)).First
 
        Select Case Keycode
 
            Case Is <> 255S ' Character is found on the current KeyboardLayout.
                Return Keycode
 
            Case Else ' Character is not found on the current KeyboardLayout.
 
                ' Descompose the character.
                Dim Descomposed As Char() =
                    Character.ToString.Normalize(System.Text.NormalizationForm.FormKD).ToCharArray
 
                ' If character is diacritic then...
                If Descomposed.Count <> 1 OrElse String.IsNullOrWhiteSpace(Descomposed) Then
 
                    For Each c As Char In Descomposed
 
                        Select Case Globalization.CharUnicodeInfo.GetUnicodeCategory(c)
 
                            Case Globalization.UnicodeCategory.NonSpacingMark,
                                 Globalization.UnicodeCategory.SpacingCombiningMark,
                                 Globalization.UnicodeCategory.EnclosingMark
 
                                ' Do nothing.
                                Exit Select
 
                            Case Else ' Character is diacritic so we convert the diacritic and try to find the Keycode.
                                Return GetKeyCode(c, KeyboardLayout)
 
                        End Select
 
                    Next c
 
                End If ' Chars.Count <> 1
 
        End Select ' Keycode
 
        Return -1S ' Character is not diacritic and the keycode is not found.
 
    End Function
 
    ''' <summary>
    ''' Translates a character to the corresponding virtual-key code and shift state. 
    ''' The function translates the character using the input language and 
    ''' physical keyboard layout identified by the input locale identifier.
    ''' For more info see here:
    ''' http://msdn.microsoft.com/en-us/library/ms646332%28v=VS.85%29.aspx 
    ''' </summary>
    ''' <param name="c">Indicates the character.</param>
    ''' <param name="KeyboardLayout">Indicates the keyboard layout.</param>
    ''' <returns>
    ''' If the function succeeds, 
    ''' the low-order byte of the return value contains the virtual-key code,
    ''' and the high-order byte contains the shift state.
    ''' 
    ''' If the function finds no key that translates to the passed character code, 
    ''' both the low-order and high-order bytes contain '255'.
    ''' </returns>
    <System.Runtime.InteropServices.DllImport("user32.dll",
    CharSet:=System.Runtime.InteropServices.CharSet.Unicode)>
    Private Shared Function VkKeyScanEx(
                            ByVal c As Char,
                            Optional ByVal KeyboardLayout As IntPtr = Nothing
    ) As Short
    End Function

    ' Send POST
    ' ( By Elektro )
    '
    ' Usage Examples:
    '
    'Dim Response As String =
    '    SendPOST("http://es.wikipedia.org/wiki/Special:Search?",
    '             New Dictionary(Of String, String) From {
    '                 {"search", "Petición+POST"},
    '                 {"sourceid", "Mozilla-search"}
    '             }) ' Formated POST Data: "search=Petición+POST&sourceid=Mozilla-search"
    'Clipboard.SetText(Response) ' Copy the response to Clipboard.
    '
    ''' <summary>
    ''' Sends a POST method petition and returns the server response.
    ''' </summary>
    ''' <param name="URL">Indicates the URL.</param>
    ''' <param name="PostData">Indicates the post data.</param>
    ''' <returns>The response.</returns>
    Public Function SendPOST(ByVal URL As String,
                             ByVal PostData As Dictionary(Of String, String)) As String
 
        Dim Data As New System.Text.StringBuilder ' PostData to send, formated.
        Dim Request As Net.HttpWebRequest = HttpWebRequest.Create(URL) ' HTTP Request.
        Dim Response As HttpWebResponse ' Server response.
        Dim ResponseContent As String ' Server response result.
 
        ' Set and format the post data of the query.
        For Each Item As KeyValuePair(Of String, String) In PostData
            Data.AppendFormat("{0}={1}&", Item.Key, Item.Value)
        Next Item
 
        ' Set the Request properties.
        With Request
            .Method = "POST"
            .ContentType = "application/x-www-form-urlencoded"
            .ContentLength = Data.ToString.Length
            .Proxy = Nothing
            ' .UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0"
        End With
 
        ' Write the POST data bytes into the Stream.
        Using RequestStream As IO.Stream = Request.GetRequestStream()
            RequestStream.Write(System.Text.Encoding.UTF8.GetBytes(Data.ToString), 0, Data.ToString.Length)
            RequestStream.Close()
        End Using
 
        ' Get the response.
        Response = Request.GetResponse()
 
        ' Get the response content.
        Using Reader As New IO.StreamReader(Response.GetResponseStream)
            ResponseContent = Reader.ReadToEnd
            Response.Close()
        End Using
 
        ' Return the response content.
        Return ResponseContent
 
    End Function

    ' Is Type Serializable?
    ' By Elektro
    '
    ' Usage Examples:
    '
    'MsgBox(IsTypeSerializable(Of String))
    'MsgBox(IsTypeSerializable(GetType(Form)))
    'MsgBox(IsTypeSerializable(0.0F.GetType))
    '
    ''' <summary>
    ''' Determines whether a Type can be serialized.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <returns><c>true</c> if Type can be serialized; otherwise, <c>false</c>.</returns>
    Private Function IsTypeSerializable(Of T)() As Boolean
 
        Return Attribute.IsDefined(GetType(T), GetType(SerializableAttribute))
 
    End Function
 
    ''' <summary>
    ''' Determines whether a Type can be serialized.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="Type">The Type.</param>
    ''' <returns><c>true</c> if Type can be serialized; otherwise, <c>false</c>.</returns>
    Private Function IsTypeSerializable(Of T)(ByVal Type As T) As Boolean
 
        Return Attribute.IsDefined(GetType(T), GetType(SerializableAttribute))
 
    End Function
 

    ' Is Object Serializable?
    ' By Elektro
    '
    ' Usage Examples:
    '
    'MsgBox(IsObjectSerializable(New ArrayList From {"String Item"}, SerializationFormat.Xml)) ' Result: True
    'MsgBox(IsObjectSerializable(New ArrayList From {New Object() {"Collection", "Of", "Strings"}})) ' Result: False
    '
    ''' <summary>
    ''' Determines whether an object can be serialized.
    ''' </summary>
    ''' <param name="Object">The object.</param>
    ''' <returns><c>true</c> if object can be serialized; otherwise, <c>false</c>.</returns>
    Private Function IsObjectSerializable(ByVal [Object] As Object,
                                          Optional ByVal SerializationFormat As SerializationFormat =
                                                                                SerializationFormat.Xml) As Boolean
 
        Dim Serializer As Object
 
        Using fs As New IO.MemoryStream
 
            Select Case SerializationFormat
 
                Case Data.SerializationFormat.Binary
                    Serializer = New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
 
                Case Data.SerializationFormat.Xml
                    Serializer = New Xml.Serialization.XmlSerializer([Object].GetType)
 
                Case Else
                    Throw New ArgumentException("Invalid SerializationFormat", SerializationFormat)
 
            End Select
 
            Try
                Serializer.Serialize(fs, [Object])
                Return True
 
            Catch ex As InvalidOperationException
                Return False
 
            End Try
 
        End Using ' fs As New MemoryStream
 
    End Function
 

#If NET20 Then
        ' This happens when the app targets .NEt Framework 2.0
 
#ElseIf NET40 Then
        ' This happens when the app targets .NEt Framework 4.0
 
#End If

    ' Create Dummy File
    ' By Elektro
    '
    ' Usage Examples:
    ' CreateDummyFile("C:\DummyFile.tmp", 1024L ^ 3L) ' File with 1 GB size.
    '
    ''' <summary>
    ''' Creates a dummy zero-filled file.
    ''' </summary>
    ''' <param name="Filepath">Indicates the filepath.</param>
    ''' <param name="Length">Indicates the size, in Bytes.</param>
    Public Sub CreateDummyFile(ByVal Filepath As String,
                               Optional ByVal Length As Long = 0)
 
        Using fs As New IO.FileStream(Filepath, IO.FileMode.CreateNew)
            fs.SetLength(Length)
        End Using
 
    End Sub

' ***********************************************************************
' Author   : Elektro
' Modified : 07-22-2014
' ***********************************************************************
' <copyright file="FileDater.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************
 
#Region " Usage Examples "
 
#Region " Example 1 "
 
'' Instance a test FileInfo using an unique temp file.
'Using fd As New FileDater(File:=New IO.FileInfo(IO.Path.GetTempFileName))
'
'    ' Preserve the current date-modified of the file.
'    fd.Preserve(FileDater.DateType.Modified)
'
'    ' Do some kind of operation that alters the current date-modified of the file.
'    IO.File.AppendAllText(fd.File.FullName, New String("X"c, 10I))
'
'    ' Restore the previously preserved date-modified on the TestFile.
'    fd.Restore(FileDater.DateType.Modified)
 
'End Using '/ fd
 
#End Region
 
#Region " Example 2 "
 
'' Declare a test filepath.
'Dim TestFile As String = "C:\Testfile.tmp"
'
'' Create the test file.
'If Not IO.File.Exists(TestFile) Then
'    Using fs As New IO.FileStream(TestFile, IO.FileMode.CreateNew, IO.FileAccess.ReadWrite)
'    End Using
'End If
'
'' Instance the FileDater Class.
'Using fd As New FileDater(File:=TestFile)
'
'    ' Preserve all the current dates of the TestFile.
'    fd.Preserve()
'
'    ' Print the preserved dates in the debug console.
'    Debug.WriteLine(String.Format("Preserved Creation   Date: {0}", fd.PreservedCreationDate.ToString))
'    Debug.WriteLine(String.Format("Preserved LastAccess Date: {0}", fd.PreservedLastAccessDate.ToString))
'    Debug.WriteLine(String.Format("Preserved LastModify Date: {0}", fd.PreservedLastModifyDate.ToString))
'
'    ' Copy the testfile to other location.
'    IO.File.Copy(fd.File.FullName, "C:\New Testfile.tmp", True)
'
'    ' Assign the new location in the instanced FileDater.
'    fd.SetFileLocation("C:\New Testfile.tmp")
'
'    ' Modify all the dated on the copied TestFile.
'    fd.Set(Date.Parse("01/01/2015"))
'
'    ' Restore all the previously preserved dates on the new TestFile.
'    fd.Restore()
'
'    ' Print the current testfile dates in the debug console.
'    Debug.WriteLine(String.Format("Current Creation   Date: {0}", fd.File.CreationTime.ToString))
'    Debug.WriteLine(String.Format("Current LastAccess Date: {0}", fd.File.LastAccessTime.ToString))
'    Debug.WriteLine(String.Format("Current LastModify Date: {0}", fd.File.LastWriteTime.ToString))
'
'End Using
 
#End Region
 
#End Region
 
#Region " Imports "
 
Imports System.ComponentModel
Imports System.IO
 
#End Region
 
#Region " FileDater "
 
''' <summary>
''' Contains methods to preserve, set, and restore the dates contained on file.
''' </summary>
Public NotInheritable Class FileDater : Implements IDisposable
 
#Region " Objects "
 
    ''' <summary>
    ''' Contains the files that are already used in the constructor to prevent a duplicated instance for the same file.
    ''' </summary>
    Private Shared InstancedFiles As New List(Of FileInfo)
 
#End Region
 
#Region " Properties "
 
    ''' <summary>
    ''' Gets the file.
    ''' </summary>
    ''' <value>The file.</value>
    Public ReadOnly Property [File] As FileInfo
        Get
            Return Me._File
        End Get
    End Property
    Private _File As FileInfo
 
    ''' <summary>
    ''' Gets the type of the current preserved dates.
    ''' </summary>
    Public ReadOnly Property PreservedTypes As DateType
        Get
            Return Me._PreservedTypes
        End Get
    End Property
    Private _PreservedTypes As DateType = Nothing
 
    ''' <summary>
    ''' Gets the preserved creation date.
    ''' </summary>
    ''' <value>The preserved creation date.</value>
    Public ReadOnly Property PreservedCreationDate As Date
        Get
            Return Me._PreservedCreationDate
        End Get
    End Property
    Private _PreservedCreationDate As Date
 
    ''' <summary>
    ''' Gets the preserved last-access date.
    ''' </summary>
    ''' <value>The preserved creation date.</value>
    Public ReadOnly Property PreservedLastAccessDate As Date
        Get
            Return Me._PreservedLastAccessDate
        End Get
    End Property
    Private _PreservedLastAccessDate As Date
 
    ''' <summary>
    ''' Gets the preserved last-modify date.
    ''' </summary>
    ''' <value>The preserved creation date.</value>
    Public ReadOnly Property PreservedLastModifyDate As Date
        Get
            Return Me._PreservedLastModifyDate
        End Get
    End Property
    Private _PreservedLastModifyDate As Date
 
#End Region
 
#Region " Enumerations "
 
    ''' <summary>
    ''' Contains a FileDate flag.
    ''' </summary>
    <FlagsAttribute>
    Public Enum DateType As Integer
 
        ''' <summary>
        ''' The date when the file was created.
        ''' </summary>
        Created = 1I
 
        ''' <summary>
        ''' The date when the file was accessed by last time.
        ''' </summary>
        Accessed = 2I
 
        ''' <summary>
        ''' The date when the file was modified by last time.
        ''' </summary>
        Modified = 4I
 
    End Enum
 
#End Region
 
#Region " Constructors "
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="FileDater"/> class.
    ''' </summary>
    ''' <param name="File">Indicates the <see cref="FileInfo"/> instance.</param>
    ''' <exception cref="System.Exception"></exception>
    Public Sub New(ByVal [File] As FileInfo)
 
        If Not InstancedFiles.Contains([File]) Then
            Me._File = [File]
            InstancedFiles.Add([File])
 
        Else
            Throw New Exception(String.Format("Another instance of the '{0}' class is using the same file.", MyBase.GetType.Name))
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Initializes a new instance of the <see cref="FileDater"/> class.
    ''' </summary>
    ''' <param name="File">Indicates the file.</param>
    Public Sub New(ByVal [File] As String)
        Me.New(New FileInfo([File]))
    End Sub
 
    ''' <summary>
    ''' Prevents a default instance of the <see cref="FileDater"/> class from being created.
    ''' </summary>
    Private Sub New()
    End Sub
 
#End Region
 
#Region " Hidden Methods "
 
    ''' <summary>
    ''' Serves as a hash function for a particular type.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub GetHashCode()
    End Sub
 
    ''' <summary>
    ''' Determines whether the specified System.Object instances are considered equal.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub Equals()
    End Sub
 
    ''' <summary>
    ''' Determines whether the specified System.Object instances are the same instance.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Private Shadows Sub ReferenceEquals()
    End Sub
 
    ''' <summary>
    ''' Returns a String that represents the current object.
    ''' </summary>
    <EditorBrowsable(EditorBrowsableState.Never)>
    Public Shadows Sub ToString()
    End Sub
 
#End Region
 
#Region " Public Methods "
 
    ''' <summary>
    ''' Preserves the specified dates of the file to restore them later at any time.
    ''' Note: Dates can be preserved again at any time.
    ''' </summary>
    ''' <param name="DateType">Indicates the type of dates to preserve.</param>
    Public Sub Preserve(ByVal DateType As DateType)
 
        Me.DisposedCheck()
 
        ' Creation
        If DateType.HasFlag(FileDater.DateType.Created) Then
            Me._PreservedCreationDate = Me._File.CreationTime
        End If
 
        ' Accessed
        If DateType.HasFlag(FileDater.DateType.Accessed) Then
            Me._PreservedLastAccessDate = Me._File.LastAccessTime
        End If
 
        ' Modified
        If DateType.HasFlag(FileDater.DateType.Modified) Then
            Me._PreservedLastModifyDate = Me._File.LastWriteTime
        End If
 
        Me._PreservedTypes = DateType
 
    End Sub
 
    ''' <summary>
    ''' Preserves at once all the dates of the file to restore them later at any time.
    ''' Note: Dates can be preserved again at any time.
    ''' </summary>
    Public Sub Preserve()
 
        Me.DisposedCheck()
 
        Me._PreservedCreationDate = Me._File.CreationTime
        Me._PreservedLastAccessDate = Me._File.LastAccessTime
        Me._PreservedLastModifyDate = Me._File.LastWriteTime
 
        Me._PreservedTypes = DateType.Created Or DateType.Accessed Or DateType.Modified
 
    End Sub
 
    ''' <summary>
    ''' Restores the specified preserved dates on the file.
    ''' Note: Calling this method does not cause the deletion of any preserved date.
    ''' </summary>
    ''' <param name="DateType">Indicates the type of dates to restore on the file.</param>
    ''' <exception cref="System.Exception">Any date was preserved.</exception>
    Public Sub Restore(ByVal DateType As DateType)
 
        Me.DisposedCheck()
 
        ' Creation
        If DateType.HasFlag(FileDater.DateType.Created) _
        AndAlso Me._PreservedTypes.HasFlag(FileDater.DateType.Created) Then
 
            Me._File.CreationTime = Me._PreservedCreationDate
 
        ElseIf DateType.HasFlag(FileDater.DateType.Created) _
        AndAlso Not Me._PreservedTypes.HasFlag(FileDater.DateType.Created) Then
 
            Throw New Exception(String.Format("The specified date was not preserved.")) With {
                .Source = FileDater.DateType.Created.ToString
            }
 
        End If
 
        ' Accessed
        If DateType.HasFlag(FileDater.DateType.Accessed) _
        AndAlso Me._PreservedTypes.HasFlag(FileDater.DateType.Accessed) Then
 
            Me._File.LastAccessTime = Me._PreservedLastAccessDate
 
        ElseIf DateType.HasFlag(FileDater.DateType.Accessed) _
        AndAlso Not Me._PreservedTypes.HasFlag(FileDater.DateType.Accessed) Then
 
            Throw New Exception(String.Format("The specified date was not preserved.")) With {
                .Source = FileDater.DateType.Accessed.ToString
            }
 
        End If
 
        ' Modified
        If DateType.HasFlag(FileDater.DateType.Modified) _
        AndAlso Me._PreservedTypes.HasFlag(FileDater.DateType.Modified) Then
 
            Me._File.LastWriteTime = Me._PreservedLastModifyDate
 
        ElseIf DateType.HasFlag(FileDater.DateType.Modified) _
        AndAlso Not Me._PreservedTypes.HasFlag(FileDater.DateType.Modified) Then
 
            Throw New Exception(String.Format("The specified date was not preserved.")) With {
                .Source = FileDater.DateType.Modified.ToString
            }
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Restores at once all the preserved dates on the file.
    ''' Note: Calling this method does not cause the deletion of any preserved date.
    ''' </summary>
    Public Sub Restore()
 
        Me.DisposedCheck()
 
        ' Creation
        If Me._PreservedTypes.HasFlag(FileDater.DateType.Created) Then
            Me._File.CreationTime = Me._PreservedCreationDate
        End If
 
        ' Accessed
        If Me._PreservedTypes.HasFlag(FileDater.DateType.Accessed) Then
            Me._File.LastAccessTime = Me._PreservedLastAccessDate
        End If
 
        ' Modified
        If Me._PreservedTypes.HasFlag(FileDater.DateType.Modified) Then
            Me._File.LastWriteTime = Me._PreservedLastModifyDate
        End If
 
    End Sub
 
    ''' <summary>
    ''' Sets the specified dates on the file.
    ''' Note: 
    ''' Calling this method does not cause the deletion of any preserved date.
    ''' After setting a date, must call once the <see cref="Preserve"/> method if want to preserve any new date established.
    ''' </summary>
    ''' <param name="DateType">Indicates the type of dates to set on the file.</param>
    ''' <param name="Date">Indicates the date.</param>
    Public Sub [Set](ByVal DateType As DateType, ByVal [Date] As Date)
 
        Me.DisposedCheck()
 
        ' Creation
        If DateType.HasFlag(FileDater.DateType.Created) Then
            Me._File.CreationTime = [Date]
        End If
 
        ' Accessed
        If DateType.HasFlag(FileDater.DateType.Accessed) Then
            Me._File.LastAccessTime = [Date]
        End If
 
        ' Modified
        If DateType.HasFlag(FileDater.DateType.Modified) Then
            Me._File.LastWriteTime = [Date]
        End If
 
    End Sub
 
    ''' <summary>
    ''' Sets at once all the dates on the file.
    ''' Note: 
    ''' Calling this method does not cause the deletion of any preserved date.
    ''' After setting a date, must call once the <see cref="Preserve"/> method if want to preserve any new date established.
    ''' </summary>
    ''' <param name="Date">Indicates the date.</param>
    Public Sub [Set](ByVal [Date] As Date)
 
        Me.DisposedCheck()
 
        Me._File.CreationTime = [Date]
        Me._File.LastAccessTime = [Date]
        Me._File.LastWriteTime = [Date]
 
    End Sub
 
    ''' <summary>
    ''' Causes this <see cref="FileDater"/> instance to assign a new location for the current file.
    ''' This could be useful if the preserved dates should be restored in a file that has changed its name/ubication.
    ''' Note: Calling this method does not cause the deletion of any preserved date.
    ''' </summary>
    ''' <param name="File">Indicates the <see cref="FileInfo"/> instance.</param>
    ''' <exception cref="System.Exception"></exception>
    Public Sub SetFileLocation(ByVal [File] As FileInfo)
 
        If Not InstancedFiles.Contains([File]) Then
            InstancedFiles.Remove(Me._File)
            Me._File = [File]
            InstancedFiles.Add([File])
 
        Else
            Throw New Exception(String.Format("Another instance of the '{0}' class is using the same file.", MyBase.GetType.Name))
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' Causes this <see cref="FileDater"/> instance to assign a new location for the current file.
    ''' This could be useful if the preserved dates should be restored in a file that has changed its name/ubication.
    ''' Note: Calling this method does not cause the deletion of any preserved date.
    ''' </summary>
    ''' <param name="File">Indicates the file.</param>
    ''' <exception cref="System.Exception"></exception>
    Public Sub SetFileLocation(ByVal [File] As String)
 
        Me.SetFileLocation(New FileInfo([File]))
 
    End Sub
 
#End Region
 
#Region " IDisposable "
 
    ''' <summary>
    ''' To detect redundant calls when disposing.
    ''' </summary>
    Private IsDisposed As Boolean = False
 
    ''' <summary>
    ''' Prevent calls to methods after disposing.
    ''' </summary>
    ''' <exception cref="System.ObjectDisposedException"></exception>
    Private Sub DisposedCheck()
 
        If Me.IsDisposed Then
            Throw New ObjectDisposedException(Me.GetType().FullName)
        End If
 
    End Sub
 
    ''' <summary>
    ''' Performs application-defined tasks associated with freeing, releasing, or resetting unmanaged resources.
    ''' </summary>
    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
 
    ''' <summary>
    ''' Releases unmanaged and - optionally - managed resources.
    ''' </summary>
    ''' <param name="IsDisposing">
    ''' <c>true</c> to release both managed and unmanaged resources; 
    ''' <c>false</c> to release only unmanaged resources.
    ''' </param>
    Protected Sub Dispose(ByVal IsDisposing As Boolean)
 
        If Not Me.IsDisposed Then
 
            If IsDisposing Then
                InstancedFiles.Remove(Me._File)
            End If
 
        End If
 
        Me.IsDisposed = True
 
    End Sub
 
#End Region
 
End Class
 
#End Region