Oprettelse af ny txt-fil

Jeg har fundet ud af det!

        Dim sFileName As String
        Dim txtName = "test"
        sFileName = Server.MapPath("\") & txtName & ".txt"
        Try
            Dim objsw As StreamWriter
            If Not File.Exists(sFileName) Then
                objsw = File.CreateText(sFileName)
                objsw.WriteLine("Dette er en tekst til at teste om jeg kan oprette en fil og lægge indhold i")
                objsw.Close()
            End If
        Catch
        End Try

-KAHS