同一文件重复多次复制有什么用途？

Private Sub Command1_Click()
Dim i As Integer, j As Integer, ziyu As String        'i 也要声明
cmdg.ShowOpen
ziyu = InputBox("请输入需要复制的次数:", "提示！")    '不要“$”
j = Val(ziyu)                                         '用Val
if j<1 then exit sub                                  '这一句可防止 j< 1 的错误
For i = 1 To j                                        '不要 Step 1
FileCopy cmdg.FileName, "d:\vb\kill\new" & i & ".jpg" '同一文件夹下的文件名不要相同
Next i
MsgBox "复制文件成功"
End Sub

[quote]同一文件重复多次复制有什么用途？[/quote]可以害人。
但会出错。“该文件已经存在。是否要替换？”
哈哈哈哈哈

[quote]同一文件重复多次复制有什么用途？[/quote]
只是试试inputbox功能而已

多谢！