关于文件夹复制

Question

在复制过程中，如何用源文件覆盖目标文件。在线等待1

Answer 1

Private Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long       '对文件的操作指令
        pFrom As String     '源文件或路径
        pTo As String       '目的文件或路径
        fFlags As Integer   '操作标志
        fAnyOperationsAborted As Long
        hNameMappings As Long
        lpszProgressTitle As String
End TypePrivate Declare Function SHFileOperation Lib _
        "shell32" _
        (lpFileOp As SHFILEOPSTRUCT) As LongConst FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_MOVE = &H1
Const FO_RENAME = &H4
Const FOF_ALLOWUNDO = &H40Dim DirString As StringPrivate Sub Command1_Click()
    Dim xFile As SHFILEOPSTRUCT
        
    '将b目录中的文件复制到aaa目录下
    xFile.pFrom = "c:\bbb\*.*"
    xFile.pTo = "c:\aaa"
    xFile.fFlags = FOF_ALLOWUNDO
    xFile.wFunc = FO_COPY
    xFile.hwnd = Me.hwnd
    If SHFileOperation(xFile) Then
    End If
end sub

Answer 2

shell "cmd.exe /c copy c:\22.txt d:\ /y"

Answer 3

Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_MOVE = &H1
Const FO_RENAME = &H4
Const FOF_ALLOWUNDO = &H40
Const FOF_NOCONFIRMATION = &H10
Dim DirString As StringPrivate Sub Command1_Click()
    Dim xFile As SHFILEOPSTRUCT
        
    '将Windows目录中的Readme.txt文件复制到Temp目录下
    xFile.pFrom = "c:\bbb\*.*"
    xFile.pTo = "c:\aaa"
    '看这里
    xFile.fFlags = FOF_NOCONFIRMATION
    xFile.wFunc = FO_COPY
    xFile.hwnd = Me.hwnd
    If SHFileOperation(xFile) Then
    End If
end sub