VBA code to add a prefix in all files in a folder

[m_aatif]

I have some files in this directory

C:\Users\m_aatif\Desktop\Test\

I want each file name to have a prefix " Sales" and then contain the existing name. How can I add this prefix to all files?

Regards
Atif

 

[Rick Rothstein]

I have some files in this directory

C:\Users\m_aatif\Desktop\Test\

I want each file name to have a prefix " Sales" and then contain the existing name. How can I add this prefix to all files?

Did you really mean "prefix"? Prefix means "in front of" so if you meant prefix, then you have the space on the wrong side of the word "Sales". Or did you mean "suffix" (meaning "after")? If one of your filenames was "Account.xls", did you want "Sale Account.xls" or "Account Sales.xls"?

 

[m_aatif]

Suppose my file name is at the moment "Forecast europe", I want it to be replaced with "Sales Forecast europe".

 

[Rick Rothstein]

Suppose my file name is at the moment "Forecast europe", I want it to be replaced with "Sales Forecast europe".

Give this macro a try...

Sub AddSalesPrefix()
  Dim Path As String, Filename As String
  Path = "c:\Users\m_aatif\Desktop\Test\"
  Filename = Dir(Path & "*", vbNormal)
  Do While Len(Filename)
    Name Path & Filename As Path & "Sales " & Filename
    Filename = Dir()
  Loop
End Sub

 

[Anne Troy]

Give this macro a try...

Sub AddSalesPrefix()
  Dim Path As String, Filename As String
  Path = "c:\Users\m_aatif\Desktop\Test\"
  Filename = Dir(Path & "*", vbNormal)
  Do While Len(Filename)
    Name Path & Filename As Path & "Sales " & Filename
    Filename = Dir()
  Loop
End Sub

Rick, thanks for the code!

 

[yogeshwadhwani]

I tried the same buy I m getting result like;

sales sales sales sales ... many times and then filename.

 

[yogeshwadhwani]

I tried the same buy I m getting result like;

sales sales sales sales ... many times and then filename.

Pls note that I have over 200 files in a folder

 

[buvanamali]

Give this macro a try...

Sub AddSalesPrefix()
  Dim Path As String, Filename As String
  Path = "c:\Users\m_aatif\Desktop\Test\"
  Filename = Dir(Path & "*", vbNormal)
  Do While Len(Filename)
    Name Path & Filename As Path & "Sales " & Filename
    Filename = Dir()
  Loop
End Sub

Dear Sir
I request you to help me to prefix serial numbers to files in a folder like below:
001. File A
002. File B
003. File C
Regardas

Thanks in advance

Buvanamali