Need help in check Folder

[Yosef Wirian]

Hai all, i need some help. I want to check is a folder being accessed or not.
Thanks.

[Hack]

This might help...

'Author: Aaron Young (with a few added things from Jop) 
'Origin: Vb-World.net forums 
'Purpose: Monitor a Directory 
'Version: VB5+ 
 
'You can use the FindFirstChangeNotification() and 
'FindNextChangeNotification() API's to monitor a directory 
'for file changes including creation of new files, i.e. 
 
Private Declare Function WaitForSingleObject _ 
Lib "kernel32" (ByVal hHandle As Long, ByVal _ 
dwMilliseconds As Long) As Long 
 
Private Declare Function FindFirstChangeNotification _ 
Lib "kernel32" Alias "FindFirstChangeNotificationA" _ 
(ByVal lpPathName As String, ByVal bWatchSubtree As _ 
Long, ByVal dwNotifyFilter As Long) As Long 
 
Private Declare Function FindNextChangeNotification _ 
Lib "kernel32" (ByVal hChangeHandle As Long) As Long 
 
Private Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1 
Private Const FILE_NOTIFY_CHANGE_LAST_WRITE As Long = &H10 
Private Const FILE_NOTIFY_CHANGE_CREATION As Long = &H40 
 
Private Sub WaitForFileActivity(ByVal sDirectory As String) 
Dim lHandle As Long 
Dim lReturn As Long 
 
lHandle = FindFirstChangeNotification(sDirectory, 0&, FILE_NOTIFY_CHANGE_LAST_WRITE) 'if something's written to a file 
'or FindFirstChangeNotification(sDirectory, 0&, FILE_NOTIFY_CHANGE_CREATION) 'if a file is being created 
'or FindFirstChangeNotification(sDirectory, 0&, FILE_NOTIFY_CHANGE_FILE_NAME) 
Do 
   lReturn = WaitForSingleObject(lHandle, 1) 
   Call FindNextChangeNotification(lHandle) 
   DoEvents 
Loop While lReturn <> 0 
End Sub 
 
Private Sub Command1_Click() 
WaitForFileActivity "C:\" 
MsgBox "Change", vbSystemModal 
End Sub