Overwrite Brower download file if exist

[NileshAPatel]

Hi

I had written vba code to open multiple link from excel to browser "edge" which starts downloading excel file with dedicated name.

But wants code to overwrite file if already exist.

i.e once link open it started downloading file i.e. "CustomerOrderReport.xls" in folder "C:\Users\MIS\Downloads\"
but if same name file is already exist then it create new one with name "CustomerOrderReport (1).xls

I wants to overwrite file instead of creating new one.

Thanks in advance

Regards
Nilesh Patel

 

[Anthony47]

Does the utility you use to download the file have a "overwrite" option?
Can you get the name of the file before downloading? If Yes then just Kill the file (use On Error Resume Next /GoTo 0 to skip exotic controls on the existance of the file)
Or you can download to a temporary directory, then your macro get the name of the file, kill the file in the final directory, move the file to the final directory. These final operations could be done using the following code:

Dim TempPath As String, FinalPath As String, myF As String
'.
'Import your file to the Temp directory
'.
'.
TempPath = "C:\PROVA\TempPath\"           '<<< Your data
FinalPath = "C:\PROVA\FinalPath\"         '<<< Your data
'
myF = Dir(TempPath & "*.*")
If myF <> "" Then
    On Error Resume Next
        Kill FinalPath & myF
    On Error GoTo 0
    Application.Wait (Now + TimeValue("0:00:01"))
    Name (TempPath & myF) As FinalPath & myF
End If

Lines marked <<< need to be filled with YOUR data (and don't forget the final "\")
This assumes that the temporary path is initially empty

 

[NileshAPatel]

Does the utility you use to download the file have a "overwrite" option?
Can you get the name of the file before downloading? If Yes then just Kill the file (use On Error Resume Next /GoTo 0 to skip exotic controls on the existance of the file)
Or you can download to a temporary directory, then your macro get the name of the file, kill the file in the final directory, move the file to the final directory. These final operations could be done using the following code:

Dim TempPath As String, FinalPath As String, myF As String
'.
'Import your file to the Temp directory
'.
'.
TempPath = "C:\PROVA\TempPath\"           '<<< Your data
FinalPath = "C:\PROVA\FinalPath\"         '<<< Your data
'
myF = Dir(TempPath & "*.*")
If myF <> "" Then
    On Error Resume Next
        Kill FinalPath & myF
    On Error GoTo 0
    Application.Wait (Now + TimeValue("0:00:01"))
    Name (TempPath & myF) As FinalPath & myF
End If

Lines marked <<< need to be filled with YOUR data (and don't forget the final "\")
This assumes that the temporary path is initially empty

Thanks it solve my problem....
Thanks a lot again.