Question

vb 文件的复制重命名

D盘下面有50个文件夹
文件夹 a1-a50
每个文件夹下面有一个1.txt文件和一个b文件夹
b文件夹里面有一个2.txt文件
目的：将每个文件夹里面的1.txt复制到该文件夹下b文件夹里面，重命名覆盖掉2.txt
用VB6.0做一个这样的小程序，应该怎么做，应该怎么弄
每个1.txt 内容不同

每个2.txt 内容也不同

Answer 1

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 50
FileCopy "d:\a" & i & "\1.txt", "d:\a" & i & "\b\1.txt"
Kill "d:\a" & i & "\b\2.txt"
Next i
End Sub

Answer 2

怎么个情况？