DIR$ как в QBasic

Предыдущая тема Следующая тема Перейти вниз

DIR$ как в QBasic

Сообщение  Hristo Boevski в Ср Май 22, 2013 5:26 am

REM: FBC -lang qb DIRB.BAS
#include "dir.bi"
Declare Sub List_files(Filespec$)
CO$=COMMAND$
Print CO$ ' Без то не работает!!??
List_files CO$
END

Sub List_files(Filespec$)
Filename$ =__Dir$(Filespec$)
Do While Len(Filename$) > 0
Print Filename$
Filename$ = __Dir$()
Loop
End Sub

Hristo Boevski

Сообщения : 1
Дата регистрации : 2013-05-22

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: DIR$ как в QBasic

Сообщение  trew в Ср Май 22, 2013 5:59 am

Код:
Rem: FBC -lang qb DIRB.BAS
#Lang "qb"
#include "dir.bi"
Declare Sub List_files(Filespec$)
List_files Command$
Sleep
END

Sub List_files(Filespec$)
   i=1
   Do While Len(Command$(i))>0
      Print Command$(i)
      i+=1
   Loop
End Sub

trew

Сообщения : 331
Дата регистрации : 2010-10-14

Посмотреть профиль

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения