Do Loop for renaming files in folder (1 Viewer)

Hi,
I have to rename files in a folder in a way that there is an X_ added in front of the name of the file. I have managed it with this code:

Private Sub Command3_Click()
Path = "C:"
file = Dir(Path & "*.csv")
Do While file <> ""
Oldname = file
newname = Path & "X_" & Oldname
Name Path & Oldname As newname
file = Dir
Loop
ReplaceWhat = "X_X_"
ReplaceWith = "X_"
vPath = "C:"
vFile = Dir(vPath & "*.csv")
Do While vFile <> ""
Name vPath & vFile As vPath & Replace(vFile, ReplaceWhat, ReplaceWith)
vFile = Dir
Loop

End Sub

So this works in a way that the first file has the X_ two times and that is why the replacement needs to applied. But is not there any better solution? And why the first loop runs one more extra time for the first file?
thank you
Andrew

it is doing double loop
because once you renamed
the file and saved, it is
again read. since we don't
know which file is being
get by Dir() command, whether
sorted by name, date, etc.

the remedy is to save first all
the files that have been processed
by the Dir command to an Array.
then later rename them all:

d

Thank you so much. I will get it rewritten

Andrew

you should also Exclude those
.csv's that you've already
changed the name (added prefix X_)
before.

I have tried it but it does not work. At the name command line it says file is not found.

You add the Path to file:

While I <> 0
Name Path & arrFiles(I) As Path & "X_" & arrFiles(I)
I=i-1
Wend