VBA-VB6 - 모든 디렉토리 파일 읽기

Scripting.FileSystemObject 함수 는 Office 2007에서 더 이상 사용할 수없는 Application.FileSearch 를 대체합니다.

모든 이미지 파일을 디렉토리에 저장하는 방법의 예.

모듈에 붙여 넣기 :

 Option Explicit Dim Data () Dim NBdata As Integer '공공 기능 리터 레퍼토리 (String에 의한 ByVal 담당자, 옵션 SousRep As) SourRep = true' 부울) 정수로 Dim Obj, RepP, F, S, sf, F1, Fsous Dim 정수로, Ext As 문자열 Dim Chem As String Dim T As Double 'Application.MousePointer = 13'VB6 세트 붓기 Obj = CreateObject ( "Scripting (Chem, 1) "\"Then Chem = Chem & "\"Set sf = RepP.subfolders Set F = RepP.Files GoSub RempliData ' les fichiers du répertoir principal 만약 SousRep이면 'Fsous For Each Fsous For sf'세트 RepP = Fsous Set F = RepP.Files GoSub RempliData 다음 Fsous End If Exit Function '*********** *************************************************** ********* RempliData : Ext = "bmp"또는 Ext = "jpg"인 경우 F Ext = LCase (Right (F1.Name, 3))에서 각 F1에 대해 ' (1, NBdata) = F1.ParentFolder & "\"& F1.Name 데이터 (2, NBdata) = F1.DateCreated 데이터 (0, NBdata) 데이터 = (5, NBdata) = T & "Bi"ElseIf T <999999 그런 다음 Data (5, NBdata) = F1 .DetLastAccessed 데이터 (4, NBdata) = F1.DateLastModified T = NBdata) = 라운드 (T / 1000, 1) & "Ko"Else 데이터 (5, NBdata) = 라운드 (T / 1000000, 1) & "Mo"End If NBdata = NBdata + 1 End If 다음 F1 Return End Function