|
Вот вопрос в том, как сделать чтоб программа считывала файлы определенного формата? Допустим .b3d .3ds .x и т.д и т. п. а остальные файлы которые находятся в этой же папке не считывались!!!
|
Вот простой вариант:
folder$="F:"
myDir=ReadDir(folder$)
Repeat
file$=NextFile$(myDir)
If file$="" Then Exit
If FileType(folder$+"\"+file$) = 2 Then
Else
If RSet$(file$,4)=".B3D" Or RSet$(file$,4)=".3DS"
Print "File:" + file$
EndIf
End If
Forever
CloseDir myDir