stillfish00

¦^´_ 2# ui123

1. Sub Test()
   
2.   Dim myFolder As String
   
3.   Dim oFSO As Object, oFiles As Object, oFile As Object
   
4.   Dim i, lCnt As Long
   
5.   Dim arFiles()
   
6.   
   
7.   Const HIDDEN = &H2
   
8.   myFolder = "C:\New folder\"
   
9.   Set oFSO = CreateObject("Scripting.FileSystemObject")
   
10.   Set oFiles = oFSO.getFolder(myFolder).Files
    
11.   
    
12.   ReDim arFiles(1 To oFiles.Count)
    
13.   
    
14.   '¨ú¥X©Ò¦³ÀÉ®×
    
15.   i = 0
    
16.   For Each oFile In oFiles
    
17.     If Right(oFile.Name, 5) = ".xlsx" Then
    
18.       If (oFile.Attributes And HIDDEN) = 0 Then '¤£§tÁôÂÃÀÉ
    
19.         i = i + 1
    
20.         arFiles(i) = oFile.Name
    
21.       End If
    
22.     End If
    
23.   Next
    
24.   If i = 0 Then MsgBox "Not Found" : Exit Sub
    
25.   ReDim Preserve arFiles(1 To i)
    
26.   
    
27.   'array¤º±Æ§Ç
    
28.   Dim temp, j
    
29.   For i = 1 To UBound(arFiles)
    
30.     For j = i + 1 To UBound(arFiles)
    
31.       If arFiles(i) > arFiles(j) Then
    
32.         temp = arFiles(i)
    
33.         arFiles(i) = arFiles(j)
    
34.         arFiles(j) = temp
    
35.       End If
    
36.     Next j
    
37.   Next i
    
38.   'arFiles §Y¬°±Æ§Ç«á°}¦C
    
39.   
    
40.   MsgBox Join(arFiles, vbCrLf)
    
41. End Sub

½Æ»s¥N½X