CurDir funkcija

Pateikia eilutės variantą, kuris nusako dabartinį kelią .

warning

Kai kurios DOS failų ir katalogų funkcijų „% PRODUCTNAME“ nebeteikia arba teikia labai ribotai. Pavyzdžiui, palaikymas funkcijos ChDir, ChDrive ir CurDi neteikiamos. Kai kurios DOS specifinės ypatybės nebenaudojamos tose funkcijose, kurioms reikia, kad failo ypatybės būtų parametrai (pavyzdžiui, atskirti paslėptus ir sisteminius failus). Tai užtikrina didžiausią įmanomą platformos „% PRODUCTNAME“ nepriklausomumą. Todėl ateityje ši funkcija gali būti pašalinta.


note

The ScriptForge library in LibreOffice 7.1 introduces the FileSystem service with methods to handle files and folders in user scripts.


Sintaksė:


CurDir [(Text As String)]

Grąžinama reikšmė:

Eilutė

Parametrai:

Tekstas: Bet koks eilutės reiškinys, nurodantis esamą diską, pvz., C – pirmojo standžiojo disko pirmąjį skaidinį. Šis parametras naudojamas tik „Windows“ sistemoje.

Jei diskas nenurodytas arba jei diskas yra nulinio ilgio eilutė (""), CurDir grąžina dabartinio disko kelią. „LibreOffice Basic“ praneša apie klaidą, jei disko aprašo sintaksė yra neteisinga arba jei disko nėra.

Ši funkcija neskiria didžiųjų ir mažųjų raidžių.

Klaidos kodai:

5 Neteisingas procedūros iškvietimas

68 Prietaisas nėra pasiekiamas

7 nepakanka atminties

51 vidinė klaida

Pavyzdys:


  Sub ExampleCurDir
      Dim sDir1 As String, sDir2 As String
      sDir1 = "C:\Test"
      sDir2 = "D:\Private"
      ChDir( sDir1 )
      MsgBox CurDir
      ChDir( sDir2 )
      MsgBox CurDir
  End Sub

Paremkite mus!