发布于 2011-09-16 09:10:58
7楼
Dim fso1
Set fso1 = CreateObject("FileCtl.FileSystem") ' 建立FileSystem对象
If fso1.Dir("\Storage Card USB\Log_data.csv") <> "" Then
fso1.FileCopy "\Storage Card MMC\Log_data.csv", "\Storage Card USB\Log_data.csv"
End If
Set fso1 = Nothing
建立N个这个过程,就可以实现拷贝N个文件!