---

Hallo Zusammen,

in meinem VB.NET 2005 Programm führe ich eine .bat Datei aus. In dieser Datei erzeugt er eine txt Datei.

Process.Start("C:\temp\123.bat")

My.Computer.FileSystem.MoveFile("C:\temp\1234.txt", "C:\temp\test\1234.txt", True)

Ich möchte erst in meinem VB Code die nächste Zeile ausführen, wenn diese txt Datei in diesem Verzeichnis auch existiert.

Wie kann ich dies umsetzen?

Danke für jede Untertsützung von Euch : )

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza,

Das kannst du ganz einfach ermitteln:

If My.Computer.FileSystem.FileExists("c://Check.txt") Then
    MsgBox("File found.")
Else
    MsgBox("File not found.")
End If

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza,

mit Process.WaitForExit
kannst du deine Anwendung so lange stopen bis der Prozess wieder beendet ist!

Der Code wäre also:

Code:

---

Process.Start("C:\temp\123.bat")
Process.WaitForExit
My.Computer.FileSystem.MoveFile("C:\temp\1234.txt", "C:\temp\test\1234.txt", True)

---

------------------
Mfg Daniel

Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |     kontakt@schuler-da.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

danke für deinen Zeilen.
Bei Process.WaitFor Exit wird diese Zeile unterstrichen mit folgende Bemerkung:
Der Verweis auf einem nicht freigegebenen Member erfordert erfordert einen Objektverweis.

Was muss ich hier noch einstellen?

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Charsten,

danke Dir für Deine Hilfe.
Wenn ich die Datei habe dann soll er mir diesen Code ausführen, wenn nicht,

Process.Start("C:\temp\123.bat")
If My.Computer.FileSystem.FileExists("c://Check.txt") Then
  My.Computer.FileSystem.MoveFile("C:\temp\1234.txt", "C:\temp\test\1234.txt", True)
else
dann soll er wieder suchen.

Wie kann man dies dann umsetzen?

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Diese Meldung solltest du eigentlich kennen!
Kurz und knapp, du benötigts ein Objekt!

Versuche es einfach mal so:

Code:

---

Dim oProzess As Process
oProzess = Process.Start("C:\temp\123.bat")
oProzess.WaitForExit()

My.Computer.FileSystem.MoveFile("C:\temp\1234.txt", _
"C:\temp\test\1234.txt", True)

---

So klappt es!

------------------
Mfg Daniel

Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |     kontakt@schuler-da.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Hallo Daniel,

danke Dir.
Jetzt funktioniert das genau so, wie ich es haben wollte.

@Charsten
ich würde gerne noch wissen, was ich machen muß, wenn die Datei nicht vorhanden ist. Danke auch.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das müsste man mit einer Do - Loop Schleife realisieren.
Ist aber ziemlich gefährlich, da diese endlos laufen könnte!
Also meiner Meinung nach FINGER WEG!

Code:

---

Dim iZaehler As Integer
Process.Start("C:\temp\123.bat")

Do While System.IO.File.Exists("C:\temp\1234.txt") = False
  Debug.Print("Durchlauf: " & iZaehler)
Loop

System.IO.File.Move("C:\temp\1234.txt", _
                "C:\temp\test\1234.txt")

---

------------------
Mfg Daniel

Brauchen Sie Hilfe, sind Sie in Not? Wir retten Sie mit unserem Code!
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |     kontakt@schuler-da.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP