用FSO复制文件夹出现拒绝的权限

Question

我用FSO复制文件夹，如果目标路经没有该文件夹可以正常复制，但要是已经存在了该文件夹就会出现拒绝的权限，请问是什么问题啊？
程序代码：
Dim fsocopy As New FileSystemObject
Dim folder1 As FolderPrivate Sub Command1_Click()
 
 fsocopy.CopyFolder "E:\example\1", "e:\"
End Sub

Answer 1

这个问题已经解决，是源文件夹中存在只读文件。现在还有一个问题救是怎么样让他在复制的时候出来想windows那样复制文件的进度条

Answer 2

既然你用了FSO的话，进度条可能还得自己做，如果要弹出Windows复制进度条可用SHFileOperation 处理如下：_________________________________________________________________________________
Private Const FO_COPY = &H1
Private Const FO_DELETE = &H3
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SILENT = &H4
Private Const FOF_NOERRORUI = &H400
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
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 '  only used if FOF_SIMPLEPROGRESS
End TypePublic Function CopyFile(ByVal sSourceFile As String,ByVal sDestFile As String) As Boolean
    Dim udtPath As SHFILEOPSTRUCT
    udtPath.hWnd = 0
    udtPath.wFunc = FO_COPY
    udtPath.pFrom = sSourceFile
    udtPath.pTo = sDestFile
    udtPath.fFlags = FOF_NOCONFIRMATION
    CopyFile = Not CBool(SHFileOperation(udtPath))
End Function

Answer 3

http://search.csdn.net/Expert/topic/678/678068.xml?temp=.1016657

Answer 4

你进度条做的是模态窗体吧？模态窗体特点是关闭后才能进行下一步操作使用非模态的，即form1.Show vbModeless.