Select items in Dest

Aktuelle Version: 12.7 (23.11.2017)
Alles zum Thema Directory Opus
Antworten
wazlaf
Beiträge: 52
Registriert: 18. Mär 2014 11:06
Betriebssystem: Win 8.1 Pro x64
Produkt: DOpus 11.1 x64
Version DOpus: Pro

Select items in Dest

Beitrag von wazlaf » 5. Jul 2014 21:02

Hallo zusammen,

ich versuche gerade per VBS-Script "Elemente" im Ziel-Tab zu selektieren.

Im englischem Forum habe ich folgenden Thread dazu gefunden, doch leider klappt das bei mir nicht so wie gewünscht.

Folgendes habe ich probiert:

Code: Alles auswählen

Function OnClick(ByRef ClickData)
	Set cmd = ClickData.Func.Command
	'cmd.deselect = False

	'cmd.RunCommand("Set Focus=Right")
	cmd.RunCommand("Set SOURCE=Right")
	DOpus.Delay 1000
	s = "Select " & """" & "data1.cab" & """" & " EXACT"
	cmd.RunCommand(s)
	'cmd.RunCommand("Set Focus=Left")
	cmd.RunCommand("Set SOURCE=Left")
End Function
Kann mir bitte jemand auf die Sprünge helfen was ich falsch mache?
Vielen Dank für die Hilfe

Mit freundlichen Grüßen
wazlaf

wazlaf
Beiträge: 52
Registriert: 18. Mär 2014 11:06
Betriebssystem: Win 8.1 Pro x64
Produkt: DOpus 11.1 x64
Version DOpus: Pro

Re: Select items in Dest

Beitrag von wazlaf » 17. Jul 2014 11:04

Hallo zusammen,

gibt es wirklich keine Möglichkeit im Ziel-Tab "Elemente" zu markieren?

Vielen Dank für die Hilfe

Mit freundlichen Grüßen
wazlaf

Benutzeravatar
Kundal
Moderator
Beiträge: 1341
Registriert: 20. Apr 2010 21:26
Betriebssystem: Win7 & Win 10 Pro 64 bit
Produkt: DOpus 12 x64 - Letzte Betaversion
Version DOpus: Pro

Re: Select items in Dest

Beitrag von Kundal » 17. Jul 2014 12:31

Versuch's mal mit dopusrt.exe:

Code: Alles auswählen

Function OnClick(ByRef ClickData)
   Set cmd = ClickData.Func.Command
   'cmd.deselect = False

   'cmd.RunCommand("Set Focus=Right")
   cmd.RunCommand("Set SOURCE=Right")
   DOpus.Delay 1000
   s = "dopusrt /cmd Select " & """" & "data1.cab" & """" & " EXACT"
   cmd.RunCommand(s)
   'cmd.RunCommand("Set Focus=Left")
   cmd.RunCommand("Set SOURCE=Left")
End Function

wazlaf
Beiträge: 52
Registriert: 18. Mär 2014 11:06
Betriebssystem: Win 8.1 Pro x64
Produkt: DOpus 11.1 x64
Version DOpus: Pro

Re: Select items in Dest

Beitrag von wazlaf » 17. Jul 2014 20:21

Hallo Kundal,

vielen Dank für Deine Antwort. Habe es soeben probiert und es funktioniert.

Inzwischen bin auch noch über eine andere Lösung gestolpert:
http://resource.dopus.com/viewtopic.php?f=35&t=21126

Code: Alles auswählen

Function OnClick(ByRef ClickData)
	Dim cmd
	Set cmd = ClickData.Func.Command
	cmd.deselect = False

	Dim DestTab
	Set DestTab = ClickData.Func.DestTab

	cmd.SetSourceTab(DestTab)

	Dim item0, item1, item2
	Set item0 = DOpus.FSUtil.GetItem("D:\CTX.DAT")
	Set item1 = DOpus.FSUtil.GetItem("D:\111111111.exe")
	Set item2 = DOpus.FSUtil.GetItem("D:\install.ini")
	
	cmd.AddFile(item0)
	cmd.AddFile(item1)
	cmd.AddFile(item2)

	Dim s
	s = "Select FROMSCRIPT"
	cmd.RunCommand(s)
End Function
Nochmals vielen Dank

Freundlich Grüße
wazlaf

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste