Pinging a Folder

[SymbionA]

I want to ping a folder every 5 mins to see if a file exists, if a file has been dropped in a folder I want to email the file automatically.

I have the routine to email an attachment, however, I am not sure how to ping a folder to check if a files exists?

Could somebody advise on how this can be done?

Thanks in advance.

 

[nickdel]

you could stick a timer on a form and have it run something like the following:

    Dim fso As New FileSystemObject
    Dim flds As Folders

    
    Set flds = fso.GetFolder("C:\").SubFolders

       If flds.Item("Windows").Files.Count > 0 Then
            MsgBox "send email!"
        End If

Code simply counts the number of files in a specified folder.

Cheers

Nick

 

[nickdel]

Should have mentioned that in order to make this work you will have to make reference to "Microsoft Scripting Runtime" Tools > References.

Nick

 

[Remou]

It is also possible to use Dir:

[tt]If Dir("C:\Data\TheFile.txt")<>"" Then
'File found[/tt]

 

[SymbionA]

Thank you for your response.

OK, so will it be permanent loop?

So for example, it finds a file, mails the file, removes the file and when another file is dropped into the folder it will mail the file, remove the file etc.?

Thanks again!

 

[Remou]

You can use the Timer event and Timer Interval, as NickDel mentioned.

 

[SymbionA]

Thanks!

Well, unfortunately, I am new to Access. I have looked around for Timer Event and I cannot see in Access how to use it.

I want to call a function "SendEmail" every 5 mins, however, I am unsure how I structure the code to do this or whether I need a form to do it.

Would you help ?

Thank you.

 

[Remou]

You will need a form, unless you fancy Windows APIs. The form can be hidden. Here are some references:

http://msdn2.microsoft.com/en-us/library/aa211461(office.11).aspx

http://msdn2.microsoft.com/en-us/library/aa173454(office.11).aspx

Set the timer interval to 300000 to run the event every 5 minutes.