non l'ho provato...ma dovrebbe funzioanre:
Codice:
MsgBox "Inizio..."
Dim fso, folder, file, elemfile, stringa
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder ("c:\\1\\")
Set file = folder.Files
For Each elemfile in file
Set OggFile = fso.GetFile (elemfile)
Set OggTextStream = OggFile.OpenAsTextStream(1)
stringa =stringa + OggTextStream.ReadLine
stringa =stringa + OggTextStream.ReadLine
stringa =stringa + "cm " + OggTextStream.ReadLine
stringa =stringa + "kg " + OggTextStream.ReadLine
stringa = stringa + OggTextStream.ReadAll
OggTextStream.close
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine stringa
OggTextStream.close
next
MsgBox "Fatto!!!"