การเชื่อมโยง text file ที่เปลี่ยนชื่อไปเรื่อยๆ

[Un]

1.เราสามารถการเชื่อมโยง text file ที่เปลี่ยนชื่อไปเรื่อยๆ ได้มั้ยครับ
2.เราสามารถเขียนโค๊ตให้เชื่อโยง text file ได้รึป่าวครับ

[สันติสุข]

แต่ละเท็กซ์ไฟล์มีจำนวนฟิลด์/ชื่อฟิลด์/ประเภทข้อมูลเหมือนกันไหม ถ้าเหมือนกันหมด ก็อปปี้เท็กซ์ไฟล์เป็นไฟล์ชั่วคราว(สมมุติชื่อ T.txt) เทเบิลก็ให้ลิงค์ไปยัง T.txt   พอจะเปลี่ยนชื่อ ก็ลบ T.txt แล้วก็อปปี้ไฟล์อื่นมาเป็น T.txt แทน และ Refresh Link ตัวเทเบิลอีกครั้ง ผมว่าจะง่ายกว่า โค้ดก็คือ

Kill "เท็กซ์ไฟล์ชั่วคราว"
Name "เท็กซ์ไฟล์ใหม่", "เท็กซ์ไฟล์ชั่วคราว"
CreateObject("Scripting.filesystemobject").CopyFile "เท็กซ์ไฟล์ใหม่", "เท็กซ์ไฟล์ชั่วคราว"
CurrentDB.TableDefs("ชื่อเทเบิล").RefreshLink

[Un]

โอเคเลย เข้าใจหลักการครับ เดี๋ยวลองดูก่อน
อาจารย์ครับ แล้วจะก็อปรูปจากนามสกุล .jpg จาก ไดว์หนึ่ง ไปอีกไดว์หนึง เขียนโคตยังงัยครับ

[สันติสุข]

โทษที  คำสั่ง Name ใช้สำหรับเปลี่ยนชื่อไฟล์เท่านั้น ถ้าจะก็อปปี้ใหใช้ FileSystemObject.CopyFile "ไดร์ฟต้นทาง:\พาร์ธต้นทาง\......\ชื่อไฟล์ต้นทาง.jpg", "ไดร์ฟปลายทาง:\พาร์ธปลายทาง\.......\ชื่อไฟล์ปลายทาง.jpg"

[Un]

ไม่ได้ครับมัน Error

[สันติสุข]

เปลี่ยนจาก FileSystemObject.CopyFile เป็น CreateObject("Scripting.filesystemobject").CopyFile ครับ

[Un]

สำเร็จแล้วครับ อาจารย์ ขอบพระคุณอีกครั้งครับ

[TTT]

เสริมนิด เป็นทางเลือกนะครับ ถ้าเป็น VBA7 (ต่ำกว่านี้ไม่รู้ว่ามีป่าวนะ) ใช้คำสั่ง FileCopy("พาธชื่อไฟล์ต้นฉบับ", "พาธชื่อไฟล์ปลายทาง") ในการก๊อปปี้ไฟล์แบบง่ายๆ ได้เหมือนกัน
ข้อเสียคือ
1. ไม่มีตัวเลือกก๊อปปี้ทับไฟล์ชื่อซ้ำกันหรือไม่ จะเป็นการทับอย่างเดียว (หากเป็นงานที่ทับไฟล์เดิมอยู่แล้วก็ใช้ได้เลย)
2. ไม่รองรับอักษร Grave Accent เช่น è, à, Juné.jpg อย่างนี้คำสั่งจะไม่พบไฟล์

[Un]

ขอบคุณครับอาจารย์ TTT