Application.FileSearch runtime error '455' in Excel 2007

Posted on 2008-06-17
Last Modified: 2011-10-19
I have seen some of the other solution here on EE but I don't how to implement them to fit my situation. Here is my code that attempts to look for a file within a specified folder based on county, year, and status. If not found, a message box pops saying "File not found.  Not Created Yet".

I just need to know how to re-arrange the variables I have already set to work with the workaround method for Excel 2007. This file was initially created in Excel 2003.
Sub CheckTargetFile()

   Targetfile1 = "SR_" & cnty & ".txt"

   Dirname1 = "H:\srprod\Data Requests\" & typestudy & "Files\" & year



   'To make sure that file exists

   With Application.FileSearch


        .LookIn = Dirname1

        .Filename = Targetfile1

        If .Execute() = 0 Then

            MsgBox "File not found.  Not Created Yet", vbOKOnly


            Call Import

        End If

    End With

Open in new window

Question by:angelmtaylor
  • 2
  • 2
LVL 19

Expert Comment

ID: 21813164
Where do you define what typestudy and year contain? They both look like variables, but I don't see where you have values being passed into them.

Dawn Crosier-Bleuel
Word MVP

Author Comment

ID: 21813221
I have attached the code and form that sends the variable values.
Sub Button10_Click()

   If Range("P1").Value = 1 Then

     year = "2000"

   ElseIf Range("P1").Value = 2 Then

     year = "2001"

   ElseIf Range("P1").Value = 3 Then

     year = "2002"

   ElseIf Range("P1").Value = 4 Then

     year = "2003"

   ElseIf Range("P1").Value = 5 Then

     year = "2004"

   ElseIf Range("P1").Value = 6 Then

     year = "2005"

   ElseIf Range("P1").Value = 7 Then

     year = "2006"

   ElseIf Range("P1").Value = 8 Then

     year = "2007"

   End If

   If Range("r1").Value < 10 Then

      cnty = "00" & CStr(Range("r1").Value)

   ElseIf Range("r1").Value < 100 Then

      cnty = "0" & CStr(Range("r1").Value)


      cnty = CStr(Range("r1").Value)

   End If


   If Range("T1").Value = 1 Then

     typestudy = "Prelm"

   ElseIf Range("T1").Value = 2 Then

     typestudy = "Study"

   End If


   Call CheckTargetFile

End Sub

Open in new window

LVL 92

Accepted Solution

Patrick Matthews earned 500 total points
ID: 21813904
Hello angelmtaylor,

FileSearch was dropped from Office 2007.  Instead, try:

If Dir(Dirname1 & "\" & Targetfile1) <> "" Then
    'code for file exists
   'does not exist
End If



Author Closing Comment

ID: 31468148
Thank you so much!! It was plug and go with your solution. I don't know why I didn't think if it. You truly are an EXPERT!!  Thanks for your help!!
LVL 92

Expert Comment

by:Patrick Matthews
ID: 21814784

You are most welcome :)



Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

PaperPort has a feature called the "Send To Bar". It provides a convenient, drag-and-drop interface for using other installed software, such as Microsoft Office. However, this article shows that the latest Office 2016 apps (installed with an Office …
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now