[VBS]wijzig text in meerdere bestanden.

[josoetgebrook]

Ik heb een aantal ics-bestanden in een map staan met handmatig aangemaakte afspraken per medewerker.
Nu heb ik een script om in een ics-bestand de optie CLASS:PRIVATE te wijzigen in CLASS:PUBLIC
De ics-bestanden hebben de naam gebruikersnaam.ics
In het script wordt de gebruiker gevraagd zijn gebruikersnaam in te vullen.

VBScript:

Const ForReading = 1
Const ForWriting = 2

strFileName = InputBox("vul uw gebruikersnaam in") 'strFileName = Wscript.Arguments(0)
strOldText = "CLASS:PRIVATE"
strNewText = "CLASS:PUBLIC"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFileName&".ics", ForReading) 'strFileName&

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, strOldText, strNewText)

Set objFile = objFSO.OpenTextFile(strFileName&".ics", ForWriting) 'strFileName&
objFile.WriteLine strNewText
objFile.Close

Echter nu zou ik dit graag willen uitvoeren op alle ics-bestanden in een map.

[Merethil]

Je kan toch gewoon door de folder heen loopen en elke .ics aanpassen?
Is op zich niet heel ongewoon, lijkt me.