Supportnet / Forum / Datenbanken
A97:Shell-Funktion ?
Frage
Hi,
ich habe einige Arbeitsgänge mit A97 automatisiert.
z.B.
1.Einlesen aller .zip Dateien aus einem Ordner
2.Umkopieren in einen Altordner
3. Entpacken , Ergebnis in einen TextOrdner
4. PascalFilter über die entpackten Dateien laufend lassen
5. Access Tabellen aus den entpackten Datei erstellen.
Soweit so gut, es funktioniert auch.
Mein Problem ist das (Auszug aus der Hilfe:)
--------
Die Shell-Funktion führt andere Programme asynchron aus. Daher muß ein mit Shell ausgeführtes Programm noch nicht abgeschlossen sein, wenn die nächsten Anweisungen, die auf die Shell -Funktion folgen, ausgeführt werden.
---------
Da mehrere Shell aufrufe hintereinander folgen ist unter Umständen der erste Teil noch nicht fertig wenn der zweite Teil folgt.
---------
Meine Frage:
Die Shell-Funktion liefert die Task-ID des gestarteten Programms zurück.
Kann ich diese Task-ID irgendwie auslesen um festzustellen ob das gerade gestartete Programm abgeschlossen wurde ?
Gruß Herbert
Antwort 1 von Arno_Nym
Hier ist das wunderprächtig (mit vollst. Codebeispiel) beschrieben:
http://www.aboutvb.de/khw/artikel/khwshell.htm
Habe es mit Acc2000 getestet. Sollte aber unter Acc97 genauso laufen.
Arno
http://www.aboutvb.de/khw/artikel/khwshell.htm
Habe es mit Acc2000 getestet. Sollte aber unter Acc97 genauso laufen.
Arno
Antwort 2 von Arno_Nym
Nachtrag:
Funktioniert ebenso in den anderen Office-Anwendungen (z.B. Word, Excel).
Beispielaufruf wäre:
Sub CMD_warten()
Dim Ergebnis
Ergebnis = ShellWait("cmd.exe", vbNormalFocus)
MsgBox "Rückgabecode der CMD-Shell: " & Ergebnis
End Sub
Arno
Funktioniert ebenso in den anderen Office-Anwendungen (z.B. Word, Excel).
Beispielaufruf wäre:
Sub CMD_warten()
Dim Ergebnis
Ergebnis = ShellWait("cmd.exe", vbNormalFocus)
MsgBox "Rückgabecode der CMD-Shell: " & Ergebnis
End Sub
Arno
Antwort 3 von Herbert
Hallo Arno,
vielen Dank, es funktioniert hervorragend.
Gruß Herbert
vielen Dank, es funktioniert hervorragend.
Gruß Herbert

