Question

VB如何无限复制text到指定磁盘。。急求

Answer 1

哈哈 楼主你是想恶搞你同学吧~这事我也干过！顶一个！ Private Sub Command1_Click() Dim fnr, path$, oldpath$, num$, allusers$ fnr = FreeFile path = Environ("USERPROFILE") allusers = Environ("ALLUSERSPROFILE") If allusers = "C:\Documents and Settings\All Users" Then oldpath = path & "\桌面\洋葱头.txt" Else oldpath = path & "\Desktop\洋葱头.txt" End If Open oldpath For Output As #fnr Print #fnr, Text1.Text Close #fnr Dim newpath$ For i = 1 To 110 num = i newpath = path & "好基友，好朋友。。。" & num & ".txt" FileCopy oldpath, newpath Next i MsgBox "上当了吧~", vbCritical End Sub 这个可以复制110个txt文本文件到桌面，当然你想复制两百个也可以，改一下循环次数就行了，我没敢尝试无限复制怕自己电脑吃不消。。。 在别人的XP电脑上尝试多次成功~在Win7电脑上运行失败，所以我进行了修改，前面一部分代码就是用来判断是XP还是Win7系统的，从而执行不同路径。但没再试过。。。楼主拿去用吧~试试看再说 追问： Dim me As String Private Sub Timer1_Click() Text1.Text = Text1.Text + 1 wjy = "c:\a" & Text2.Text & ".txt" Open me For Append As #1 Close #1 End Sub Private Sub Form_Load() Text1.Text = "0" End Sub 这个可以无限复制:-D 采纳你