How to Copy an Entire Directory in VB6?

原创于 2005-08-27 00:35:00 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #string #c

博客给出了一段VB代码，定义了一个名为Copy的子程序，用于将指定目录下的所有文件拷贝到另一个位置。代码中对源路径和目标路径进行处理，通过循环遍历源目录下的文件并使用FileCopy函数进行拷贝。

Sub Copy(ByVal SourcePath As String, ByVal DestinationPath As String)
    '拷贝指定目录下所有文件到另一位置
    'by VBDN 2005-8-26 http://blog.youkuaiyun.com/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