[AccessD] A2K: Loop through files in a folder

Because it's the only available 'file' I/O capability that you can use
within VBScript.  A lot of network admins remove the runtime, so that
scripts can't use it.

Therefore, when you write VBA code (which has other options available), if
it is possibly going to be used elsewhere, there is a chance it may not work
if the network/system admin has disabled it.

Drew

-----Original Message-----
From: John Bartow
To: accessd at databaseadvisors.com
Sent: 2/4/03 9:15 PM
Subject: RE: [AccessD] A2K: Loop through files in a folder

OK Drew,
I'll raise the question - why?

(I think I know the answer but am too gun shy at this moment to venture
forth)

Lazy John
;o)

(Try to stay away from the file scripting object
when you can.)

Drew

-----Original Message-----
From: Darren DICK [mailto:d.dick at uws.edu.au]
Sent: Tuesday, February 04, 2003 8:00 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] A2K: Loop through files in a folder


Hello all
I have the following code in my forms timer, modified from the
help, that gives me a MsgBox with all the files in a folder. So far so
good

I have the timer set for 5 seconds. What I want is for the routine to
show
the
next file name in a MsgBox every 5 seconds. But what is happening with
this
code is I get as many MsgBox's as there are files every 5 seconds (by
keeping the enter key pressed)

How can I pause the FOR - NEXT code for 5 seconds??
Or have it show 1 file every 5 seconds not every file in 5 seconds

Any suggestions??

Many thanks in advance
Darren
++++++++++++++++++++++++++++++
Sub ShowFilesInDir(strFolder As String)
   Dim fs, f, f1, fc, s
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFolder(strFolder)
     Set fc = f.Files

     For Each f1 In fc
         s = f1.Name
     Next

     MsgBox s

End Sub
++++++++++++++++++++++++++++++

_______________________________________________
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