Solved

Change the folder names to the right format

Posted on 2007-11-21
4
192 Views
Last Modified: 2010-03-05
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
Comment
Question by:bsharath
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
4 Comments
 
LVL 5

Accepted Solution

by:
Basheerpt earned 500 total points
ID: 20332834
0
 
LVL 11

Author Comment

by:bsharath
ID: 20332950
Thanks for the links but this software was hanging and had problems with it...I found this..
"Ftweak-Case.exe" Which works great....
0
 
LVL 25

Expert Comment

by:imitchie
ID: 20332975
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
 
LVL 11

Author Comment

by:bsharath
ID: 20332982
Thanks i am just changing folders that ae created by me...
0

Featured Post

Containers & Docker to Create a Powerful Team

Containers are an incredibly powerful technology that can provide you and/or your engineering team with huge productivity gains. Using containers, you can deploy, back up, replicate, and move apps and their dependencies quickly and easily.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

How to remove superseded packages in windows w60 or w61 installation media (.wim) or online system to prevent unnecessary space. w60 means Windows Vista or Windows Server 2008. w61 means Windows 7 or Windows Server 2008 R2. There are various …
Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
The viewer will learn how to user default arguments when defining functions. This method of defining functions will be contrasted with the non-default-argument of defining functions.
With the advent of Windows 10, Microsoft is pushing a Get Windows 10 icon into the notification area (system tray) of qualifying computers. There are many reasons for wanting to remove this icon. This two-part Experts Exchange video Micro Tutorial s…

696 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question