---

Grüße,

ich hab gerade ein Problem und hoffe das es relativ leicht zu lösen ist. Ich habe ein VBScript geschrieben das mir Zeichnungen umbenennt und in ein Verzeichnis wegkopiert. Dies funktioniert auch wunderbar, nur würde ich gern mehrere Zeichnungen auf einmal kopieren (Mit gedrückter Strg-Taste die betreffenden Zeichnungen im DBWorks-Browser auswählen und dann die Funktion starten). Wenn ich das jetzt versuche kommt immer folgende Meldung:
"Für diese Funktion ist keine Mehrfachauswahl zulässig. Bitte wählen sie genau ein Element."

Weis jemand wie ich meine Funktion erweitern muss damit es funktioniert?

Danke schonmal,
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas

vielleicht hilft Dir das ein wenig weiter
Die Dateien im Suchfenster markieren und dann die Funktion auswählen
Da es nur ein Auszug aus einem Script ist, hoffe ich, dass der Code
funktioniert.

LG
Heinz

--------------------------------------------------------------
sub main
  DBWInit(True)

  DBWShell("GetSelection")
  if (okDBW) then
    selection = DBWResult("@SELECTION")
    DBWShell("WorkingSetCreate " & selection)
  end if

  uidArray = Split(selection,",", -1, 1)
  ub = UBound(uidArray)
  if ub = 0 then ' only one element
    uidArray = Array(selection)
    ub = 1
  end if

  for i=0 to ub
    fName = DBWQueryByUid(uidArray(i),DBWLookUp("NAME_FIELD_FILE_NAME"))
    fDir  = DBWQueryByUid(uidArray(i),DBWLookUp("NAME_FIELD_FILE_DIRECTORY"))
 
    'Code von Deinem Script
    '.....
    '.....

    if UBound(uidArray)=0 then
      exit for
    end if         
  next
end sub
--------------------------------------------------------------

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, das ist genau was ich gesucht hab. Werds gleich mal testen...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP