ถามไว้ที่ http://www.access-programmers.co.uk/forums/showthread.php?s=&postid=135877#post135877 
 
เป็นคำถามที่ผมคุ้นมาก โดยเฉพาะโค้ดที่เขาใช้ คือ 
 
Public Function GetYesterdyFiles()  
 
Dim objFS As Object, objFolder As Object  
Dim objFiles As Object, objF1 As Object  
Dim strFill As String, strFolderPath As String  
 
 
strFolderPath = "C:\Bat\"  
Set objFS = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFS.GetFolder(strFolderPath)  
Set objFiles = objFolder.files  
 
 
For Each objF1 In objFiles  
If Right(objF1.Name, 3) = "txt" And objF1.DateLastModified = DateAdd("d", -1, Date) Then  
objFS.CopyFile strFolderPath & objF1.Name, "C:\Bat\Bat2\"  
End If  
Next  
 
Set objF1 = Nothing  
Set objFiles = Nothing  
Set objFolder = Nothing  
Set objFS = Nothing  
 
End Function  
 
ผมจำได้ว่าเคยโพสต์ฟังก์ชันนี้ไว้ที่ http://www.access-programmers.co.uk/forums/showthread.php?s=&postid=126997#post126997 
 
แต่เขาต้องการที่จะปรับโค้ดให้เป็นการตรวจดูว่า ให้ copy เฉพาะไฟล์ที่ถูกแก้ไขระหว่างเวลา 6.00 pm ของวันที่ผ่านมา จนถึงเวลาในขณะนี้ 
 
ผมเลยให้เขาปรับโค้ดดังนี้ 
 
-------------------------------------------------------------------------------- 
... 
If Right(objF1.Name, 3) = "txt" And (objF1.DateLastModified Between DateAdd("d", -1, Date) & " 06:00:00 PM" And Now) Then  
... 
--------------------------------------------------------------------------------  *** Edited by Supap Chaiya *** 9/6/2546 9:20:34