Shell "XCopy ""D\Program Files\AlbumKingJR\database\"" F:\Data\ /E /Y"

'一个示例.复制文件夹

Option Explicit

Private Sub Command1_Click()
  CopyDir "D:\vbCool", "D:\fvf", "*.*"  '将D:\VBCool 复制至 D:\fvf  复制 *.*(所有文件)
  '如果有子文件夹,则不能复制子文件夹.
  '你可以再改一下.让其更完美.
End Sub


Private Function CopyDir(ByVal SourcePath As String, ByVal DestinationPath As String, ByVal Filet As String)
    Dim FileName As String
    
    If Dir(SourcePath, vbDirectory) = "" Then
       '要复制的文件夹未有找到
       Exit Function
    Else
       If Dir(DestinationPath, vbDirectory) = "" Then
          MkDir DestinationPath  '要复制的位置的文件夹未有，则新建立
       End If
          
          FileName = Dir(SourcePath & "\" & Filet) '编历所有文件
           
          While Len(FileName) > 0
            FileCopy SourcePath & "\" & FileName, DestinationPath & "\" & FileName
            FileName = Dir
          Wend
       
    End If
    
End Function