對不起，問個笨問題
如果我要把e槽中的6個*.txt檔換成*.ct檔(1.txt改成1.ct，2.txt改成2.ct，3.txt改成3.ct，.....，6.txt改成6.ct， )
下面的程式為什麼不能RUN，要怎樣改比較簡單
Dim OldName, NewName
Dim j As Integer
----------------------------------------------
Private Sub Command1_Click()
For j = 1 To 6
OldName = "e:\j.txt"
NewName = "e:\j.ct"
Name OldName As NewName
Next j
End Sub