lg=Length[FileNames[]]

For[
i=1,i≤10,i++,
dat[i]=Import[FileNames[][[i]]];
];
Manipulate[
Print[ListPointPlot3D[dat[i],BoxRatios->{1,1,1},BoxRatios->{1,1,1}]],{i,1,2,1}
]