William Hindman
wdhindman at dejpolsystems.com
Sun Mar 22 21:08:18 CDT 2009
..."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 >