strt.CopyFolder

[vb_student]

Hello

i have got a command button on a form which used to copy the contents of the folder to another folder, however it is now throwing an error for some reason.

it comes up with the msg "error" because of the messagebox
can you guys tell me how to figure out why is it throwing an error?

Dim strt As New FileSystemObject
 
'        'this actually over writes all files in the currentDirPath directory with those stored under the initialize directory
    Command2.BackColor = RGB(255, 255, 255)
    Command2.Refresh
    On Error GoTo Error:
    'Call strt.CopyFolder(WiMAXDoORsrootdir & "\Initialize", currentDirPath, True)
    Call strt.CopyFolder("C:\WiMAXDoORs\Projects\Initialize", "C:\WiMAXDoORs\Projects\SampleProject-2", True)
    MsgBox "no error"
 
Error:
    Command2.BackColor = &H8000000F
    MsgBox "error"
    Command2.Refresh

i removed the error handler and it says

Run-time error '-2147023672 (800704c8)':
Method 'CopyFolder' of object 'IFileSystem3' failed

and it comes up with end, debug, help

[RhinoBull]

Frist you need Exit Sub before the Error: label or error handler will get executed every time you run your procedure:

MsgBox "no error"
 
    [b]Exit Sub[/b]
 
Error:
    Command2.BackColor = &H8000000F
    MsgBox "error"
    Command2.Refresh

[leinad31]

If destination is an existing file, an error occurs.

[vb_student]

i thought the "true" variable took care of the destination file

i looked up the VB reference and it turned up

object.CopyFolder source, destination[, overwrite]

[leinad31]

Yes, but in the case there's a file that has the same name (has no extension) then it can't create a folder there. For all other cases, the overwrite parameter would have taken care of it.

[brucevde]

This error may occur if an existing file in the destination folder is open by another application.

[RhinoBull]

Here is what I use to copy folder(s):

Option Explicit
 
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 Type
 
Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_SILENT = &H4
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_WANTMAPPINGHANDLE = &H20
Private Const FOF_CREATEPROGRESSDLG = &H0
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_FILESONLY = &H80
Private Const FOF_SIMPLEPROGRESS = &H100
Private Const FOF_NOCONFIRMMKDIR = &H200
 
Private Const FO_MOVE = 1
Private Const FO_COPY = 2
Private Const FO_DELETE = 3
Private Const FO_RENAME = 4
 
Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long
    
Public Function CopyFolder(ByVal strSource As String, ByVal strDest As String) As Boolean
'=========================================================================================
Dim varFOS As SHFILEOPSTRUCT
    With varFOS
        .fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOCONFIRMMKDIR
        .wFunc = FO_COPY
        .pFrom = strSource
        .pTo = strDest
    End With
    Call SHFileOperation(varFOS)
    CopyFolder = (varFOS.fAnyOperationsAborted = 0)
End Function
 
Private Sub Command1_Click()
    CopyFolder "c:\temp\test", "c:\temp\test2"
End Sub

[leinad31]

If you decided to do the copy again... so the folder and files are already existing from the previous copy. And during the 2nd copy, a file in the folder was opened by another app.

[vb_student]

leinad31 did not quite understand what you meant by

es, but in the case there's a file that has the same name (has no extension) then it can't create a folder there. For all other cases, the overwrite parameter would have taken care of it.

you mean if there is a file with the name as the containing folder?

brucevde, you mean if i am looking at the file in windows explorer i will get the error?

is there any way (error code) which will tell me why the error occured?

rhino, basically i have an initialise folder which contains inital settings in files, say i have fooinitialisefolder1 which has foo1.xls, foo2.xls, foo3.xls
and then i have a bunch of folders which the users can modify

e.g. i have a destination folder foodetfolder with the files foo1.xls, foo2.xls, foo3.xls (however foo1.xls, foo2.xls & foo3.xls have slightly different contents then the files in fooinitialisefolder)

now i have this initialise button which causes the overwriting or replacement of the foo1.xls, foo2.xls and foo3.xls files in the foodestfolder with the foo1.xls, foo2.xls & foo3.xls in the fooinitialisefolder

[leinad31]

I'll tackle it from another direction... if you can have folders with extensions then you can have files with no extension. For a given name, either its a directory or a file it cant be both.

In the attached pic I renamed a folder to have an extension txt. So if yuo were doing a folder copy but there was already a file using the same name as the folder then an error will occur. That could be one source of error, brucevd pointed out another possible cause of the error.

[vb_student]

so you mean to say that say if the containing folder is foofoo and a contained file is foofoo.txt then the error will occur, correct?

if i have the folder open in windows explorer, could that cause a problem.

is there any way one can find the cause of the error by looking at some error code?

[leinad31]

No....

Call strt.CopyFolder("C:\WiMAXDoORs\Projects\Initialize", "C:\WiMAXDoORs\Projects\SampleProject-2", True)

If SampleProject-2 already exists in destination and is a file then an error will occur
If SampleProject-2 already exists in destination and is a folder then it will overwrite the folder and it's content
If while overwriting the content of SampleProject-2 it encounters a file that is being USED by another application (such as an open word document) then it can't overwrite that file and an error will occur

Having a folder open in windows explorer will not cause the error. It's having an open FILE that will cause an error.

[vb_student]

thanks for the reply, then in that case i probably have an open file in the detination folder.

my source and destination folders both contain excel files, is there any way of checking if the destination foder contains an open file(any of the excel files is open?)?

none of myfies are open in MS excel, the copyfolder seems to be a temperamental function, sometimes it works,sometimes it does not. i have also checked in the task manager there is no instance of MS Excel running