Max Wanadoo
max.wanadoo at gmail.com
Mon Mar 23 02:37:59 CDT 2009
Aha! I guess what we should have done when checking was to see if it would compile. That would have thrown up the missing ref straight away. Never mind - it is Monday now William, and all your troubles start afresh! Max -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman Sent: 23 March 2009 02:01 To: Access Developers discussion and problem solving Subject: Re: [AccessD] Kill Text ...and in my never ending weekend circle jerk it now turns out that the application.filesearch was removed from the Office object library in O2K7, so I'm going to have to rewrite that code anyway ...might as well get started :( ...when I was single, I'd have been snockered by now ...but the better half is a teetotaler and I've just been compelled to give up my lifeline to diet coke in favor of WATER!!!! ...you really wouldn't want to cross me at the moment ...I'm in the midst of caffeine withdrawal AND an intermittent application problem with a deadline for 9AM tomorrow ...and NOW I find the dodo heads at MS have whimsically obsoleted my code without even so much as a Kleenex for my troubles! ...gggggrrrrrrr! 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