PDA

Vollständige Version anzeigen : Batch-Dateien aus Access aufrufen


FFrye
27.04.2001, 15:12
Ich habe ein Problem mit dem Aufruf eine Batch-Datei aus Access97. In meiner Datenbank wird an einer Stelle eine Batch-Datei aufgerufen. Bei Windows 95, Windows 98 und Windows NT wird diese Batch-Datei minimiert über eine Verknüpfung ausgeführt. Sobald diese Batch-Datei auf einem Rechner mit Windows 2000 aufgerufen wird, kann sie nicht mehr minimiert ausgeführt werden. Ich habe auch schon eine neue Verknüpfung erzeugt aber es sieht so aus das die Verknüpfung nicht berücksichtigt wird. So wird alle 10 Sec. ein DOS-Fenster kurz eingeblendet. Wie kann man eine Batch-Datei aus Access 97 über Windows 2000 minimiert aufrufen ? Über eine Lösung dieses Problems würde ich mich sehr freuen.
Vielen Dank
Frank

Stefan Kulpa
28.04.2001, 05:28
Hallo Frank,

mittels API müßte es klappen:

<FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> ShellExecute <FONT COLOR=#000080>Lib</FONT> "shell32.dll" <FONT COLOR=#000080>Alias</FONT> _
"ShellExecuteA" (<FONT COLOR=#000080>ByVal</FONT> hwnd <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpOperation <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpFile <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpParameters <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> lpDirectory <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> nShowCmd <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> GetActiveWindow <FONT COLOR=#000080>Lib</FONT> "user32" () <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#808080><HR></FONT>


<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Sub</FONT> RunBatch(sBatchFile <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>)

<FONT COLOR=#000080>Call</FONT> ShellExecute(GetActiveWindow(), "Open", sBatchFile, 0&, 0&, vbHide) <FONT COLOR=#008000>'vbHide=0</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Sub</FONT> Test()

RunBatch "d:\Systeminfo.bat"

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

</FONT>

Gruß,