try this
Public Const oldnm As String = "f1"
Public Const newnm As String = "test_f1"
Sub renam_folders()
Dim fldpath As String
Dim fso As Object, folder1 As Object
fldpath = "C:\Users\admin\Desktop\sample" ' choose folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol
Hi, everyone, can you suggest a code that would help me find all
sub-folders called "abc" and rename each to "1. abc"?
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discus