UC知道VB中filecopy函数问题
来源：百度知道 编辑：UC知道 时间：2024/06/05 06:44:06
Sub main()
For i = 1 To 200
FileCopy "d:\1.txt", "C:\Documents and Settings\Administrator\桌面\1.txt"
Next i
End Sub
怎么才能实现复制到桌面上以后1.txt被自动有次序的被重命名?
For i = 1 To 200
FileCopy "d:\1.txt", "C:\Documents and Settings\Administrator\桌面\1.txt"
Next i
End Sub
怎么才能实现复制到桌面上以后1.txt被自动有次序的被重命名?
很简单啊，定义个变量来拼凑目标文件名就好了
Sub main()
dim DestDir, DestName as string
DestDir = "C:\Documents and Settings\Administrator\桌面\"
For i = 1 To 200
DestName = DestDir & i & ".txt"
FileCopy "d:\1.txt", DestName
Next i
End Sub
Private Sub Command1_Click()
Dim DDir, DName, i
DDir = "C:\Documents and Settings\Administrator\桌面\"
Do
i = i + 1
DName = DDir & i & ".txt"
Loop While Dir(DName) <> "" '判断文件是否存在
FileCopy "d:\1.txt", DName
End Sub
无限序号拓展,判断是否重名,有重名文件自动跳过开始下1序号,关闭软件后依然可以按序号重命名