关于VB的重复复制

Question

比如我有一个文件,想复制一百次.自动复制成不同的文件名.代码如何写呢

Answer 1

Private Sub Command1_Click()
    For i = 0 To 99
        FileCopy "c:\xx.jpg", "d:\xx" & i & ".jpg"
    Next i
End Sub

Answer 2

Private Sub Command1_Click()
   Dim i&
   For i = 1 To 100
      FileCopy "c:\test.txt", "c:\test" & CStr(i) & ".txt"
   Next i
   MsgBox "OK"
End Sub

Answer 3

哈哈哈 个人写代码习惯性的严谨问题 数值与文字 还是有区分的，只不过是 & 的兼容性太强了.

Answer 4

Dim i
   Dim s As String
   s = Text2.Text
  If Dir("d:\good", vbDirectory) = "" Then MkDir "d:\good"
    
  For i = 1 To s
  FileCopy "InStr(Text3.Text)", "InStr(Text1.Text)" & CStr(i) & ".txt"
  Next i提示文件未找到.啥意思呢

Answer 5

Dim i$,s&
s = Val(Text2.Text)
If Dir("d:\good", vbDirectory) = "" Then MkDir "d:\good"
    
text3.text=app.path & "\test.txt" 'app.path要判断，这里我省略,（也可以不写）
text1.text="d:\good\test"
For i = 1 To s
  FileCopy Text3.Text, Text1.Text & CStr(i) & ".txt"
Next i

Answer 6

Dim i&,s&  '& = Long
s = Val(Text2.Text)
If Dir("d:\good", vbDirectory) = "" Then MkDir "d:\good"
    
text3.text=app.path & "\test.txt" 'app.path要判断，这里我省略,（也可以不写）
text1.text="d:\good\test"
For i = 1 To s
  FileCopy Text3.Text, Text1.Text & CStr(i) & ".txt"
Next i