如何复制文件夹中的内容？（期限在三天之内）

[hongsongboy]

文件夹中包括子目录，解决问题后再加200。
请写出详细的代码。

[litsnake1]

http://www.mvps.org/vbnet/index.html?code/fileapi/filebackup.htm

[Cooly]

Private Sub Command1_Click()
Dim fso As Object
Dim SourcePath, TargetPath As String
SourcePath = "C:\Test\"
TargetPath = "D:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(TargetPath) Then
fso.CopyFolder SourcePath & "*.*", TargetPath
fso.CopyFile SourcePath & "*.*", TargetPath
Else
fso.CreateFolder (TargetPath)
fso.CopyFolder SourcePath & "*.*", TargetPath
fso.CopyFile SourcePath & "*.*", TargetPath
End If
Set fso = Nothing
MsgBox "完成"
End Sub

[Cooly]

这样的问题需要300分？

分也太好挣了吧~~~~~

[cn唐三藏]

Cooly(Lazy) 哪有这种角本的资料学学，我也想看看，好多功能用api实现麻烦，但用这个
挺好用的