title image


Smiley Re: Synchrone SHELL-Bearbeitung
Hallo Lord Sukram,das würde so gehen:-----------------------------------------------------------Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongDeclare Function GetExitCodeProcess Lib "kernel32" (ByVal hprocess As Long, lpExitCode As Long) As LongSub async_shell_test()Const still_active = &H103Const fdwaccess = &H100000Dim befehl As String, strng As StringDim task_id As Long, hprocess As Long, nret As Longbefehl = "c:\winnt\system32\command.com dir c:\*.* > d:ddir.dat"task_id = Shell(befehl, vbHide)hprocess = OpenProcess(fdwaccess, False, task_id)Do GetExitCodeProcess hprocess, nret DoEventsLoop While nret = still_activeClose #1Open "d:\DDIR.DAT" For Input As #1Do While Not EOF(1) Input #1, strng Debug.Print strngLoopClose #1End Sub-----------------------------------------------------------Aber würde es bei dem genannten Beispiel nicht auch das Application.filesearch-Objekt (siehe Access-Hilfe) tuen?Gruß K.K

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: