Exporting data - Check to see if file exists

[jschmidt]

Hello Everyone,

I would like to export data from a form in access to a static location on the user's hard drive with the same name everytime. The problem with this is that when you use the transfertext function in vbscript it does not ask if you would like to overwrite the old file it just does.

Is there a way to check if a file already exists before exporting and overwriting? If so how? I would like the user to see a messagebox asking if they want to overwrite or cancel.

Thanks!

[Rabbit]

Here's a code snippet of what I use for that very purpose.

        If Dir(path) <> "" Then
            If MsgBox(path & " already exists." & Chr(13) & "Do you wish to overwrite the file?", vbYesNo) = vbYes Then
                Kill path
            Else
                Exit Sub
            End If
        End If
 

[FishVal]

Hello Everyone,

I would like to export data from a form in access to a static location on the user's hard drive with the same name everytime. The problem with this is that when you use the transfertext function in vbscript it does not ask if you would like to overwrite the old file it just does.

Is there a way to check if a file already exists before exporting and overwriting? If so how? I would like the user to see a messagebox asking if they want to overwrite or cancel.

Thanks!

Hi!

This maybe some simple function like the following one.

Public Function DoesFileExist(strPath As String) As Boolean
 
    On Error GoTo Failed
 
    FileLen strPath
    DoesFileExist = True
    Exit Function
 
Failed:
    DoesFileExist = False
 
End Function