• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 206
  • Last Modified:

Change the folder names to the right format

Hi,

Change all the folders name to the right format.
Each word should start with a Caps.
Change any type of folder names to clear format.
SHARATH to be changed as Sharath
SHarath to be change to Sharath
Sharath reddy to be changed to Sharath Reddy

Any way of doing this for a folder and all sub folders within it.
Can a script or a tool do this
Regards
Sharath
0
bsharath
Asked:
bsharath
  • 2
1 Solution
 
bsharathAuthor Commented:
Thanks for the links but this software was hanging and had problems with it...I found this..
"Ftweak-Case.exe" Which works great....
0
 
imitchieCommented:
be very careful.. some folders are special. you don't want to rename "Documents and Settings" to "Documents And Settings" for example.
BE VERY CAREFUL - create a temp folder and some subfolders to test.

change the last line to where you want to start
ShowSubfolders FSO.GetFolder("C:\temp\mytestfolder")

' modified from asp101.com
Function PCase(strInput)
	Dim iPosition
	Dim iSpace
	Dim strOutput
	iPosition = 1
	Do While InStr(iPosition, strInput, " ", 1) <> 0
		iSpace = InStr(iPosition, strInput, " ", 1)
		strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
		strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
		iPosition = iSpace + 1
	Loop
	strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
	strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
	PCase = strOutput
End Function
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        FSO.MoveFolder Subfolder.Path , PCase(Subfolder.Path)
        ShowSubFolders Subfolder
    Next
End Sub
 
ShowSubfolders FSO.GetFolder("C:\temp\mytestfolder")

Open in new window

0
 
bsharathAuthor Commented:
Thanks i am just changing folders that ae created by me...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now