指定したフォルダ内のテキストファイルを読込むサンプル

Access

指定したフォルダ内の

フォルダ一覧を取得し、

そのフォルダ一覧以下のファイルを取得し、

そのファイルを読み込むサンプルソース

 

'Folder の一覧を取得する

Sub ListUp_FolderList(FolderSpec)

 

  Dim Folder_Collection As Object

  Dim Folder_List As Variant

    

  Set Folder_Collection = CreateObject("Scripting.FileSystemObject") _

                        .GetFolder(FolderSpec).SubFolders

 

  For Each Folder_List In Folder_Collection

      ListUp_FileList (Folder_List)

  Next

    

End Sub

 

'File の一覧を取得する

Sub ListUp_FileList(FolderSpec)

 

  Dim File_Collection As Object

  Dim File_List As Variant

    

  Set File_Collection = CreateObject("Scripting.FileSystemObject") _

                       .GetFolder(FolderSpec).Files

 

  For Each File_List In File_Collection

    TextRead (File_List)

  Next

    

End Sub

 

' テキストファイル読み込み

Sub TextRead(FileSpec)

    

    Dim InputFile As String

    InputFile = FileSpec

    

    Dim RecordStr As String

    

    'Open CurrentProject.Path & "\" & InputFile For Input As #1

    Open InputFile For Input As #1

    Dim i

    i = 0

    Do Until EOF(1)

        Line Input #1, RecordStr

        

        Debug.Print RecordStr

        i = i + 1

    Loop

    'Debug.Print i

 

    Close #1

    

End Sub