Question

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

VB中怎么复制文件夹到指定位置并定时删除？需要这么做?
可能的话加我好友联系下 370 288087 是复制文件夹 不是复制文件

Answer 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

Answer 2

没有不可能

Answer 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

Answer 4

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