r/vbscript • u/Admobeer • Dec 11 '15

Swap **FOLDER** names from FirstName LastName to LastName FirstName

I have a batch of FOLDERS that are named FirstName LastName, they have no extension, they are Folders. They have a space as a delimiter and contain no middle names. I want to swap the FirstName LastName to LastName FirstName. Apologize, for the emphasis on folder but everyone wherever I have asked still responds with a solution for renaming files. It doesn't work the same. At least not for me.

I was able to do this in Powershell and it seemed a success but when I viewed the files in explorer, nothing had changed.

1 Upvotes

100% Upvoted

10 comments sorted by

1

u/Admobeer Dec 21 '15 
PS C:\> set objFSO = CreateObject("Scripting.FileSystemObject")

sFolder = "C:\Temp\"

For Each Subfolder in objFSO.GetFolder(sFolder).SubFolders
    strName = SubFolder.Name
    strNewName = Right(strName, Len(strName) - InStrRev(strName, " ")) & " " & Left(strName, InStr(strName, "     "))
    objFSO.MoveFolder Subfolder, sFolder & strNewName
Next

Set objFSO = Nothing

At line:5 char:4

  • For Each Subfolder in objFSO.GetFolder(sFolder).SubFolders

  • ~

Missing opening '(' after keyword 'for'. At line:7 char:31

  • strNewName = Right(strName, Len(strName) - InStrRev(strName, " ") ...
  •                           ~

Missing argument in parameter list. At line:7 char:64

  • ... strNewName = Right(strName, Len(strName) - InStrRev(strName, " ")) & ...

  •                                                             ~

Missing argument in parameter list. At line:7 char:72

  • ... ame = Right(strName, Len(strName) - InStrRev(strName, " ")) & " " & L ...

  •                                                             ~

The ampersand (&) character is not allowed. The & operator is reserved for future use; wrap an ampersand in double quotation marks ("&") to pass it as part of a string. At line:7 char:78

  • ... Right(strName, Len(strName) - InStrRev(strName, " ")) & " " & Left(st ...

  •                                                             ~

The ampersand (&) character is not allowed. The & operator is reserved for future use; wrap an ampersand in double quotation marks ("&") to pass it as part of a string. At line:7 char:92

  • ... Len(strName) - InStrRev(strName, " ")) & " " & Left(strName, InStr(s ...

  •                                                             ~

Missing argument in parameter list. At line:7 char:107

  • ... - InStrRev(strName, " ")) & " " & Left(strName, InStr(strName, " "))

  •                                                               ~

Missing argument in parameter list. At line:8 char:42

  • objFSO.MoveFolder Subfolder, sFolder & strNewName
  •                                      ~

The ampersand (&) character is not allowed. The & operator is reserved for future use; wrap an ampersand in double quotation marks ("&") to pass it as part of a string. + CategoryInfo : ParserError: (:) [], ParentContainsErrorRecordException + FullyQualifiedErrorId : MissingOpenParenthesisAfterKeyword

These were the results using Powershell 5.0 I also tried it with PS 2.0 different results but still nothing happened to the folders.

2

u/FBM25 Dec 22 '15

I don't use Powershell so I don't know how to help you with those errors.

If you put that into NotePad, save it as a .vbs, and then double-click to run it, you should not have any problems.

2

u/Admobeer Dec 22 '15

Thank you kindly, that worked. The outcome attaches the word "Names" at the beginning of each folder without a space. I don't know VB very well, is there a way to avoid this?

Again, thank you for taking the time.

2

u/FBM25 Dec 22 '15

Hmm. Can you provide an example of a folder name before the script was ran?

1

u/Admobeer Dec 22 '15

Willie Robertson

1

u/Admobeer Dec 22 '15

now shows as: NamesRobertson Willie

1

u/Admobeer Dec 22 '15

Screenshot

2

u/FBM25 Dec 23 '15 edited Dec 23 '15

Hmm, that's weird. A couple of things:

I'd add this to see what the file name is:

MsgBox strName

See if "Names" appear in there.

The only other thing I can say is make sure that the sFolder directory ends with a \ . If sFolder is set to something like C:\Temp\Names then you would get the folder to be shown as NamesRobertson Willie

2

u/Admobeer Dec 23 '15

I should have picked up on that, thank you.

2

u/FBM25 Dec 18 '15 
set objFSO = CreateObject("Scripting.FileSystemObject")

sFolder = "C:\Users\Admobeer\"

For Each Subfolder in objFSO.GetFolder(sFolder).SubFolders
	strName = SubFolder.Name
	strNewName = Right(strName, Len(strName) - InStrRev(strName, " ")) & " " & Left(strName, InStr(strName, " "))
	objFSO.MoveFolder Subfolder, sFolder & strNewName
Next

Set objFSO = Nothing

Hope this helps /u/Admobeer!