ຟັງຊັນ CurDir

ສົ່ງຄືນສະຕຣິງແບບ variant ທີ່ແທນເສັ້ນທາງ (path) ປັດຈຸບັນ .

ຟັງຊັນໄຟລ໌ ແລະ ໄດເຣັກທໍຣີບາງຢ່າງທີ່ສະເພາະກັບ DOS ຈະບໍ່ມີໃຫ້ໃຊ້ໃນ LibreOffice ອີກຕໍ່ໄປ, ຫຼື ການເຮັດວຽກຂອງພວກມັນຈະຖືກຈຳກັດ. ຕົວຢ່າງເຊັ່ນ, ຈະບໍ່ຮອງຮັບຟັງຊັນ ChDir, ChDrive ແລະ CurDir. ຄຸນສົມບັດສະເພາະ DOS ບາງຢ່າງຈະບໍ່ຖືກນຳໃຊ້ໃນຟັງຊັນທີ່ຕ້ອງການຄຸນສົມບັດໄຟລ໌ເປັນພາຣາມິເຕີ (ຕົວຢ່າງເຊັ່ນ, ເພື່ອແຍກໄຟລ໌ທີ່ຖືກເຊື່ອງ ແລະ ໄຟລ໌ລະບົບ). ນີ້ເພື່ອຮັບປະກັນໃຫ້ LibreOffice ສາມາດເຮັດວຽກໄດ້ໃນທຸກແພລັດຟອມຢ່າງເປັນອິດສະຫຼະທີ່ສຸດ. ດັ່ງນັ້ນ, ຄຸນສົມບັດນີ້ອາດຈະຖືກຕັດອອກໃນລຸ້ນຕໍ່ໆໄປ.

ໄລບຣາຣີ ScriptForge ໃນ LibreOffice 7.1 ໄດ້ແນະນຳບໍລິການ FileSystem ພ້ອມກັບວິທີການຕ່າງໆໃນການຈັດການໄຟລ໌ ແລະ ໂຟນເດີໃນສະຄຣິບຂອງຜູ້ໃຊ້.

CurDir [(Text As String)]

ຄ່າສົ່ງຄືນ:

ສະຕຣິງ

Text: ນິພົດສະຕຣິງໃດໜຶ່ງທີ່ກຳນົດໄດຣັຟທີ່ມີຢູ່, ຕົວຢ່າງ "C" ສຳລັບພາທິຊັນທຳອິດຂອງຮາດດິດໜ່ວຍທຳອິດ. ພາຣາມິເຕີນີ້ໃຊ້ສະເພາະພາຍໃຕ້ Windows ເທົ່ານັ້ນ.

ຫາກບໍ່ມີການກຳນົດໄດຣັຟ ຫຼື ຫາກໄດຣັຟເປັນສະຕຣິງຫວ່າງເປົ່າ (""), CurDir ຈະສົ່ງຄືນເສັ້ນທາງຂອງໄດຣັຟປັດຈຸບັນ. LibreOffice Basic ຈະລາຍງານຂໍ້ຜິດພາດ ຫາກໄວຍາກອນຂອງຄຳອະທິບາຍໄດຣັຟບໍ່ຖືກຕ້ອງ ຫຼື ຫາກໄດຣັຟນັ້ນບໍ່ມີຢູ່.

ຟັງຊັນນີ້ບໍ່ຈຳແນກຕົວອັກສອນໃຫຍ່-ນ້ອຍ.

  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