VB中怎么复制文件夹到指定位置并定时删除？

2025-04-13 11:53:14

推荐回答（4个）

回答1：

Private Sub Command1_Click()
FileCopy "c:\1.txt", "z:\1.txt"
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Time = #12:00:00 PM# Then kill "z:\1.txt"
End Sub

回答2：

没有不可能

回答3：

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Sub Command1_Click()
FileCopy "c:\1.txt", "z:\1.txt"
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Time = #12:00:00 PM# Then DeleteFile "z:\1.txt"
End Sub

回答4：

用Windows系统中的计划任务来实现多方便，写一段批处理就可以。
copy 源文件夹目的文件夹
del 源文件夹
上面两句做成一个BAT文件，然后添加到计划任务中，你想哪一天什么时候定时执行都可以。