FileCopy where destination does not exist

[cfoye130]

I am trying to use vba to archive a file, however the name of the file is new each day, In-flight_40609.pdf.

The problem is that using "FileCopy source, dest" errors since the destination does not exist before I try to copy it. How can I get around this?

Thanks!

 

[texasalynn]

do you want the file created before the copy?

 

[cfoye130]

I just want to get my file copied to the destination.....

Every day I have a file called In-Flight.pdf that is re-created and stored in a directory. I am trying to get that file, copied to a new destination, named In-Flight with a datestamp.pdf, e.g. In-Flight_040609.pdf. An archive of sorts. This happens before the In-flight.pdf gets overwriten with the new days file.

 

[shg]

Does this work?

    Const sSrcPath  As String = "C:\source path\"
    Const sDstPath  As String = "C:\destination path\"
    Const sFile     As String = "In-Flight"
    Const sExt      As String = ".pdf"
 
    If Len(Dir(sSrcPath & sFile & sExt)) = 0 Then
        MsgBox "Source path or file doesn't exist"
    ElseIf Len(Dir(sDstPath, vbDirectory)) = 0 Then
        MsgBox "Destination path doesn't exist"
    Else
        FileCopy sSrcPath & sFile & sExt, _
                 sDstPath & sFile & Format(Date, "yymmdd") & sExt
    End If