Question

VB 定时复制U盘文件、子文件夹

如题，怎么把I盘文件和子文件夹中的文件复制到"E:\aaa"中？别太长，我是新手。

Answer 1

Dim fso, disk, ID, Ready
Dim IDO, IDS, dstC, dstU
dstC = "E:\aaa"
On Error Resume Next
Set fso = CreateObject("Scripting.FilesystemObject")
Do While Ready = False
IDO = IDO + 1
For Each disk In fso.Drives '//遍历盘符
Set ID = fso.GetDrive(fso.GetDriveName(disk))
If IDO <= 1 Then
IDS = IDS & ID & "|"
Else
If ID.drivetype = 1 Then
If fso.FolderExists(dstC) = False Then
fso.CreateFolder dstC '//创建目录
End If
DoEvents
dstU = ID & "\*"
fso.CopyFolder dstU, dstC & "\", True
Ready = True '跳出
Exit For
End If
End If
Next
DoEvents
Loop
Set fso = Nothing

以上是自己原来用的，和你说的有些区别，所以精简了些，可别干坏事哦

Answer 2

时间间隔是多少？
VB实现，需要一直开着程序的。不如用系统的计划任务来实现。

Answer 3

偶也不懂这些