Chào mừng đến với Diễn Đàn Tin Học VN! Hãy chia sẽ những gì bạn biết, và đưa ra thắc mắc của bạn để được giải đáp.
Đổi tên file hàng loạt bằng notepad
07/03/22, 05:13 am
- Code:
Set objFso = CreateObject("Scripting.FileSystemObject")
Set Folder = objFSO.GetFolder("C:\Users\63927\Pictures\tinhoc_new\tinhoc\wp-content\uploads\2022\03")
For Each File In Folder.Files
sNewFile = File.Name
sNewFile = Replace(sNewFile,"giaitri","tinhoc")
if (sNewFile<>File.Name) then
File.Move(File.ParentFolder+"\"+sNewFile)
end if
Next
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|