Rename files based on folder name?

[TM Reich]

I have a folder for all files for each given project. When I get a new project, I copy the folder "Project 001" with the blank files. I then rename the folder "Project 002".

Is there a way to automatically rename each file in the folder with the project number from the foler name and combine that with other info, i.e. "Project 002 Tasks", or "Project 002 Tracking"?

 

[ravishankar]

Hi
Save a new workbook inside project 000 folder with the following codes and run the macro

Sub Reich()
Dim z  As Long, e As Long
Dim f As String
d = InputBox("enter project code")
Application.ScreenUpdating = False
Sheets("Sheet1").Select
Cells(1, 1) = "=cell(""filename"")"
Cells(1, 2) = "=left(A1,find(""["",A1)-1)"
MkDir Cells(1, 2) & d
Cells(2, 1).Select
f = Dir(Cells(1, 2) & "*.xls")
    Do While Len(f) > 0
    ActiveCell.Formula = f
    ActiveCell.Offset(1, 0).Select
    f = Dir()
    Loop
z = Cells(Rows.Count, 1).End(xlUp).Row
    For e = 2 To z
        FileCopy Cells(1, 2) & Cells(e, 1), Cells(1, 2) & d & "\" & d & Cells(e, 1)
    Next e
    Application.ScreenUpdating = True
MsgBox "copying is complete."
End Sub

It creates a folder with new project name and copy all files with added project code
Ravi