Const ForReading = 1
Const OverwriteExisting = True
Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )
Dim sTDir : sTDir = oFS.GetAbsolutePathName( ".\" )
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(sTDir & "\lista_GRUPPO1.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
objFSO.CreateFolder sTDir & "\GRUPPO1"
For i = 0 to Ubound(arrServiceList)
On Error Resume Next
objFSO.CopyFile "\\BACKUP\Premessa_*_" & arrServiceList(i) &".csv" , sTDir & "\GRUPPO1\", OverwriteExisting
Next
Loop