[AccessD] Kill Text

That works for me Stu and is the sort of code I would have written being
oblivious of the applicaiton.filesearch (which also worked ok on both our
systems).

I guess it is  "Just William"

Max


On 3/22/09, Stuart McLachlan <stuart at lexacorp.com.pg> wrote:
>
> Yes it does. Try this
>
> Function KillTxt()
> Dim strDirName As String
> Dim strFiName As String
> strDirName = "C:\Program Files\EMSReports\Imports\"
> strFiName = Dir$(strDirName & "*.txt")
> Do While strFiName > ""
>     Kill strDirName & strFiName
>     strFiName = Dir$()
> Loop
> End Function
>
> --
>
> Stuart
>
>
> On 22 Mar 2009 at 18:42, William Hindman wrote:
>
> > Stu
> >
> > ...afaik that approach doesn't let me kill just txt files in the
> directory
> > which is a must.
> > ...if you know different, I'm all ears.
> >
> > William
> >
> > --------------------------------------------------
> > From: "Stuart McLachlan" <stuart at lexacorp.com.pg>
> > Sent: Sunday, March 22, 2009 6:26 PM
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Subject: Re: [AccessD] Kill Text
> >
> > > <AOL>
> > > Me too.
> > > </AOL>
> > >
> > > On 22 Mar 2009 at 22:21, Max Wanadoo wrote:
> > >
> > >> ps. I would just use the common old dir() and kill statement. I have
> > >> never
> > >> know there was an application.filesearch - sommat new every day!
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>