Solved

New file "event"

Posted on 1998-12-06
3
160 Views
Last Modified: 2010-05-03
I want to get an "event" then a new file/update to file occurs in a directory. How can I do this?
0
Comment
Question by:manne
  • 3
3 Comments
 
LVL 2

Accepted Solution

by:
dm_14 earned 100 total points
ID: 1448433
1. Use the FindNextChangeNotification and FindFirstChangeNotification
2. You can find the declarations and constants in the VB5 text viewer
3. More info available on Microsofts MSDN site
4. Here is a sample piece of code:

Private Sub Command1_Click()
Do
    Dim lDir As Long, lFound1 As Long, lFound2 As Long
    sPath = Left$(sSourceDir, Len(sSourceDir) - 1)
    lDir = FindFirstChangeNotification(sPath, False, FILE_NOTIFY_FLAGS)
    Do
      lFound1 = WaitForSingleObject(lDir, 100)
      DoEvents: If bFlag = True Then Exit Do
    Loop While lFound1 <> 0
    Do
     lFound2 = FindNextChangeNotification(lDir)
     Do
      lFound2 = WaitForSingleObject(lDir, 100)
      DoEvents
      If bFlag = True Then Exit Do
     Loop While lFound2 <> 0
     If bFlag = True Then Exit Do
     If iFound2 = 0 Then
         DoEvents
         ' -- ** Place your event code here ** --
         MsgBox "The watched directory has been changed.  Resuming watch..."
     End If
   Loop
end sub
0
 
LVL 2

Expert Comment

by:dm_14
ID: 1448434
Correction ..
2. You can find the declarations and constants in the VB5  API text viewer
0
 
LVL 2

Expert Comment

by:dm_14
ID: 1448435
Sorry .. The code I sent has a few errors
Here is a better example :

1. Here are the declarations you need :
(Some of the constants allow you to detect different changes to a file)

Public Const INFINITE = &HFFFF
Public Const FILE_NOTIFY_CHANGE_FILE_NAME As Long = &H1
Public Const FILE_NOTIFY_CHANGE_DIR_NAME As Long = &H2
Public Const FILE_NOTIFY_CHANGE_ATTRIBUTES As Long = &H4
Public Const FILE_NOTIFY_CHANGE_SIZE As Long = &H8
Public Const FILE_NOTIFY_CHANGE_LAST_WRITE As Long = &H10
Public Const FILE_NOTIFY_CHANGE_LAST_ACCESS As Long = &H20
Public Const FILE_NOTIFY_CHANGE_CREATION As Long = &H40
Public Const FILE_NOTIFY_CHANGE_SECURITY As Long = &H100
Public Const FILE_NOTIFY_FLAGS = FILE_NOTIFY_CHANGE_ATTRIBUTES Or _
                                 FILE_NOTIFY_CHANGE_FILE_NAME Or _
                                 FILE_NOTIFY_CHANGE_LAST_WRITE

Public Declare Function FindFirstChangeNotification Lib "kernel32" _
    Alias "FindFirstChangeNotificationA" _
   (ByVal lpPathName As String, _
    ByVal bWatchSubtree As Long, _
    ByVal dwNotifyFilter As Long) As Long

Public Declare Function FindCloseChangeNotification Lib "kernel32" _
   (ByVal hChangeHandle As Long) As Long

Public Declare Function FindNextChangeNotification Lib "kernel32" _
   (ByVal hChangeHandle As Long) As Long

Public Declare Function WaitForSingleObject Lib "kernel32" _
   (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Public Const WAIT_OBJECT_0 = &H0
Public Const WAIT_ABANDONED = &H80
Public Const WAIT_IO_COMPLETION = &HC0
Public Const WAIT_TIMEOUT = &H102
Public Const STATUS_PENDING = &H103


2. Here is the code to place in a command button :

Private Sub Command1_Click()
Do
    Dim lDir As Long, lFound1 As Long, lFound2 As Long, sPath As String
    sPath = "c:\temp1" ' *** directory to watch ***
    lDir = FindFirstChangeNotification(sPath, False, FILE_NOTIFY_FLAGS)
    Do
      lFound1 = WaitForSingleObject(lDir, 100)
      DoEvents: If bFlag = True Then Exit Do
    Loop While lFound1 <> 0
    Do
     lFound2 = FindNextChangeNotification(lDir)
     Do
      lFound2 = WaitForSingleObject(lDir, 100)
      DoEvents
      If bFlag = True Then Exit Do
     Loop While lFound2 <> 0
     If bFlag = True Then Exit Do
     If iFound2 = 0 Then
        MsgBox sPath
        MsgBox "The watched directory has been changed.  Resuming watch..."
     End If
   Loop
   lFound2 = FindCloseChangeNotification(lDir)
   
Loop
End Sub

0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question