Rename File Do Loop Error

[Darkside12]

Hi,

I'm trying to create a do loop that renames files in a folder.

My current code looks like this:

Private Sub Rename_Files_Click()
Dim VPNPath As String
VPNPath = Dir("C:\Temp\*.txt")
 
Do While Len(VPNPath) > 0
 
Name "C:\Temp\" & VPNPath As "C:\Temp\" & Left(VPNPath, 4) & ".tx1"
Loop
End Sub
 

The code works but only for the first file in the folder after which an error message is returned Run-time error '53': file not found

Any thoughts on where I'm going wrong???

[JKing]

Hi,

I'm trying to create a do loop that renames files in a folder.

My current code looks like this:

Private Sub Rename_Files_Click()
Dim VPNPath As String
VPNPath = Dir("C:\Temp\*.txt")
 
Do While Len(VPNPath) > 0
 
Name "C:\Temp\" & VPNPath As "C:\Temp\" & Left(VPNPath, 4) & ".tx1"
Loop
End Sub
 

The code works but only for the first file in the folder after which an error message is returned Run-time error '53': file not found

Any thoughts on where I'm going wrong???

You aren't reseting VPNPath in the loop. So it keeps looking for the first found file which is no longer there because you renamed it.

Add the line as shown at the end of the loop. This should move to the next file and complete your process.

Private Sub Rename_Files_Click()
Dim VPNPath As String
VPNPath = Dir("C:\Temp\*.txt")
 
Do While Len(VPNPath) > 0
 
Name "C:\Temp\" & VPNPath As "C:\Temp\" & Left(VPNPath, 4) & ".tx1"
VPNPath = Dir
Loop
End Sub
 

[Darkside12]

Cheers worked a charm