CurDir funkcija

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

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.

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

CurDir [(Text As String)]

Grąžinama reikšmė:

Eilutė

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ą. „Collabora Office 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ų.

  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