Online Reference

Home

CurDir Function, CurDir$ Function

VBA Function, ฟังก์ชัน CurDir ส่งออกค่าเป็นประเภทข้อมูล Variant (String) เพื่อแสดงพาร์ทของปัจจุบัน
VBA Function, ฟังก์ชัน CurDir$ ส่งออกค่าเป็นประเภทข้อมูล String เพื่อแสดงพาร์ทของปัจจุบัน

ไวยากรณ์

CurDir [(drive)]

CurDir$ [(drive)]

อากิวเมนต์ drive ไม่บังคับ ซึ่งมีค่าเป็น Expression ของข้อความที่ระบุ Drive ที่มีอยู่จริง ถ้าไม่มีการกำหนด drive หรือ drive เป็น zero-length string (“”) ฟังก์ชัน CurDir จะส่งค่าของ Drive ปัจจุบัน

ดูเพิ่มเติม

ChDir Statement, ChDrive Statement, MkDir Statement, RmDir Statement

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน CurDir เพื่อส่งค่าพาร์ทปัจจุบัน

' สมมติพาร์ทปัจจุบันของ drive C เป็น "C:\WINDOWS\SYSTEM" (สำหรับ Microsoft Windows)
' สมมติพาร์ทปัจจุบันของ drive D เป็น "D:\EXCEL".
' สมมติ drive C เป็น drive ปัจจุบัน

Dim MyPath
MyPath = CurDir ' ค่าที่ส่งออก "C:\WINDOWS\SYSTEM"
MyPath = CurDir("C") ' ค่าที่ส่งออก "C:\WINDOWS\SYSTEM"
MyPath = CurDir("D") ' ค่าที่ส่งออก "D:\EXCEL"