Move then overwrite existing file

[DougRobertson]

Okay, I'm skunked!

I've tried the following code to MOVE an Excel file, and it works well:

Name "C:\FILE.xlsx" As "C:\FOLDER 1\FILE.xlsx"

However if a file by that name already exist there, I get an error. If I precede that code with:

Application.DisplayAlerts = False

it still won't let me OVERWRITE the old file.

Thanks for the help,

~ Doug

 

[Domenic]

Try...

[font=Verdana]    [color=darkblue]Dim[/color] OldPathName [color=darkblue]As[/color] [color=darkblue]String[/color]
    [color=darkblue]Dim[/color] NewPathName [color=darkblue]As[/color] [color=darkblue]String[/color]
    
    OldPathName = "C:\FILE.xlsx"
    
    NewPathName = "C:\FOLDER 1\FILE.xlsx"
    
    [color=darkblue]If[/color] Dir(NewPathName) <> "" [color=darkblue]Then[/color]
        Kill NewPathName
        Name OldPathName [color=darkblue]As[/color] NewPathName
    [color=darkblue]Else[/color]
        Name OldPathName [color=darkblue]As[/color] NewPathName
    [color=darkblue]End[/color] [color=darkblue]If[/color]
[/font]

 

[DougRobertson]

Thanks Domenic,

That does it!

Much appreciated,

~ Doug

 

[Domenic]

You're welcome! Thanks for the feedback!

 

[LNG2013]

Is there a way to do this but with using the current file path of the XLS file.

so have it copy/move from \newinfo.csv to \output\newinfo.csv

 

[Domenic]

If you mean the path of the workbook in which the code is being run, then try...

NewPathName = ThisWorkbook.Path & "\" & "newinfo.csv"