กระทู้เก่าบอร์ด อ.Yeadram
1,202 6
URL.หัวข้อ /
URL
เปลี่ยนชื่อรูปอัตโนมัติ
สวัสดีครับอาจารย์ TTT
OLD NEW
AAAA-1 BBBB-1
AAAA-2 BBBB-2
AAAA-3 BBBB-3
AAAA-4 BBBB-4
AAAA-5 BBBB-5
AAAA-6 BBBB-6
AAAA-7 BBBB-7
AAAA-8 BBBB-8
AAAA-9 BBBB-9
AAAA-10 BBBB-10
AAAA-11 BBBB-11
AAAA-12 BBBB-12
นู๋มีปัญหาอยู่ว่า นู๋เก็บรูปภาพไว้ใน Folder นับพัน
อยากจะเปลี่ยนชื่อรูปโดยให้อ้างอิงจากตามราง ข้างต้น
พอจะเป็นไปได้หรือไม่ค่ะ
รบกวนเป็นอย่างสูงค่ะ
OLD NEW
AAAA-1 BBBB-1
AAAA-2 BBBB-2
AAAA-3 BBBB-3
AAAA-4 BBBB-4
AAAA-5 BBBB-5
AAAA-6 BBBB-6
AAAA-7 BBBB-7
AAAA-8 BBBB-8
AAAA-9 BBBB-9
AAAA-10 BBBB-10
AAAA-11 BBBB-11
AAAA-12 BBBB-12
นู๋มีปัญหาอยู่ว่า นู๋เก็บรูปภาพไว้ใน Folder นับพัน
อยากจะเปลี่ยนชื่อรูปโดยให้อ้างอิงจากตามราง ข้างต้น
พอจะเป็นไปได้หรือไม่ค่ะ
รบกวนเป็นอย่างสูงค่ะ
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R16033
เรียนคุณ TTT
เปลี่ยนชื่อรูปอัตโนมัติ หมายถึง เปลี่ยนชื่อไฟล์?
เปลี่ยนชื่อไฟล์จ้า
ฟิลด์ OLD คือชื่ออะไร
คือชื่อเก่าจ้า
ฟิลด์ NEW คือชื่ออะไร
คือชือใหม่ที่ต้องการเปลี่ยนจ้า
สมมุติ
OLD ต้องการเปลี่ยนเป็น NEW
AAAA-1 -----> BBBB-1
รบกวนด้วยจร้า
เปลี่ยนชื่อรูปอัตโนมัติ หมายถึง เปลี่ยนชื่อไฟล์?
เปลี่ยนชื่อไฟล์จ้า
ฟิลด์ OLD คือชื่ออะไร
คือชื่อเก่าจ้า
ฟิลด์ NEW คือชื่ออะไร
คือชือใหม่ที่ต้องการเปลี่ยนจ้า
สมมุติ
OLD ต้องการเปลี่ยนเป็น NEW
AAAA-1 -----> BBBB-1
รบกวนด้วยจร้า
3 @R16034
ไฟล์ทั้งหมดเป็นนามสกุล .jpg หรือเปล่าครับ
สำรองข้อมูลและไฟล์เอาไว้ก่อนทำด้วยนะครับ เพราะหากใส่ค่าผิด คุณจะยิงแก้ไขชื่อไฟล์ลำบากมากยิ่งขึ้น
- สมมุติตารางชื่อ Table1
- โฟลเดอร์ที่จัดเก็บภาพอยู่ที่พาธ D:\Pic
- สร้างปุ่มบนฟอร์ม ใส่โค๊ดที่ Event > On Click:
If Msgbox("กรุณายืนยันการเปลี่ยนชื่อไฟล์ทั้งหมด", vbQuestion + vbYesNo + vbDefaultButton2, "คำเตือน") = vbNo Then
Else
Dim rs As DAO.Recordset, Path_Folder As String
Set rs = CurrentDb.OpenRecordset("Table1")
Path_Folder = "D:\Pic\"
rs.MoveFirst
Do Until rs.EOF
If Dir(Path_Folder & rs!OLD & ".jpg", vbNormal) <> "" Then
Name Path_Folder & rs!OLD & ".jpg" As Path_Folder & rs!NEW & ".jpg"
DoEvents
Else
Msgbox "ไม่มีไฟล์ชื่อ " & Path_Folder & rs!OLD & ".jpg"
End If
rs.MoveNext
Loop
Msgbox "Rename Completed"
End If
- แทนค่าพาธ และชื่อตารางในโค๊ดให้ถูกต้องนะครับ เมื่อสั่ง Run แล้วชื่อไฟล์จริงจะเปลี่ยน Undo ไม่ได้นะครับ ระวัง
สำรองข้อมูลและไฟล์เอาไว้ก่อนทำด้วยนะครับ เพราะหากใส่ค่าผิด คุณจะยิงแก้ไขชื่อไฟล์ลำบากมากยิ่งขึ้น
- สมมุติตารางชื่อ Table1
- โฟลเดอร์ที่จัดเก็บภาพอยู่ที่พาธ D:\Pic
- สร้างปุ่มบนฟอร์ม ใส่โค๊ดที่ Event > On Click:
If Msgbox("กรุณายืนยันการเปลี่ยนชื่อไฟล์ทั้งหมด", vbQuestion + vbYesNo + vbDefaultButton2, "คำเตือน") = vbNo Then
Else
Dim rs As DAO.Recordset, Path_Folder As String
Set rs = CurrentDb.OpenRecordset("Table1")
Path_Folder = "D:\Pic\"
rs.MoveFirst
Do Until rs.EOF
If Dir(Path_Folder & rs!OLD & ".jpg", vbNormal) <> "" Then
Name Path_Folder & rs!OLD & ".jpg" As Path_Folder & rs!NEW & ".jpg"
DoEvents
Else
Msgbox "ไม่มีไฟล์ชื่อ " & Path_Folder & rs!OLD & ".jpg"
End If
rs.MoveNext
Loop
Msgbox "Rename Completed"
End If
- แทนค่าพาธ และชื่อตารางในโค๊ดให้ถูกต้องนะครับ เมื่อสั่ง Run แล้วชื่อไฟล์จริงจะเปลี่ยน Undo ไม่ได้นะครับ ระวัง
4 @R16064
ขอบคุณมากค่ะอาจารย์ TTT
อาจารย์ตอบโจทย์ได้ตามความต้องการตลอดเลย
ใช้ได้แล้วค่ะ
แต่ว่าอยากรบกวนอาจารย์อีกแบบจร้า
ถ้าเราต้องการให้ไม่ต้องเช็คว่าเจอหรือไม่เจอ
ได้หรือไม่ค่ะ คือเจอก็เปลี่ยน ไม่เจอก็ไม่ต้องเปลี่ยน
ค่ะ
ตัวนี้จร้า
Msgbox "ไม่มีไฟล์ชื่อ " & Path_Folder & rs!OLD & ".jpg"
อาจารย์ตอบโจทย์ได้ตามความต้องการตลอดเลย
ใช้ได้แล้วค่ะ
แต่ว่าอยากรบกวนอาจารย์อีกแบบจร้า
ถ้าเราต้องการให้ไม่ต้องเช็คว่าเจอหรือไม่เจอ
ได้หรือไม่ค่ะ คือเจอก็เปลี่ยน ไม่เจอก็ไม่ต้องเปลี่ยน
ค่ะ
ตัวนี้จร้า
Msgbox "ไม่มีไฟล์ชื่อ " & Path_Folder & rs!OLD & ".jpg"
5 @R16065
ตัด 2 บรรทัด นี้ออกครับ
Else
Msgbox "ไม่มีไฟล์ชื่อ " & Path_Folder & rs!OLD & ".jpg"
6 @R16067
เรียนอาจารย์ TTT
ได้แล้วค่ะ อาจารย์
ขอให้อาจารย์ร่ำรวย เงินทอง มีความสุข นะค่ะ
ได้แล้วค่ะ อาจารย์
ขอให้อาจารย์ร่ำรวย เงินทอง มีความสุข นะค่ะ
Time: 0.3633s
เปลี่ยนชื่อรูปอัตโนมัติ หมายถึง เปลี่ยนชื่อไฟล์?
ฟิลด์ OLD คือชื่ออะไร
ฟิลด์ NEW คือชื่ออะไร
ขอวิธีคิดด้วย
ปล. ชายหรือหญิงผมก็ตอบให้นะครับ (เอาซักทาง) ถ้าผมมีเวลา และตอบได้ และคำถามดูจะไม่เป็นอภิมหากาพย์จนเกินไป ไปไงครับเงื่อนไขผมเยอะไปไหม๊