Stuart McLachlan
stuart at lexacorp.com.pg
Sun Mar 22 21:46:41 CDT 2009
Pertinent? On 22 Mar 2009 at 22:08, William Hindman wrote: > ..."apposite"? > William > > -------------------------------------------------- > From: "Max Wanadoo" <max.wanadoo at gmail.com> > Sent: Sunday, March 22, 2009 7: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. > > > > Max > > > > > > On 3/22/09, Max Wanadoo <max.wanadoo at gmail.com> wrote: > >> > >> >.thing is, I've seen this before over the years ...post a piece of > >> uncooperative code to AccessD and it suddenly starts working ...FM! : > >> > >> Uh! That explains it William, it is called the Dentist Syndrome. > >> > >> Max > >> > >> > >> > >> On 3/22/09, William Hindman <wdhindman at dejpolsystems.com> wrote: > >>> > >>> Max > >>> > >>> ...setting here grasping for straws ...same code now works in all > >>> versions/systems/runtimes without fail ...what it will do tomorrow in > >>> the > >>> client's office I'm afraid to think about :( > >>> ...thing is, I've seen this before over the years ...post a piece of > >>> uncooperative code to AccessD and it suddenly starts working ...FM! :) > >>> > >>> > >>> William > >>> > >>> -------------------------------------------------- > >>> From: "Max Wanadoo" <max.wanadoo at gmail.com> > >>> > >>> Sent: Sunday, March 22, 2009 7:00 PM > >>> > >>> To: "Access Developers discussion and problem solving" > >>> <accessd at databaseadvisors.com> > >>> Subject: Re: [AccessD] Kill Text > >>> > >>> > William, > >>> > Good news. Without making any changes it ran, deleted the files and > >>> > reported > >>> > them. > >>> > Bad news. That means I dont know why it has stopped running on your > >>> syste. > >>> > > >>> > Have you changed/removed a Reference? > >>> > > >>> > Try it on your other PC > >>> > > >>> > > >>> > Max > >>> > > >>> > > >>> > On 3/22/09, Max Wanadoo <max.wanadoo at gmail.com> wrote: > >>> >> > >>> >> > .I HATE THAT!!!!! > >>> >> > >>> >> Ho! Ho! Get used to it William. I might look 65 but I am really 21. > >>> The > >>> >> difference being I started programming. > >>> >> > >>> >> I am struggling trying to get a web site up to host the access stuff > >>> >> I > >>> >> want > >>> >> to develope. but in a short while, I will try your code in my system > >>> >> (with > >>> >> the changes suggested by Jack - 'cos they make sense) I will come > >>> >> back > >>> >> and > >>> >> it will be Good News or Bad New - I don't know which, but in the > >>> meantime > >>> >> go > >>> >> and pour yourself a shot of good ol fashioned TEA! > >>> >> > >>> >> Max > >>> >> > >>> >> > >>> >> > >>> >> On 3/22/09, William Hindman <wdhindman at dejpolsystems.com> wrote: > >>> >>> > >>> >>> 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 > >>> >>> > > >>> >>> > >>> >>> > >>> >>> -- > >>> >>> > >>> >>> 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 > >>> > >> > >> > > -- > > 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