Vision VTB-101 Guia do Utilizador descarregar pdf (Página 71)

VTB USER GUIDE

bit 1 hidden

bit 2 system

bit 3 volume

bit 4 directory

bit 5 arch.

.name(13) Short name ex. “nomefile.ext”

.lname Pointer to long name (max 255 characters)

Example

' Function to print on the serial port of the file list in the current

' directory

function list_dir() as void

dim res as char

dim pname as *char

dim flbyte as long

res=disk.OpenDir(“”)

if res

ser_puts("No file")

ser_putchar(10)

ser_putchar(13)

return

endif

while 1

res = disk.ReadDir()

if res || disk_finfo.name(0)=0

return

endif

ser_printl("00",disk_finfo.date & 31)

ser_printl("/00",(disk_finfo.date >> 5) & 15)

ser_printl("/####",(disk_finfo.date >> 9) + 1980)

ser_printl(" 00",disk_finfo.time >> 11)

ser_printl(":00",(disk_finfo.time >> 5) & 63)

if disk_finfo.attrib & ?p1?.ATTR_DIR

ser_puts(" <DIR> ")

else

ser_printl(" ######### bytes ",disk_finfo.size)

endif

ser_puts(" - ")

ser_puts(disk_finfo.name())

ser_puts(" - ")

ser_puts(disk_finfo.lname)

ser_putchar(10)

ser_putchar(13)

loop

endfunction

1 2 ... 66 67 68 69 70 71 72 73 74 75 76 ... 124 125

Comentários a estes Manuais

Sem comentários

Vision VTB-101 Guia do Utilizador Página 71

Comentários a estes Manuais