Unix Times (From, To, and Epoch)

   Public ReadOnly Property Epoch() As DateTime

        Get

            Return New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)

        End Get

    End Property


    Public Function FromUnix(ByVal seconds As Integer, local As Boolean) As DateTime

        Dim dt = Epoch.AddSeconds(seconds)

        If local Then dt = dt.ToLocalTime

        Return dt

    End Function


    Public Function ToUnix(ByVal dt As DateTime) As Integer

        If dt.Kind = DateTimeKind.Local Then dt = dt.ToUniversalTime

        Return CInt((dt - Epoch).TotalSeconds)

    End Function

WriteFile

    Sub WriteFile(sText As String, sFile As String)

        ' Try

        ' If System.IO.File.Exists("logme") Then

        System.IO.File.AppendAllText(sFile.ToString, sText.ToString & vbCrLf)

        ' End If

        'Catch

        'End Try

    End Sub

Revision 2

    Sub WriteFile(sText As String, sFile As String, Optional bAppend As Boolean = True)
        Try
            ' If System.IO.File.Exists("logme") Then
            If bAppend Then
                System.IO.File.AppendAllText(sFile.ToString, sText.ToString & vbCrLf)
            Else
                System.IO.File.WriteAllText(sFile.ToString, sText.ToString)
            End If
            '  End If
        Catch
        End Try
  End Sub