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