Hallo an alle!
Ich habe vor, ein kleines VBnet-Programm zum Einsatz zu bringen. Es soll ein Netzlaufwerk verbinden, danach ein Programm, das auf diesem Laufwerk liegt, ausführen und nach Beendigung des Programms das Netzlaufwerk wieder trennen.
Folgender Quellcode liegt dem Programm zugrunde:
Public
Class Form1
Public ExterneAnwendung As New System.Diagnostics.Process()
Public ExterneAnwendung2 As New System.Diagnostics.Process()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("C:\windows\system32\net use P: \\Server\Software$ europa /user:August")
ExterneAnwendung.StartInfo.FileName = "P:\Atlantis\prog\Tuwas.exe"
ExterneAnwendung.Start()
ExterneAnwendung.WaitForExit()
Shell("C:\windows\system32\net use P: /delete")
End Sub
End
Class
Das Programm hat auch schon mal funktioniert, aber nur einmal. Bei wiederholtem Aufruf meldet es stets folgenden Fehler:
"Das System kann die angegebene Datei nicht finden"
Dieser bezieht sich dabei auf die Zeile "ExterneAnwendung.Start()"
Scheinbar wird der net use-Befehl bei wiederholtem Aufruf nicht richtig ausgeführt. Wo liegt mein Denkfehler?
Ich bedanke mich schon im Voraus für euere Beiträge.
Hakam
Nachtrag: Da ich in VBNET noch Anfänger bin noch eine Zusatzfrage: Wie erzeuge ich eine EXE-File, wo ist diese gespeichert und kann diese EXE-File ohne VBNET-Umgebung ausgeführt werden?
Ich habe vor, ein kleines VBnet-Programm zum Einsatz zu bringen. Es soll ein Netzlaufwerk verbinden, danach ein Programm, das auf diesem Laufwerk liegt, ausführen und nach Beendigung des Programms das Netzlaufwerk wieder trennen.
Folgender Quellcode liegt dem Programm zugrunde:
Public
Class Form1
Public ExterneAnwendung As New System.Diagnostics.Process()
Public ExterneAnwendung2 As New System.Diagnostics.Process()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("C:\windows\system32\net use P: \\Server\Software$ europa /user:August")
ExterneAnwendung.StartInfo.FileName = "P:\Atlantis\prog\Tuwas.exe"
ExterneAnwendung.Start()
ExterneAnwendung.WaitForExit()
Shell("C:\windows\system32\net use P: /delete")
End Sub
End
Class
Das Programm hat auch schon mal funktioniert, aber nur einmal. Bei wiederholtem Aufruf meldet es stets folgenden Fehler:
"Das System kann die angegebene Datei nicht finden"
Dieser bezieht sich dabei auf die Zeile "ExterneAnwendung.Start()"
Scheinbar wird der net use-Befehl bei wiederholtem Aufruf nicht richtig ausgeführt. Wo liegt mein Denkfehler?
Ich bedanke mich schon im Voraus für euere Beiträge.
Hakam
Nachtrag: Da ich in VBNET noch Anfänger bin noch eine Zusatzfrage: Wie erzeuge ich eine EXE-File, wo ist diese gespeichert und kann diese EXE-File ohne VBNET-Umgebung ausgeführt werden?