複数のテキストを開くには？

解決

すっぱみ 2002-09-27 01:48:46 No: 105061

はじめまして。
あまり上手く説明できないのですが、
1フォルダの中にある幾つかのテキストを開いてテキストの内容を複写するという事をやりたいのですが、複数のテキストを開くことができません。
どなたか、ご指導よろしくお願いします。

匿名 2002-09-27 02:14:40 No: 105062

できるハズです。

どのようにできないのですか？

すっぱみ 2002-09-27 02:26:20 No: 105063

匿名さん、お返事ありがとうございます。
僕が作ったものでは、一つならできるのですが二つ以上だとエラーステーメントの方に処理が移ってしまいます。作ったものは、下記のとおりです。
どのように変えれば良いのでしょうか？
Dim sabunFilesystem As Object
Dim objFolder As Object
Dim objFiles As Object
Dim tblFile As String
Dim tblFiles As String

Set sabunFilesystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = sabunFilesystem.getfolder(パス名)
Set tblFiles = objFolder.Files

For Each objFile In tblFiles
    tblFile = objFile.Name
    If StrConv(objFile.Name, vbUpperCase) Like "*.TBL" Then
        Set objFiles = sabunFilesystem.OpenTextFile(tblFile)

        Do Until objFiles.AtEndOfstream
            gyou(retu) = objFiles.ReadLine
            retu = retu + 1
        Loop
        objFiles.Close

すっぱみ 2002-09-27 02:46:19 No: 105064

すいません、注釈を忘れました

Dim sabunFilesystem As Object
Dim objFolder As Object
Dim objFiles As Object
Dim tblFile As String
Dim tblFiles As Object '
Dim mypath as String 'ファイルのパス名

'ファイルシステムオブジェクトへの参照
Set sabunFilesystem = CreateObject("Scripting.FileSystemObject")
Set objFolder = sabunFilesystem.getfolder(mypath)
Set tblFiles = objFolder.Files

For Each objFile In tblFiles
'ファイル名の取得
    tblFile = objFile.Name
'識別子がtblなら下記へ
    If StrConv(objFile.Name, vbUpperCase) Like "*.TBL" Then
'ファイルを開く
        Set objFiles = sabunFilesystem.OpenTextFile(tblFile)
'一行ずつ読み込む
        Do Until objFiles.AtEndOfstream
            gyou(retu) = objFiles.ReadLine
            retu = retu + 1
        Loop
'ファイルを閉じる
        objFiles.Close

oku URL 2002-09-27 08:17:54 No: 105065

ファイルを開く
Set objFiles = sabunFilesystem.OpenTextFile(tblFile)
tblFileの中には、ファイル名しか入ってないので、
Set objFiles = sabunFilesystem.OpenTextFile(mypath & "\" & tblFile)
にすればＯＫだと思います。

すっぱみ 2002-09-27 21:06:37 No: 105066

匿名さん、okuさんありがとうございます。
okuさんの書いてあるとおりにやったら、開くことができました！
ファイル名だけでなく、パス名もしていないと駄目だったんですね
大変参考になりました、ありがとうございます