Rename Multiple subFolders and exclude other

Kingston 256mb module for dell poweredge...
January 25, 2010 at 01:29:03
Specs: Windows XP
Dears,

i need a VBS to rename multiple subfolders under documents and settings (Profiles) to for example folder X to be renamed to X.old and exclude All user, default user and administrator folders from this renaming.

Thanks,

See More: Rename Multiple subFolders and exclude other

Report •


#1
January 25, 2010 at 08:08:29
I excluded LocalService and NetworkService as well.

With CreateObject("Scripting.FileSystemObject")
  For Each f In .GetFolder("C:\Documents and Settings").SubFolders
    Select Case f.Name
      Case "Administrator" : Case "All Users" : Case "Default User"
      Case "LocalService" : Case "NetworkService"
      Case Else
        f.Name = f.Name & ".old"
    End Select
  Next 'f
End With


Report •

#2
January 25, 2010 at 08:39:04
Thanks Alot for your Help:)

Report •

Related Solutions


Ask Question