มีหลายคนอยากรู้ว่า เราสามารถที่จะวนลูปในการเข้าถึง โฟรเดอร์ต่างๆ ได้หรือเปล่า เมื่อเราทำงานกับ VBA คำตอบคือ เราสามารถทำได้
แต่ว่าต้องเพิ่ม references เข้าไปใน VBA โดย กดที่แถบ tools > references > microsoft scripting runtime
หลังจากนั้น ให้เข้าไปกำหนด FilesSystemObject เพื่อใฟ้เราเข้าถึง files และfolderได้ มักใช้งานกับ file path ที่เป็นstrin
ทดลองเขียน Code ดังต่อไปนี้
ในส่วนแรก เราต้องทำการกำหนด คุณสมบัติที่จำเป็นต้องใช้ใน sub เสียก่อน คือ กำหนด fso ให้เป็น object ที่สามารถเข้าถึงคุณสมบัติต่างๆได้ แล้วจึงนำมากำหนด คุณสมบัติต่างๆที่ fso
มีมาให้กับ file และfolder ผ่าน method Scripting โดยใช้ Operator “.” ในการเข้าถึง โดยในตัวอย่างนี้จะใช้ ฟังก์ชั่น GetFolder ในการเข้าถึงคุณสมบัติของ Folder
เช่น Name , Files (ที่อยู่ในFolder อีกที) เป็นต้น ฟังก์ชั่นนี้ต้องผ่านค่าพารามิเตอร์ แบบ string นั้นคือ Path ของfolder นั้นเอง
เมื่อทดลอง run program โดยกด F5 หรือกดปุ่มลูกศร จะปรากฏผลดังนี้
เพื่อนๆ สามารถดัดแปลง code ในกรอบสีเขียวได้ตามสะดวก ขึ้นอยู่กับความต้องการของผู้ใช้งานโปรแกรมของแต่ละคน
หมายเหตุ::
หากเราต้องการเข้าถึง subfolder ที่อยู่ในfolderหลัก ให้ใช้คำสั่ง .SubFolders ยกตัวอย่างเช่น
For Each subfol in fd.subFolders
Call Dosomething()
Next
เป็นต้น
ดูเพิ่มเติมในซีรีส์
โฆษณา
- ดาวน์โหลดแอปพลิเคชัน
- © 2024 Blockdit
