Вот переделанный пример из хелпа
правда без массивов.
folder$="C:"
myDir=ReadDir(folder$)
While True
file$=NextFile$(myDir)
If file$="" Then Exit
If FileType (folder$+""+file$) = 1 Then
If Right (file$,4) = ".b3d" Then
m.model = New model
m\ent = LoadMesh (folder$+file$)
EndIf
End If
Wend
CloseDir myDir
|