Global $Handle_Explorer_links
Global $Handle_Explorer_rechts

$ExplorerLinks = Run ("Explorer.exe")
$Handle_Explorer_links=_GetHwndByPID($ExplorerLinks)
MsgBox(0,$ExplorerLinks,$Handle_Explorer_links)
WinWait($Handle_Explorer_links)
WinMove($Handle_Explorer_links,"",0,0,@DesktopWidth/2,@DesktopHeight-480-60)

$ExplorerRechts = Run ("Explorer.exe")
$Handle_Explorer_rechts=_GetHwndByPID($ExplorerRechts)
MsgBox(0,$ExplorerLinks,$Handle_Explorer_links)
WinWait($Handle_Explorer_rechts)
WinMove($Handle_Explorer_rechts,"",@DesktopWidth/2,0,@DesktopWidth/2,@DesktopHeight-480-60)

;Aktualisiere_Explorer("c:\windows",$Handle_Explorer_links)
;Aktualisiere_Explorer("c:\temp",$Handle_Explorer_rechts)

Sleep(2000)
;WinClose($Handle_Explorer_links)
;WinClose($Handle_Explorer_rechts)

Exit

func Aktualisiere_Explorer($Ordner,$handle)
	$ret = WinActivate($handle)
	BlockInput(1)
	if @OSVersion = "WIN_7" Then
		$ret = ControlClick($handle,"",1001,"left",1,580)
	Else
		$ret = ControlClick($handle,"","Edit1","left",1,580)
	EndIf
		
	if $ret = 0 then 
		BlockInput(0)
		MsgBox(0,"Fehler","Click",1)
		Aktualisiere_Explorer($Ordner,$handle)
		Return
	EndIf

	send("{HOME}")		
	$text = $Ordner
	send("+{END}")
	ClipPut($text)
	;$ret = Sendcorrect($text)
	send("^v")
	send("{Enter}")
	BlockInput(0)
;	MsgBox(0,"Warte",$text)
	WinWait(StringLeft($text,95),"",5)
;	MsgBox(0,"Fertig",$text)
EndFunc

Func _GetHwndByPID($PID)
    $aWinList = WinList()
    For $i = 1 To $aWinList[0][0]
        If WinGetProcess($aWinList[$i][1]) = $PID Then Return $aWinList[$i][1]
    Next
    Return SetError(1, 0, 0)
EndFunc