Visual Basic

[Jenny]

hi Leute,
undzwar hab ich folgendes Problem
ich will ein Programm im cmd ausführen um dann  die werte auszulesen und in ein Textdokument zuschreiben und das ganze grafisch anzeigen lassen

hier ist mein anfang es scheitert nur am schreiben in die textdatei
________________________________________________________________
Private Sub Command1_Click()
Dim Pfad, PfadAusgabe, Auslesen() As String
Dim i, FNr, Ergebnisse As Integer
Dim blah As Variant

Ergebnisse = Combo1.ListIndex + 60

ReDim Auslesen(Ergebnisse)

Pfad = Dir1
For i = 1 To Len(Pfad) + 1 Step 1
    If Mid(Pfad, i, 1) = "" Then
        Pfad = Left(Pfad, i - 1) & "/" & Mid(Pfad, i + 1, Len(Pfad) - (i - 1))
        i = i + 1
    End If
Next i
PfadAusgabe = App.Path & "\batch.bat"

If Dir(PfadAusgabe) > "" Then Kill PfadAusgabe

FNr = FreeFile

Open PfadAusgabe For Output As #FNr
'    Print #FNr, "start accesschk.exe -r " & Pfad & " > Ausgabe.txt";
    Print #FNr, "start cacls " & Pfad & " > Ausgabe.txt";
Close #FNr
----------------------- möglicher Fehler ---------------------------
blah = Shell(PfadAusgabe)
----------------------- möglicher Fehler ---------------------------
Open PfadAusgabe For Input As #FNr
    For i = 0 To Ergebnisse Step 1

If Not EOF(FNr) Then
            Line Input #FNr, Auslesen(i)
        ElseIf EOF(FNr) Then
            Exit Sub
        End If
    Next i
Close #FNr

End Sub
_________________________________________________________________

vielen dank im vorraus