[AccessD] Kill Text

Max

...I copied the code out of a dev file, the working code has error code
...file names are the same

...its Sunday afternoon and as Stu pointed out, it works just fine now 
...shakes head, wish I was still a drinking man.
...no freaking idea what is going on here ...sometimes it doesn't work 
...now it does ...I HATE THAT!!!!!

William

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

> Some random thoughts:
> 1. Is the directory the files in EXACTLY the same as the name in the code?
> 2. put a breakpoint in and step through with F8.
> 3. Put a msgbox or debug.print in to show the filecount before calling the
> kill statement
> 4. put some error handling in there.
>
> good luck
>
> Max
> 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!
>
>
> On 3/22/09, William Hindman <wdhindman at dejpolsystems.com> wrote:
>>
>> Group
>>
>> ...the following function has been working fine in all versions of Access
>> from A97 through A2k2 but fails in A2k3
>> ...I use it to delete any txt files in the directory before importing a 
>> new
>> one into it.
>> ...regardless of the presence of .txt files it returns the 2nd msgbox and
>> does not delete the txt files in the directory
>> ...I'm stumped ...anyone have any idea why its not working in A2k3? 
>> ...what
>> am I NOT seeing?
>>
>> -------------------------------------------------------------------------------
>> Function KillTxt()
>>
>> Dim fs As Variant
>> Dim i As Integer
>> Dim FileList As String
>>
>>    ' Change to the appropriate folder
>>    ChDir "C:\Program Files\EMSReports\Imports"
>>
>>    Set fs = Application.FileSearch
>>    With fs
>>     .Lookin = "C:\Program Files\EMSReports\Imports"
>>     .FileName = "*.txt"
>>     If .Execute > 0 Then
>>
>>         FileList = "*.txt"
>>         Kill "C:\Program Files\EMSReports\Imports\" & FileList
>>
>>
>>         MsgBox "There were " & .FoundFiles.Count & " *.txt file(s) found 
>> in
>> the C:\Program Files\EMSReports\Imports directory and deleted."
>>         For i = 1 To .FoundFiles.Count
>>             MsgBox .FoundFiles(i)
>>         Next i
>>     Else
>>         MsgBox "There were no *.txt files found in the C:\Program
>> Files\EMSReports\Imports directory."
>>     End If
>>    End With
>>    Set fs = Nothing
>> End Function
>>
>> ------------------------------------------------------------------------------
>> William
>>
>>
>>
>>
>> --
>> 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
>