saschaaaaa
Jul 25, 2016
view1668
view4
0
Goto Top

VB Script rekursiv statt nur ein Ordner

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo Community,

ich beginne gerade erst mich in die verschiedensten Sprachen einzulesen und habe momentan ein kleines Problem bei einem VB Script:

sFolder = WScript.Arguments(0)
Set oFolder = fso.GetFolder(sFolder)
For Each oFile In oFolder.Files
	Do Something
Next

Wie kann ich hier auch alle Unterordner durchsuchen und die darin enthaltenen Files bearbeiten?
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 310820

Url: https://administrator.de/contentid/310820

Printed on: April 16, 2024 at 08:04 o'clock

4 Comments
Latest comment
Goto Top
Mitglied: 129813
Solution 129813 Jul 25, 2016 updated at 07:37:50 (UTC)
Goto Top
With a recursive function which calls itself from within the function. You will find a lot on the board.
For example
Zwei Ordner durchsuchen

Mehrere Verzeichnisse in einen Script angeben

Regards
Member: Saschaaaaa
Saschaaaaa Jul 25, 2016 at 08:05:45 (UTC)
Goto Top
Wenn ich es so versuche macht er gar nichts mehr?
Nicht mal in dem Ordner der angegeben ist?

boolRecursion = True
parseFolders fso.GetFolder(sFolder),boolRecursion

Function parseFolders(oFolder,boolRecursion)
	for each oFile in oFolder.Files
                 Do Something
	Next

	If boolRecursion Then
		For Each subFolder in oFolder.SubFolders
			parseFolders subFolder, True
		Next
	End If
End Function
Mitglied: 129813
Solution 129813 Jul 25, 2016 updated at 08:11:15 (UTC)
Goto Top
Zitat von @Saschaaaaa:

Wenn ich es so versuche macht er gar nichts mehr?
Nicht mal in dem Ordner der angegeben ist?
No surprise, you're doing nothing with the files face-smile
06. Do Something 

This works without problems.

You have to post your complete code.
Member: Saschaaaaa
Saschaaaaa Jul 25, 2016 at 08:11:41 (UTC)
Goto Top
Hups doch funktioniert schon^^
Habe mich im Ordner vertan.

Danke highload!
GermansolvedQuestionVB for ApplicationsDevelopment