Set FSO=CreateObject("Scripting.FileSystemObject")
Set DIR = FSO.GetFolder(".")
Set Collec_Folder= DIR.SubFolders

TARGET = "exerciseXML.json"
total = 0
created = 0
For Each Folder in Collec_Folder
	If NOT FSO.FileExists(Folder.Path & "/" & TARGET) Then
		set newTXT = FSO.CreateTextFile(Folder.Path & "/" & TARGET, True)
		newTXT.WriteLine("{}")
		newTXT.Close()
		created = created + 1
	End if
	total = total + 1
	' FSO.CopyFolder Folder.Path, newbackup.Path & "/" , True
Next
msgBox("CREATED ["&TARGET&"] at "&created&"/"&total&" folders")