Zwei Explorer Fenster gleichzeitig öffnen?

[unawave]

Also dieses Script funktioniert genauso wie ich es haben wollte. Leider nur mit dem InternetExplorer
All meine Versuche das irgendwie auf den Explorer um zu münzen schlugen fehl.
Wenn jemand eine Idee hat, wie dieses Script in Verbindung mit dem Explorer aus zu sehen hat.....dann bitte

Du brauchst doch nur die Konstanten zu ändern:

const programm1 = "C:\Windows\explorer.exe"
const programm2 = "C:\Windows\explorer.exe"

Der Total Commander hat mir auch nicht gefallen weil ... b) keine Freeware

Dann einfach den FreeCommander verwenden.

[urmel511]

Dann einfach den FreeCommander verwenden.

Hat mir auch nicht zugesagt. Expicula ist genau das was mir gefällt
Belysis Software - Expicula

[Frühbucher]

@unawave
Ja, so geht es, danke.
Script sieht dann so aus:

************************************************** *************************************
Option Explicit
const programm1 = "C:\Windows\explorer.exe"
const programm2 = "C:\Windows\explorer.exe"

Dim shell

' shell holen
Set shell = WScript.Createobject("shell.Application")

' Programme oeffnen
shell.open programm2
shell.open programm1

' Pause
WScript.sleep (3000)

' geoeffnete Fenster anordnen
shell.Tilevertically

' Skript beenden
WScript.Quit
************************************************** *************************************

Musste im GData eine Ausnahme für das Script hinterlegen, dann ging es.
Einzige Problem was sich jetzt darstellt.....es darf nichts anderes an Seiten (Browser oder Datei) geöffnet sein wenn ich es aufrufe. Das Script ordnet sonst ALLE Fenster fein säuberlich über den Bildschirm an.

[unawave]

Einzige Problem was sich jetzt darstellt.....es darf nichts anderes an Seiten (Browser oder Datei) geöffnet sein wenn ich es aufrufe. Das Script ordnet sonst ALLE Fenster fein säuberlich über den Bildschirm an.

Dann nimm diesen: "Einfach" vorher alle geöffneten Fenster in die Taskleiste minimieren:

Option Explicit
const programm1 = "C:\Windows\explorer.exe"
const programm2 = "C:\Windows\explorer.exe"
Dim shell

' shell holen
Set shell = WScript.Createobject("shell.Application")

' eventuell geoeffnete Programme in der Taskleiste minimieren
shell.MinimizeAll

' Programme oeffnen
shell.open programm2
shell.open programm1

' Pause
WScript.sleep (3000)

' geoeffnete Fenster anordnen
shell.Tilevertically

' Skript beenden
WScript.Quit

[Frühbucher]

@unawave
Perfekt!
Ich habe auch noch die Zeit bis zum anordnen auf 1000 reduziert.
Jetzt ist es erwachsen geworden

Danke für die nette Ünterstützung

[unawave]

Ich habe auch noch die Zeit bis zum anordnen auf 1000 reduziert.

Das hängt von der Geschwindigkeit des eigenen Rechners ab und manchmal auch von der Situation. Wenn im Hintergrund ein arbeitsintensives Programm läuft – z.B. der Mediaplayer spielt einen DVD-Film ab – kann es sein, daß die Zeit nicht ausreicht.

Perfekt!
Jetzt ist es erwachsen geworden

Na ja, "erwachsen" ist es noch nicht – eher frühreif.

Denn in der obigen Form werden zwei Explorer-Fenster geöffnet und es werden die "Bibliotheken" angezeigt.
Möchte man statt dessen z.B. Laufwerk C: und Laufwerk D: angezeigt haben, müßte der Aufruf so aussehen:

%windir%\explorer.exe /n,/e,C:
%windir%\explorer.exe /n,/e,D:

Oder wenn man den "Arbeitsplatz" bzw. "Computer" angezeigt haben will, müßte der Aufruf so aussehen:

%windir%\explorer.exe ,

Und bei Netzwerklaufwerken müßte der Aufruf so aussehen:

%windir%\explorer.exe /n,/e,\\[Computer]\[Freigabe-Ordner]

Da man aber wohl mit "shell.Application" keine Parameter anhängen kann, muß man kurzzeitig auf "WScript.Shell" umsteigen:

Dim Variable1, Variable2

' Variable1 holen
Set Variable1 = WScript.Createobject("shell.Application")

' eventuell geoeffnete Programme in die Taskleiste minimieren
Variable1.MinimizeAll

' Variable2 holen
Set Variable2 = WScript.CreateObject ("WScript.Shell")

Variable2.Run "%windir%\explorer.exe /n,/e,C:",,True
Variable2.Run "%windir%\explorer.exe /n,/e,D:",,True

' Moegliche Varianten:
' Variable2.Run "%windir%\explorer.exe ,",,True
' Variable2.Run "%windir%\explorer.exe /n,/e,C:",,True
' Variable2.Run "%windir%\explorer.exe /n,/e,D:",,True
' Variable2.Run "%windir%\explorer.exe /n,/e,C:\Programme\Microsoft Office",,True
' Variable2.Run "%windir%\explorer.exe /n,/e,\\[Computer]\[Freigabe-Ordner]",,True

' Pause
WScript.sleep (3000)

' geoeffnete Fenster anordnen
Variable1.Tilevertically

Jetzt noch das ganze als Icon in die Taskleiste packen – dann hat man es immer parat.