Не работает?
это потому что ты не хочешь думать!!!
file$=наши файлы b3d & 3ds
If RSet$(file$,4)=".b3d" Or RSet$(file$,4)=".3ds"
Print "File:" + file$
EndIf
Выводим на экран только те файлы, которые имеют четыре символа в конце имени с права, и выглядят они так .b3d .3ds !!!