Sub rename_file()
Dim OldName, NewName
clearfilepath
SearchFile
Sheets("FilePath").Select
Range("A65536").Select
ro1 = Selection.End(xlUp).Row
For i = 2 To ro1
OldName = Cells(i, 1).Value '"D:\Documents and Settings\XXXXXX\Devlopment\2010-3-30\chr0101.591"
NewName = OldName & ".csv" ' Define file names.
Name OldName As NewName ' Rename file.
Next i
MsgBox "Its done !!"
End Sub
Function SearchFile()
Set fs = Application.FileSearch
With fs
'‘this code automatically searches for files in desktop – Source File folder
.LookIn = Environ("userprofile") & Application.PathSeparator & "Desktop" & Application.PathSeparator & "Source File" & Application.PathSeparator
.FileType = msoFileTypeAllFiles
If .Execute > 0 Then
Sheets("FilePath").Select
For i = 1 To .FoundFiles.Count
Range("A" & (i + 1)).Value = .FoundFiles(i)
Next i
Else
'MsgBox "There were no Binder files found."
End If
End With
End Function
Function clearfilepath()
Sheets("FilePath").Select
Range("A2:A65536").Select
Selection.ClearContents
End Function
