Ausgabe eines Textes in eine CMD-Datei

[wappl]

Ausgabe eines Textes an eine TXT- od. CMD-Datei

Hallo zusammen,

habe folgendes Problem:

Wie sende ich in VB.NET einen Text an einen CMD- od. eine TXT-Datei? Habe schon folgendes versucht:

Dim retval As Double
retval = Shell(CMDFile, vbNormalFocus)

Habe statt Double auch schon Variant versucht, aber VB.NET nimmt mir den Befehl nicht an.

P.s.: Bei einem kleinen Text steht mit Double nichts in der CMD-Datei, bei einem größeren Text schreibt er mir nicht alles hinein.

Bin dankbar für jede Hilfe, da ich gerade mit VB.Net anfange zu programieren.

Wünsche euch einen schönen Tag.

Gruß Wappl

 

[wappl]

Um es etwas anders zu erklären:

Ich habe mir eine kleine exe-Datei mit ein paar Checkboxes erstellt und jeder eine IF - Then Anweisung zugeteilt. Das sieht z.B. so aus:


Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click

On Error GoTo ErrHandler

Dim SysDir As String
Dim TXTFile As String
Dim InstDrive As String
Dim InstallPath As String

SysDir = Environ("SystemDrive") 'Systempartition ermitteln
TXTFile = SysDir & "\alex\alex.txt" 'Pfad / Name der Textdatei

Dim File As New System.IO.StreamWriter(TXTFile)

Dim fs, d, dc, s, n
fs = CreateObject("Scripting.FileSystemObject")
dc = fs.Drives
For Each d In dc
If d.DriveType = 4 Then
Dim alex As New FileInfo(d.driveletter & ":alex.exe")
If alex.Exists Then
InstDrive = d.driveletter & ":"
InstallPath = d.driveletter & ":\alex\"
End If
End If
Next
dc = Nothing
fs = Nothing

If Checkbox1.Checked Then
File.WriteLine("Hallo Alex...")
End If


If Checkbox2.Checked Then
File.WriteLine("Hallo Sabine...")
End If

Dim retval As Double
retval = Shell(TXTFile, vbNormalFocus)

Jetzt möchte ich, das er mir "Hallo Alex", "Hallo Sabine" od. beide je nach Auswah beim drücken des Ausführen-Buttons in eine neue txt-Datei schreibt. Hoffe ich habe es diesmal besser erklärt. Wollte statt Double auch schon Variable benutzen, VB.NET ersetzt mir das aber immer mit Object. Fange gerade an, mir ein bißchen was beizubringen.

Gruß alex