Recurse and Rename - Files Source Code in ASP

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

1475 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » ASP Home » Files Home » Recurse and Rename

A D V E R T I S E M E N T

Title	Recurse and Rename
Author	Jeremy Nevill
Author Email	jeremy [at] nevill.co.uk
Description	Recurses down a directory tree and renames files
Category	ASP » Files
Hits	380190
Code	Select and Copy the Code
<%@ Language=VBScript %> <% Option Explicit '====================================================================================== 'Script: RecurseAndRename.asp 'Version: 1.1 'Function: Recurses down a directory tree and renames ' any files in the directories that have blanks in their filename. ' ' ### ' ### MAKE SURE TO READ THE INSTRUCTIONS BELOW BEFORE RUNNING THIS SCRIPT ' ### ' 'Author: Jeremy Nevill ' [email protected], October 2000 'Website: http://www.lisys.com - ASP/SQL/XML Development, Scripts and Tools 'Copyright: Copyright � 2000 Lateral Information Systems Ltd, All Rights Reserved ' 'License: RecurseAndRename.asp may be used and modified free of charge by anyone ' so long as this copyright notice and the comments above remain intact. ' By using this code you agree to indemnify Lateral Information Systems Ltd ' from any liability that might arise from it's use. ' Selling the code for this program without prior written consent is ' expressly forbidden. ' Obtain permission before redistributing this software over the Internet or ' in any other medium. In all cases copyright and header must remain intact 'Last Upd: 10/01/01 Added safety bEnabled variable, also made script rename in start dir. '======================================================================================= ' ' INSTRUCTIONS - 10/01/01 ' ======================= ' This script renames files, as a couple of people have run it and had problems ' I have modified the script to require the user to modify the bEnabled ' variable to true for renaming to actually take place. (Go to Line 42 to enable this script) Dim bEnabled Dim fso 'as file system object Dim nTotalFilesRenamed 'as integer bEnabled=False '** Set to false the script will not rename files, change this to true for renaming to take place. Server.ScriptTimeout=120 'Set the page timeout to 2 mins Const sStartDirectory="c: emp" '* This is the starting directory 'Be carefull where you start as this 'script renames any file under this dir 'that contain blanks. * 'Setup the file system object Set fso = Server.CreateObject("Scripting.FileSystemObject") %> <HTML> <HEAD> <title>Recurse And Rename (http://www.lisys.com)</title> <style> Body { background-color: #FFFFFF; color: #000000; font-family: Verdana, Arial, Helvetica, sans-serif, "MS sans serif"; } TD { background-color: #FFFFFF; color: #000000; font-family: Verdana, Arial, Helvetica, sans-serif, "MS sans serif"; font-size: 70% } .TableTitle { background-color: #FFFFCE; } .Summary { background-color: #FFCE9C; } .Rename { background-color: #FFFF9C; } </style> </HEAD> <BODY> <table width="60%" border="1" align="center" cellspacing="0" cellpadding="2"> <tr> <td Class="TableTitle"><b>Recurse And Rename - Script from <a href="http://www.lisys.com">lisys.com</a></b><br> <i>Start Directory: <%=sStartDirectory %></i></td> </tr> <% If bEnabled=False Then Response.Write "<tr><td class=""TableTitle""><b>This script is disabled, please read the instructions (only a couple of lines) to enable it!</b></td></tr>" & vbCrLf End If 'Start with current folder Response.Write "<tr><td>" & sStartDirectory & "</td></tr>" & vbCrLf Call RenameFilesStripBlanks(sStartDirectory) 'Call the RecurseFolder function to recurse down from the start directory. Call RecurseFolder(sStartDirectory, fso) %> <tr> <td Class="TableTitle">Total Files Renamed: <%=nTotalFilesRenamed %></i></td> </tr> </table> </BODY> </HTML> <% Sub RecurseFolder(sPath, fso) '=========================================================== 'Page: RecurseFolder(sPath, fso) 'Function: Recurses down folders from sPath calling the ' function to rename files with blanks '=========================================================== Dim fFolder, fSubFolders, fSubFolder Set fFolder = fso.GetFolder(sPath) Set fSubFolders = fFolder.SubFolders 'Now recurse for each subfolder in the sPath folder... For Each fSubFolder In fSubFolders Response.Write "<tr><td>" & sPath & "" & fSubFolder.name & "</td></tr>" & vbCrLf 'Rename all files in this directory where filename contains blanks RenameFilesStripBlanks(sPath & "" & fSubFolder.name) '* Call self to recurse down folders Call RecurseFolder(sPath & "" & fSubFolder.name, fso) Next End Sub Sub RenameFilesStripBlanks(sPath) '=========================================================== 'Page: RenameFilesStripBlanks(sPath) 'Function: Renames all files in sPath directory where ' file contains a blank space - remove this space '=========================================================== Dim nFilesRenamed, drive, folder, filelist, file, sNewFile nFilesRenamed=0 Set drive = Server.CreateObject("Scripting.FileSystemObject") Set folder = drive.GetFolder(sPath) Set filelist = folder.files For Each file In filelist sNewFile=Replace(file.name," ","") If (sNewFile<>file.name And bEnabled=True) Then Response.Write "<tr><td class=""Rename"">" & "Rename:" & file.name & " to " & sNewFile & "</td></tr>" 'If the new filename does not exist then change file, else flag to user If Not(fso.FileExists(sPath & "" & sNewFile)) Then 'Rename the file file.name = sNewFile Else Response.Write "<tr><td class=""Rename"">" & "Renamed File Exists:" & file.name & " to " & sNewFile & "</td></tr>" End If 'Increment the files renamed counter nFilesRenamed=nFilesRenamed + 1 End If Next 'Inform user of number of files renamed in current directory If nFilesRenamed<>0 Then Response.Write "<tr><td class=""Summary"">" & nFilesRenamed & " Renamed" & "</td></tr>" & vbCrLf End If 'Increment the total files renamed counter nTotalFilesRenamed=nTotalFilesRenamed + nFilesRenamed End Sub %>

Related Source Codes

Script Name Author

�� VyomWorld

Resistor color code reader A.Chermarajan.

Telephone Directory dhivya

card swapping game (Mini Project) nityanand

simple hangman-pascalsource Seabert

college dirtectory (Mini Project) msridhar

Poll Application John van Meter

ASP Daily Hit Counter. Tejaskumar Gandhi

To avoid null in asp environment using sql Sami

Maklumbalas webmaster

poll John van Meter

EasyASP Template Engine. TjoekBezoer

Basic Calculator using HTML & Javascript. Patrick M. D Souza

What servers support ASP ? VyomWorld

What is ASP? VyomWorld

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.