[AccessD] Kill Text

Stuart McLachlan stuart at lexacorp.com.pg
Sun Mar 22 18:00:09 CDT 2009


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





More information about the AccessD mailing list