Recursive Rename File Extensions Function
Code:
Highlight
<%option explicit%> <% dim rootDir, fso set fso = server.CreateObject ("Scripting.Filesystemobject") set rootDir = fso.Getfolder(server.MapPath("./")) listDirectory rootDir set fso = nothing %> <% Function listDirectory(objrootDir) Dim objSubFolder Dim objFile for each objSubFolder in objrootDir.SubFolders if not objSubFolder.name = "_vti_cnf" then response.write "<b>" & objSubFolder.name & "</b>" & vbcrlf response.write "<ul>" & vbcrlf for each objFile in objSubFolder.Files replaceFileExtension(objFile) response.write "<li>" & objFile.name & "<br>" & vbcrlf next listDirectory(objSubFolder) response.write "</ul>" & vbcrlf & vbcrlf end if next end function %> <% function replaceFileExtension(objFile) dim NewFileName select case lcase(right(objFile.Name, 4)) case ".txt" NewFileName = left(objFile.Name, instr(1,objfile.name, ".")-1) & ".asp" objfile.name = NewFileName end select end function %>