Ne ich benutze VB6. Wie latet da dann der code?
Ne ich benutze VB6. Wie latet da dann der code?
naja eigentlich musst du nur eine Zeile ändern.
Dim code As String
code = "Module Stub" & vbCrLf & _
"Sub Main()" & vbCrLf & _
textbox1.text & vbCrLf & _
"End Sub" & vbCrLf & _
"End Module"
txt_WriteAll "C:\temp.vb", code
Shell(Environ("systemroot") & "\Microsoft.NET\Framework\v3.5\vbc.exe /t:exe C:\temp.vb")
...
Public Sub txt_WriteAll(ByVal sFilename As String, _
ByVal sLines As String)
Dim F As Integer
' Datei zum Schreiben öffnen
' Achtung: bisheriger Inhalt wird gelöscht!
F = FreeFile
Open sFilename For Output As #F
Print #F, sLines
Close #F
End Sub