หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service เรียกใช้ในโหมด Sandbox ซึ่งป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย ดูข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ ตัวแปร (สตริง) ที่แสดงเส้นทางปัจจุบัน
ไวยากรณ์
CurDir[(ไดรฟ์)]
ไดรฟ์ เพิ่มเติมอาร์กิวเมนต์ เป็น นิพจน์สตริง ที่ระบุไดรฟ์ที่มีอยู่ ถ้าไม่มีการระบุไดรฟ์หรือถ้า ไดรฟ์ เป็นสตริงที่มีความยาวเป็นศูนย์ ("") CurDir จะส่งกลับเส้นทางของไดรฟ์ปัจจุบัน บน Macintosh CurDir จะละเว้น ไดรฟ์ ที่ระบุและส่งกลับเส้นทางของไดรฟ์ปัจจุบัน
ตัวอย่าง
หมายเหตุ: ตัวอย่างที่ตามมาจะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) For more information about working with VBA, select Developer Reference in the drop-down list next to Search and enter one or more terms in the search box.
ตัวอย่างนี้ใช้ฟังก์ชัน 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".
