VBS 파일명 변경2
strPath = "." Set fso = CreateObject("Scripting.FileSystemObject") Set dir = fso.GetFolder(strPath) For Each d In dir.SubFolders 'If ( IsNumeric(d.name) And d.name="04" ) Then If ( IsNumeric(d.name) ) Then str = "이름변경된 파일" & vbCrLf Set subdir = fso.GetFolder(d.name) For Each sd In subdir.Files If( Mid(sd.name, 1, 2) = d.name ) Then htmlName = Mid(sd.Name, 1, InstrRev(sd.Name,".")-1) htmlNum = Ri..