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

[Rouven]

Hello,

ich will ein Programm im cmd ausführen um dann  die werte auszulesen und in ein Textdokument zuschreiben und das ganze grafisch anzeigen lassen

welche Werte? wo sind die? wer schreibt was wohin? Meines Wissens hast du keinen direkten Zugriff auf die Eingaben in der Shell (eigener Prozess).

Und ansonsten: definiere "scheitert"! Fehlermeldung? Hast du mal die Variablen im Einzelschritt nachvollzogen? Hast du die Fehlerbehandlung aktiviert?

MfG
Rouven

[Detlef G.]

Hallo Jenny oder Dirk?

Auf wie viele verschiedene Threads soll sich dieses Problem denn noch verteilen?

Wir haben jetzt schon (SONSTIGES) accesschk und (SONSTIGES) Batch-Datei.

Auf Wiederlesen
Detlef