หมายเหตุ
ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า 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".