[AccessD] A2K: Loop through files in a folder - to Drew

Why stay away from the file scripting object??

Tom

----- Original Message ----- 
From: "Drew Wutka" <DWUTKA at marlow.com>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, February 04, 2003 6:50 PM
Subject: RE: [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
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>