test

Imports System.IO


Namespace MyCode

    Public Class TextWriter

        Public Shared Sub Write(StrToWrite As String, FileAbsolutePath As String)

            Dim DirPath As String = Path.GetDirectoryName(FileAbsolutePath)
            If Not Directory.Exists(DirPath) Then Directory.CreateDirectory(DirPath)

            File.WriteAllText(FileAbsolutePath, StrToWrite)
        End Sub

    End Class

End Namespace