Archive file if filename does not exist

[BrianJN1]

Each week I load CSV data into my Workbook from a USB stick.
I have recently chosen to archive the CSV file with the date that the data is accessed.
The source file, no matter what the date, is always the same name.
I can successfully archive the CSV using this statement:

ActiveWorkbook.SaveAs Filename:="C:\DIR\CSV\Filename" & Format(Date, "yyyymmdd") & ".csv", FileFormat:=xlCSV, CreateBackup:=False

As I am repeatedly tweaking code and layouts within the Workbook I need to access my USB stick but when my macro finds that an archived file of the daily date exists I receive and error.

I created an IF …THEN to check if the file by that date name exists:

If "C:\DIR\CSV\Filename" & Format(Date, "yyyymmdd") & ".csv" = "" Then
ActiveWorkbook.SaveAs Filename:="C:\DIR\CSV\Filename" & Format(Date, "yyyymmdd") & ".csv", FileFormat:=xlCSV, CreateBackup:=False
End If

Unfortunately if the filename does not exist the file is not created.

What simple means might allow my IF … THEN to do as I intend?

 

[wideboydixon]

Dim saveFileName As String

saveFileName = "C:\DIR\CSV\Filename" & Format(Date, "yyyymmdd") & ".csv"
If Dir$(saveFileName) = "" Then
    ActiveWorkbook.SaveAs saveFileName, FileFormat:=xlCSV, CreateBackup:=False
End If

WBD

 

[BrianJN1]

Ah! Many thanks, that worked a treat.
Hm. I think that i just got carried away and forgot to save that change. No matter, I can still access your offering, Again, thank you.

 

[jamifox]

i had same problem but my problem solved, thanks to @wideboydixon.