Imports System.Resources
Imports System.IO
 
    Public Class Form1
        Private Const RES_FILENAME As String = "my.resources"
        Dim StrDatei '-> dies ist von OpenFileDialog1.SafeFileName
                     ' wird nur der Name der Datei ausgegeben
        Dim StrPfad '-> dies isz von OpenFileDialog1.FileName
                     ' wird der Pfad & dateiname ausgegebn
        Private Sub WriteRessource()
            Dim rw As ResourceWriter = New ResourceWriter(RES_FILENAME)
            rw.AddResource(StrDatei, StrPfad)
            rw.Close()
        End Sub
    End Class

? Der Computer ist die logische Weiterentwicklung des Menschen:
Intelligenz ohne Moral.?
(John Osborne, engl. Dramatiker, *1921)