GBKEE

¦^´_ 1# key9028

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX()
   
3.     Dim f As Object, s As String, xFile As String, i As Integer
   
4.     'Set fs = CreateObject("Scripting.FileSystemObject")
   
5.     'FileSystemObject ª«¥ó, ´£¨Ñ¹ï¹q¸£Àɮרt²Îªº¦s¨ú¡C
   
6.     xFile = Dir("D:\*.XLS")
   
7.     Do While xFile <> ""
   
8.         Set f = CreateObject("Scripting.FileSystemObject").GetFile("D:\" & xFile)
   
9.         s = f.DateCreated
   
10.         If [a1] <= s And [a2] >= s Then
    
11.             i = i + 1
    
12.             Cells(i, "b") = f
    
13.             Cells(i, "c") = s
    
14.         End If
    
15.         xFile = Dir
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X