Job abfragen in Excel
22.01.2013 19:04:11
Anton
Hallo Wolfgang,
IMHO ist das Aufrufen der lame.exe über .bat überflüssig. Ersetze:
Open "c:\Windows\Temp\MP3Update_Lame.BAT" For Output As 1
For i = 1 To LstDirQ.ListCount - 1
If LstDirQ.Selected(i) Or LstDirQ.Selected(0) Then
Print #1, C34$ + txtDirLame + C34$ + t1$ + t5$ + t2$ + LstDirQ.List(i) + C34$ + t3$ + _
Left(LstDirQ.List(i), Len(LstDirQ.List(i)) - 3) + t4$ + C34$
End If
Next
Close 1
If Dir("c:\Windows\Temp\MP3Update_Lame.BAT") = "" Then MsgBox "Keine Datei ausgewählt": Exit _
Sub
ProcessId = Shell("c:\Windows\Temp\MP3Update_Lame.BAT", vbMaximizedFocus)
hProcess = OpenProcess(fdwAccess, False, ProcessId)
Do ' -----> klappt nicht
Sleep 2000
DoEvents
GetExitCodeProcess hProcess, nRet
Loop While nRet = STILL_ACTIVE
durch(ungetestet):
Set WshShell = CreateObject("WScript.Shell")
For i = 1 To LstDirQ.ListCount - 1
If LstDirQ.Selected(i) Or LstDirQ.Selected(0) Then
WshShell.Run C34$ + txtDirLame + C34$ + t1$ + t5$ + t2$ + LstDirQ.List(i) + C34$ + t3$ + _
_
Left(LstDirQ.List(i), Len(LstDirQ.List(i)) - 3) + t4$ + C34$, 1, True
End If
Next
'MsgBox "Alle Dateien konvertiert"
Set WshShell = Nothing
mfg Anton