Gambas Documentation

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

Dir

Tabela e emrit të skedarit = Dir ( Direktoriumi AS String [ , Motiv AS String , Filtër AS Integer ] ) AS String[]

Kthen tabelën e vargut e cila përmban vendndodhjen e emrit të skedarit në Direktorium e cila përputh Motivin dhe Filtërin.

Motivi mund të përmbajë gjenerimin e njejtë të karaktereve se sa LIKE operatori. Nëse nuk është saktësuar asnjë motiv, cilido emër i skedarit është i kthyer.

Filtëri saktëson se cilli lloj i skedarëve do të kthehet, me saktësimin e një apo kombinimin e konstantave të tipit të skedarit. Nëse Filtëri nuk është saktësuar, të gjitha skedarët dhe direktoriumet janë të kthyera.

Emrat e skedarëve të kthyer janë relativ, ato nuk përmbajnë direktoriumin e kërkuar.

Example

' Printon png imazhet e skedarit në direktorium, me radhitje alfabetike.

SUB PrintonDirektoriumin(Directory AS String)

  DIM Skedar AS String

  FOR EACH File IN Dir(Direktoriumi, "*.png").Sort()
    PRINT Skedarin
  NEXT

END

' Printon të gjitha skedarët jo të fshehur në direktoriumin fillestar të përdoruesit.

DIM fileName AS String

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

' Printon png dhe jpeg imazhet në direktoriumin fillestar të përdoruesit.

DIM Direktoriumi AS String
DIM Skedar AS String[]
DIM EmriISkedarit AS String

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

FOR EACH EmriISkedarit IN Skedarët
PRINT EmriISkedarit
NEXT

' Printon skedarët vetëm në direktoriumin fillestar të përdoruesit.

DIM Emriiskedarit AS String

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

' Printon nën direktoriumet vetëm në direktoriumin fillestar të përdoruesit.

DIM EmriIdirektoriumit AS String

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

' Printon nën direktoritë jo të fshehta në direktorinë fillestare të përdoruesit.

DIM EmriIdirektoriumit AS String

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

' Bën listën e pajisjet e sistemit.

DIM EmriIpajisjes AS String

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

Example

See also