หมายเหตุ
ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service กําลังทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ ตัวแปร (สตริง) ที่แสดงเส้นทางปัจจุบัน
ไวยากรณ์
CurDir[(ไดรฟ์)]
อาร์กิวเมนต์ไดรฟ์เสริมคือนิพจน์สตริงที่ระบุไดรฟ์ที่มีอยู่ ถ้าไม่ได้ระบุไดรฟ์หรือ ถ้าไดรฟ์ เป็นสตริงที่มีความยาวเป็นศูนย์ ("") 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".