ข้ามไปที่เนื้อหาหลัก
การสนับสนุน
ลงชื่อเข้าใช้

ฟังก์ชัน CurDir

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

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ขยายทักษะ Office ของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×