[AccessD] A2K: Loop through files in a folder

Put this code behind your form:

Option Compare Database
Option Explicit
Dim strCurrentFile As String
Private Sub Form_Load()
strCurrentFile = Dir("Z:\*.*")
End Sub
Private Sub Form_Timer()
If strCurrentFile <> "" Then
    MsgBox strCurrentFile
    strCurrentFile = Dir
End If
End Sub

That does what you want.  (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