query su file csv e crea file di testp

[renygade]

Nel titolo non hai specificato il linguaggio con cui lavori. Leggendo mi pare di intuire che scrivi script in vbs... è corretto? Per i file cvs cosa usi? Excel?
Potresti postare il codice che hai realizzato in modo da vedere se c'è una parte che si può recuperare...

[scherman]

Nel titolo non hai specificato il linguaggio con cui lavori. Leggendo mi pare di intuire che scrivi script in vbs... è corretto? Per i file cvs cosa usi? Excel?
Potresti postare il codice che hai realizzato in modo da vedere se c'è una parte che si può recuperare...

Ciao,
Si lo script preparato é in vbs che posso postare domani perché è su altro PC. Volevo comunque tenere gli script separati, uno per preparare le varie liste clienti e l'altro per la copia dei file, questo perché le liste vorrei usarle anche per altro.

[scherman]

Ciao,
Si lo script preparato é in vbs che posso postare domani perché è su altro PC. Volevo comunque tenere gli script separati, uno per preparare le varie liste clienti e l'altro per la copia dei file, questo perché le liste vorrei usarle anche per altro.

Non trovo il tasto edit...
Questo il codice che mi copia i file, preparo a mano il file gruppo1.txt ed è ciò che non vorrei fare.
Altro script ed altro file per gruppo2 ecc fino al gruppo8 se va bene.

Grazie ancora

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