Gambas Documentation

Warning! This page is not up to date. See english version

Dir

Niza so imiwa na datoteki = Dir ( Direktorium AS String [ , Sema AS String , Filter AS Integer ] ) AS String[]

Враќа низа од стрингови што ги содржи имињата на датотеките од Direktorium-от што одговараат на Sema-та на Filter-от.

Шемата може да ги содржи истите генерички карактери како операторот LIKE. Ако не е наведена шема, се враќа кое било име на датотека.

Филтерот ги специфицира датотеките чии имиња ќе се враќаат преку една или комбинација на константи за типови на датотеки. Ако не е наведен Filter, се враќаат сите датотеки и директориуми.

Имињата на датотеките се реалтивни и не го содржат пребаруваниот директориум.

Example

' Gi pecati iminjata na png slikite vo direktoriumot, po abeceden red.

SUB PecatiDirektorium(Directory AS String)

  DIM Datoteka AS String

  FOR EACH Datoteka IN Dir(Direktorium, "*.png").Sort()
    PRINT Datoteka
  NEXT

END

' Gi pecati site neskrieni datoteki vo pocetniot direktorium na korisnikot

DIM imeNaDatoteka AS String

FOR EACH imeNaDatoteka IN Dir(User.Home, "[^.]*")
PRINT imeNaDatoteka
NEXT

' Gi pokazuva iminjata na png i jpeg slikite vo pocetniot direktorium na korisnikot

DIM Direktorium AS String
DIM Datoteki AS String[]
DIM ImeNaDatoteka AS String

Direktorium = System.User.Home
Files = Dir(Direktorium, "*.png")
Files.Insert(Dir(Direktorium, "*.jpg"))
Files.Insert(Dir(Direktorium, "*.jpeg"))

FOR EACH ImeNaDatoteka IN Datoteki
PRINT ImeNaDatoteka
NEXT

' Gi pokazuva samo datotekite od pocetniot direktorium na korisnikot

DIM imeNaDatoteka AS String

FOR EACH imeNaDatoteka IN Dir(User.Home, "*", gb.File)
PRINT imeNaDatoteka
NEXT

' Gi pokazuva samo iminjata na poddirekoriumite vo korisnickiot poddirektorium

DIM imeNaDirektorium AS String

FOR EACH imeNaDirektorium IN Dir(User.Home, "*", gb.Directory)
PRINT imeNaDirektorium
NEXT

' Gi pokazuva neskrienite poddirektoriumi vo pocetniot direktorium na korisnikot

DIM imeNaDirektorium AS String

FOR EACH imeNaDirektorium IN Dir(User.Home, "[^.]*", gb.Directory)
PRINT imeNaDirektorium
NEXT

' Pokazuva lista na sistemskite uredi

DIM imeNaUred AS String

FOR EACH imeNaUred IN Dir("/dev", "*", gb.Device)
PRINT imeNaUred
NEXT

Example

See also