[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.
>