Hi,
I don't know your data structure exactly, but this might help:
dim i, length, loops
length = cl("[1]/[1]")
loops = length/480
for i = 1 to loops
Call Data.Root.ChannelGroups.Add("day_" & i, i+1).Activate()
Call Data.Root.ChannelGroups(i+1).Channels.Add("Channel",DataTypeFloat64,1)
Call Data.Root.ChannelGroups(i+1).Channels.Add("Channel1",DataTypeFloat64,2)
Call Data.Root.ChannelGroups(i+1).Channels.Add("Channel2",DataTypeFloat64,3)
Call Data.Root.ChannelGroups(i+1).Channels.Add("Channel3",DataTypeFloat64,4)
Call DataBlCopy("'[1]/[1]' - '[1]/[4]'",480*(i-1)+1, 480,"'["&i+1&"]/Channel' - '["&i+1&"]/Channel3'",1)
next
Regards
Simyfren