DoCmd.TransferSpreadsheet

[Guest]

Is there a (preferably) simple way to get access to prompt if the file
already exists, rather than it just simply over writing the existing file??

Thanks

 

[Guest]

Try the File Search command:

With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With

 

[Guest]

If Dir("F:\SomeDirectory\SomeFile.xls") <> "" Then
MsgBox "File Already Exists"
End If

 

[Guest]

Works brilliantly thanks

Helen

If Dir("F:\SomeDirectory\SomeFile.xls") <> "" Then
MsgBox "File Already Exists"
End If

 

[Guest]

Thanks Kevin but Klatuu's was simpler

Try the File Search command:

With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With