Max Wanadoo
max.wanadoo at gmail.com
Sun Mar 22 18:17:50 CDT 2009
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 >> > >