4
Wie wird die Reihenfolge bei WScript.Arguments.Count festgelegt bei gleichzeitiger Übergabe mehrerer Dateien per Drag and Drop
Hallo, ich bins nochmal.
Nochmal vorweg, habe leider keinerlei Programmier-Erfahrung.
Zu meinem Problem:
Wollte mehrere Textdateien gleichzeitig per Drag and Drop über WScript.Arguments.Count an Vb-Skript übergeben.
Die einzelnen Dateien sollten dann über die Argumente einzeln verarbeitbar sein. Klappt auch soweit, nur dass ich noch nicht verstanden habe, welches Argument welcher Datei zuordnet wird.
Weder die Dateinamen noch die "Anwähl-Reihenfolge" schienen mir bisher ausschlaggebend zu sein, welche Datei nun im Argument 0 oder 1 usw. landet.
Wie gesagt, bin leider ahnungslos
.
Vielen Dank im voraus für eure Hilfe!
Mfg
Vollnoob
Nochmal vorweg, habe leider keinerlei Programmier-Erfahrung.
Zu meinem Problem:
Wollte mehrere Textdateien gleichzeitig per Drag and Drop über WScript.Arguments.Count an Vb-Skript übergeben.
Die einzelnen Dateien sollten dann über die Argumente einzeln verarbeitbar sein. Klappt auch soweit, nur dass ich noch nicht verstanden habe, welches Argument welcher Datei zuordnet wird.
Weder die Dateinamen noch die "Anwähl-Reihenfolge" schienen mir bisher ausschlaggebend zu sein, welche Datei nun im Argument 0 oder 1 usw. landet.
Wie gesagt, bin leider ahnungslos
.Vielen Dank im voraus für eure Hilfe!
Mfg
Vollnoob
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 148073
Url: https://administrator.de/contentid/148073
Printed on: April 25, 2024 at 13:04 o'clock
4 Comments
Latest comment
Hallo Vollnoob,
das hängt davon ab wie du markierst und
welches Eement du anfasst zum drag'n'drop das wird das erste in der Liste.
Kannst du aber auch ausprobieren.
(SCript basiert auf Force Cscript von RobVanDerWoude)
Gruß
LotPings
das hängt davon ab wie du markierst und
welches Eement du anfasst zum drag'n'drop das wird das erste in der Liste.
Kannst du aber auch ausprobieren.
(SCript basiert auf Force Cscript von RobVanDerWoude)
'
Option explicit
Dim strArgs, strEngine, i, wshShell
Set wshShell = CreateObject( "WScript.Shell" )
strEngine = UCase( Right( WScript.FullName, 12 ) )
strArgs = ""
If WScript.Arguments.Count > 0 Then
For i = 0 To WScript.Arguments.Count -1
strArgs = strArgs & Right(100+i,2) & " = " & WScript.Arguments(i) & vbCRLF
Next
End If
If strEngine <> "\CSCRIPT.EXE" Then
MSGBOX(strArgs)
Else
wscript.echo strArgs
End IfGruß
LotPings
Hallo LotPings,
Besten Dank!
Daran wirds also festgemacht.
Nett von dir direkt das mit dem Ausprobier-Skript gleich mitreinzustellen, so wurds sofort klarer
Mfg
Vollnoob
Besten Dank!
Daran wirds also festgemacht.
Nett von dir direkt das mit dem Ausprobier-Skript gleich mitreinzustellen, so wurds sofort klarer
Mfg
Vollnoob
Hallo LotPings!
Wenn Du bei Aufruf über "
Grüße
bastla
Wenn Du bei Aufruf über "
WScript" ohnehin nicht einen Neustart des Scripts über "CScript" initiierst, ist die Unterscheidung hier eigentlich überflüssig - ein "WScript.Echo" erzeugt unter "WScript" sowieso eine Standard-MessageBox ...Grüße
bastla
Hallo bastla,
du jast ja recht, aus Faulheit habe ich mich erinnert das da eine Argument-Sammel Routine drin war, und zu viel unnötiges drin gelassen.
Hier also eine kompaktere Version (die die Argumente ab 1 zählt):
Gruß
LotPings
du jast ja recht, aus Faulheit habe ich mich erinnert das da eine Argument-Sammel Routine drin war, und zu viel unnötiges drin gelassen.
Hier also eine kompaktere Version (die die Argumente ab 1 zählt):
If WScript.Arguments.Count > 0 Then
For i = 0 To WScript.Arguments.Count -1
strArgs = strArgs & Right(" " & i+1,2) & " = " & WScript.Arguments(i) & vbCRLF
Next
End If
wscript.echo strArgs Gruß
LotPings
