หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ ตัวแปร (สตริง) ที่แสดงเส้นทางปัจจุบัน
ไวยากรณ์
CurDir[(drive)]
อาร์กิวเมนต์ ไดรฟ์ ที่เป็นตัวเลือกคือ นิพจน์สตริง ที่ระบุไดรฟ์ที่มีอยู่ ถ้าไม่มีการระบุไดรฟ์ หรือถ้า ไดรฟ์ เป็นสตริงที่มีความยาวเป็นศูนย์ ("") CurDir จะส่งกลับเส้นทางสําหรับไดรฟ์ปัจจุบัน บน Macintosh CurDir จะละเว้น ไดรฟ์ ใดๆ ที่ระบุ และจะส่งกลับเส้นทางสําหรับไดรฟ์ปัจจุบัน
ตัวอย่าง
หมายเหตุ: ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน CurDir เพื่อส่งกลับเส้นทางปัจจุบัน บน Macintosh ข้อมูลจําเพาะของ ไดรฟ์ ที่กําหนดให้กับ CurDir จะถูกละเว้น ชื่อไดรฟ์เริ่มต้นคือ "HD" และส่วนของชื่อเส้นทางจะถูกคั่นด้วยเครื่องหมายจุดคู่แทนเครื่องหมายแบคสแลช ในทํานองเดียวกัน คุณจะระบุโฟลเดอร์ Macintosh แทน \Windows
' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".
