Hallo liebe Profis,

Ich suche eine Möglichkeit, mit Sprachbefehlen mehrere aufeinanderfolgende Dateien im Windows Explorer zu markieren um sie später mit einem Klick zu öffnen – in meinem Fall mehrere PDF Dokumente. Leider habe ich in der Dokumentation und auch hier im Forum nichts passendes gefunden – könnt ihr mir helfen?

Vielen Dank
Eisvogel

Eine einfache Möglichkeit könnte so aussehen:
Befehl: <1bis10> Zeilen markieren
Skript:

Sub Main
Sendkeys "+{Down " & ListVar1 + "}"
End Sub

Gruß, Pascal

Hallo, funktioniert leider nicht wie gedacht. Wenn ich zum Beispiel fünf Zeilen markieren sage, springt die Markierung im Explorer entweder in die oberste oder untersten Zeile.

Eigentlich wird es mir reichen wenn ich durch Sprache die Shift oder Steuerung Taste gedrückt halten könnte, während ich mit der Maus markiere.
Viele Grüße
Eisvogel

Na gut, noch eine Versuch:

Umschalttaste drücken (und damit festhalten):
Befehl: Umschalt ein
Skript:
Declare Function keybd_event Lib "user32.dll" (ByVal vKey As _
Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Sub Main
' Taste gedrückt halten
keybd_event(16,0,0,0)
End Sub

Umschalttaste loslassen
Befehl: Umschalt aus
Skript:
Declare Function keybd_event Lib "user32.dll" (ByVal vKey As _
Long, bScan As Long, ByVal Flag As Long, ByVal exInfo As Long) As Long
Sub Main
' Umschalttaste loslassen
keybd_event(16,0,2,0)
End Sub

Der Code für die Strg-Taste ist 17.
Denken Sie daran, die entsprechenden Zugriffstasten in den Optionen zu deaktivieren (Einträge löschen)

Gruß, Pascal

Danke, mit der Skriptsprache kenne ich mich noch nicht so gut aus. Kann ich die Skriptbeispiele von Ihnen so in den Skripttor übernehmen um einen neuen Befehl zu erstellen?

Ja, genau so übernehmen.

Bitte entschuldigen Sie meine Blackout von eben, ich hatte das Skript falsch eingegeben. Die erste Version funktioniert fast perfekt. Das Skript markiert allerdings nur eine darunterliegende Zeile, egal ob ich zwei Zeilen markieren oder fünf Zeilen markieren sage. Was muss geändert werden?
Grüße Eisvogel

Kleine Änderung des ersten Skriptes, da die Zeilen zusätzlich zur ersten markiert werden, also eine zuviel:

Sub Main
Dim Z As String
Z = CStr(CInt(ListVar1)-1)
Sendkeys "+{Down " & Z + "}"
End Sub

Das Skript funktioniert, wenn die erste der auszuwählenden Dateien (Zeilen) auch wirklich ausgewählt ist.
Gruß, Pascal

Das Skript funktioniert leider immer noch nicht so ganz. Es wird leider wie vorher nur die auf die markierte Zeile folgende markiert. Grüße, Dirk

Wenn ich so mein beschränktes Informatikwissen zurate ziehe, glaube ich dass man in einer Form eine Schleife braucht (?) Welche Skriptsprache benutzt der Drache eigentlich?

Natürlich geht's auch mit einer Schleife. Ersetzen Sie die Sendkeys-Zeile z.B. durch

For i=1 To CInt(ListVar1)-1
SendKeys "+{Down}"
Next

Dragon verwendet WinWrap-Basic.

Hallo Pascal, danke für das Skript. Mit der Schleife funktioniert es perfekt.