ເນື້ອໃນ

# ຟັງຊັນ CurDir

ສົ່ງຄືນສະຕຣິງແບບ variant ທີ່ແທນເສັ້ນທາງ (path) ປັດຈຸບັນ ຫຼື ເສັ້ນທາງຂອງໄດຣັຟ Windows ທີ່ລະບຸ.

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

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

### ໄວຍາກອນ:

    CurDir [(Text As String)]

## ຄ່າສົ່ງຄືນ:

ສະຕຣິງ

### ພາຣາມິເຕີ:

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

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

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

### ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

68 ອຸປະກອນບໍ່ພ້ອມໃຊ້ງານ

7 ໜ່ວຍຄວາມຈຳບໍ່ພຽງພໍ

51 ຂໍ້ຜິດພາດພາຍໃນ

### ຕົວຢ່າງ:

      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

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ບໍລິການ ScriptForge.FileSystem

ບໍລິການ ScriptForge.TextStream

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!