คำตอบที่ได้รับเลือกจากเจ้าของกระทู้
ความคิดเห็นที่ 2
ก๊อบไปลงใน Notepad save as เป็น .vbs
เปลี่ยนจาก "C:\TestDateFolder" เป็น โฟลเดอร์ที่ใช้เก็บโฟลเดอร์ทั้งหมด ครับ
[Spoil] คลิกเพื่อดูข้อความที่ซ่อนไว้On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FS = CreateObject("Scripting.FileSystemObject")
Dim fol
Dim path
path = "C:\TestDateFolder"
For Each objFolder In FSO.GetFolder(path).SubFolders
fol = Mid(objFolder.Name, 1, 4) & "-" & Mid(objFolder.Name, 5, 2) & "-" & Mid(objFolder.Name, 7, 2)
FS.MoveFolder objFolder, path & "\" & fol
Next
msgbox("RenameFolder Complete...")
เปลี่ยนจาก "C:\TestDateFolder" เป็น โฟลเดอร์ที่ใช้เก็บโฟลเดอร์ทั้งหมด ครับ
[Spoil] คลิกเพื่อดูข้อความที่ซ่อนไว้On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FS = CreateObject("Scripting.FileSystemObject")
Dim fol
Dim path
path = "C:\TestDateFolder"
For Each objFolder In FSO.GetFolder(path).SubFolders
fol = Mid(objFolder.Name, 1, 4) & "-" & Mid(objFolder.Name, 5, 2) & "-" & Mid(objFolder.Name, 7, 2)
FS.MoveFolder objFolder, path & "\" & fol
Next
msgbox("RenameFolder Complete...")
▼ กำลังโหลดข้อมูล... ▼
แสดงความคิดเห็น
คุณสามารถแสดงความคิดเห็นกับกระทู้นี้ได้ด้วยการเข้าสู่ระบบ
มีวิธีเปลี่ยนชื่อโฟลเดอร์ครั้งละหลายๆโฟลเดอร์มั้ยครับ
เพราะโปรแกรม Rename ส่วนมากจะเป็นการเปลี่ยนชื่อไฟล์มากกว่า
TL;DR: ต้องการเปลี่ยนชื่อโฟลเดอร์ทีละมากๆในคราวเดียว โดยใส่เส้นคั่นได้