How to Copy an Entire Directory in VB6?

Sub Copy(ByVal SourcePath As String, ByVal DestinationPath As String)
'拷贝指定目录下所有文件到另一位置
'by VBDN 2005-8-26 http://blog.csdn.net/vbdn/
'注意：SourcePath,DestinationPath这两个目录一定要存在，否则会出错
'使用举例： Copy "c:/temp", "c:/a" 将会把目录c:/temp下所有文件拷贝到c:/a下
Dim sFile As String
SourcePath = Replace(SourcePath & "/", "//", "/")
DestinationPath = Replace(DestinationPath & "/", "//", "/")
sFile = Dir(SourcePath, vbNormal Or vbHidden Or vbArchive Or vbReadOnly)
Do While Len(sFile) > 0
Debug.Print SourcePath & sFile, DestinationPath & sFile
FileCopy SourcePath & sFile, DestinationPath & sFile
sFile = Dir '下一个文件
Loop
End Sub