[AccessD] Kill Text

Looks good to me, Stu.

Even better (perhaps)

Public Function KillTxt()
   Kill "C:\Program Files\EMSReports\Imports\*.txt"
End Function

Max



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Schapel
Sent: 23 March 2009 00:07
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Kill Text

Max,

If you want KISS, you want this...

Public Function KillTxt()
   Dim strFilePath As String
   strFilePath = "C:\Program Files\EMSReports\Imports\*.txt"
   If Len(Dir(strFilePath)) Then
      Kill strFilePath
   End If
End Function


Regards
Steve


--------------------------------------------------
From: "Max Wanadoo" <max.wanadoo at gmail.com>
Sent: Monday, March 23, 2009 12:17 PM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Kill Text

> BTW, I would change your code to Stuarts personally.  Not so "esoteric".
> Heard of KISS.  It is very apposite.
>
 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com