[RESOLVED] Automatically copy

[Nightwalker83]

Hi,

Is it possible to modify this code so that is will automatically either copy the file to the location or keep both files depending on whether the file exists or not?

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 Long ' only used if FOF_SIMPLEPROGRESS, sets dialog title
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
' Available Operations
Private Const FO_COPY = &H2 ' Copy File/Folder
Private Const FO_DELETE = &H3  ' Delete File/Folder
Private Const FO_MOVE = &H1  ' Move File/Folder
Private Const FO_RENAME = &H4  ' Rename File/Folder
' Flags
Private Const FOF_ALLOWUNDO = &H40  ' Allow to undo rename, delete ie sends to recycle bin
Private Const FOF_FILESONLY = &H80  ' Only allow files
Private Const FOF_NOCONFIRMATION = &H10  ' No File Delete or Overwrite Confirmation Dialog
Private Const FOF_SILENT = &H4  ' No copy/move dialog
Private Const FOF_SIMPLEPROGRESS = &H100  ' Does not display file names
 
Public Sub VBCopyFolder(ByRef strSource As String, ByRef strTarget As String)
 
    Dim op As SHFILEOPSTRUCT
    With op
        .wFunc = FO_COPY ' Set function
        .pTo = strTarget  ' Set new path
        .pFrom = strSource ' Set current path
        .fFlags = FOF_SIMPLEPROGRESS Or FOF_NOCONFIRMATION And FOF_FILESONLY
    End With
    ' Perform operation
    SHFileOperation op
 
End Sub

Usage:

VBCopyFolder fullpath & "\*", d

Such as the dialog asks the user whether or not they want to override an existing file or keep both files. Is it possible to do that automatically without the user interaction?

Thanks,


Nightwalker

[Nightwalker83]

Never mind, Randy Birch's code has saved me once again! Here it is.

[Jagjit]

Hi

I have written below code but it gives me this error , 'Unknown Error 70 " Permission denied

FileCopy filename, dfolder

dfolder = "\\comp1\Shared Folder\"

Shared Folder has permissions of Full Control.

Thanks

[DataMiser]

You have to specify the target filename

[Jagjit]

Hi Miser

What i need to change

filename = "e:\" & "abx.xls"
dfolder = "\\comp1\Shared Folder\"

filecopy filename,dfolder

Thanks

[Jagjit]

Hi

Secondly i want if file exists in Target Folder it should overwrite

Thanks

[DataMiser]

As I said you need to specify the target filename. The code you showed tells it where to put the file but does not tell it what name to use.

filecopy source, target

you can check to see if the file exists before you try to copy and use the kill statement to remove the existing file and then copy or you can try to copy and trap the error that will occur if the file already exists and then remove the existing file and retry the copy or you can use another method to copy the file.

[Nightwalker83]

Hi

Secondly i want if file exists in Target Folder it should overwrite

Thanks

You need to add

Private Const FOF_RENAMEONCOLLISION As Long = &H8

under where it has "
Available Operations" in the first post and change the flag to

.fFlags = FOF_SIMPLEPROGRESS Or FOF_NOCONFIRMATION Or FOF_FILESONLY Or 
FOF_RENAMEONCOLLISION

[DataMiser]

That would be fine if he was using the API but it looks like he is using the FileCopy function within VB so that would not apply.

[Nightwalker83]

That would be fine if he was using the API but it looks like he is using the FileCopy function within VB so that would not apply.

Well, if he is FileCopy there was no need for him to reply to this thread.

[DataMiser]

Agreed, He should have started his own thread or better still looked at the example in the online help.

[Nightwalker83]

Agreed, He should have started his own thread or better still looked at the example in the online help.

He did started his own thread that is where I linked to this thread because it wasn't clear what he was planning to do! I gave him the above code as an
alternative to the FileCopy method in case he want to use rename, etc later on.