You need a filelistbox. And you can use the Name function.
Code:
Name "C:\myfile.txt" As "C:\thafile.txt"
FileListBox code:
Code:
On Error Resume Next
File1.ListIndex = 0
For i = 0 to File1.ListCount
Name File1 As File1 & File1.ListIndex
File1.ListIndex = File1.ListIndex + 1
Next i