Just to complete: if you need them all at the same time:
for(i in 1:100)
{
fn <- paste("velocity",i,".txt",sep="")
varname <- paste("velocity",i,sep="")
assign(varname,read.csv(fn))
}
and you have a list of objects {velocity1, ..., velocity100} with
corresponding data.
Scionforbai