ランダムに出来るＴＥＸＴファイルを読み出し（取込）張り付け方法

質問

VB6.0にて作業です
一定時間ではなくランダムに出力されるテキストファイルで、それもファイル名もそれぞれ違うファイルを出力だれた時間順に同エクセルbook内のシート分けで取り込む方法を教えて下さい。
例えば
　０分　　　　1234.text →　Sheet1
２分後　　　　2121.text →　Sheet2
２分１５秒後　4321.text →　Sheet3
と言う具合にしたいのですが、ファイル名が決まっており、ある一定の時間で出力されるファイルの取込は出来るのですがファイル名も時間もその時々で違うのがどうも出来ません教えて下さい。

回答No.3

keikan

Fname = Dir("c:\mydocu~1\*.txt")
While (Fname <> "")

'MsgBox Fname
'ここでFnameにファイル名が入ってきますのでそれを取り込んでください
’そのファイルが必要なければ削除で、必要あればどこかに移動させてみては。

Fname = Dir
Wend

回答No.2

marumaru_a_w

はじめましてmarumaru_a_wといいます。
ファイルが出力されるフォルダは固定なのでしょうか？もしそうならば「Dir()」という関数でそのフォルダ内にあるファイルを取得することが出来ます。詳しい使い方は、ヘルプを見ていください。
取得したファイル名の更新日時を取得するには「FileDateTime()」があります。

処理的には、Dir()の関数を使用してファイル名を取得し、FileDateTime()を使用して更新日時も一緒に取得し、その更新日時が古い順にシートに貼り付けていくような感じでいいかと思います。

憶測でお答えしたので、意図としたことと違っていたらすみません。

回答No.1

keikan

インターバルタイマーでもつけて、
フォルダー内を検索して、ファイルがあれば取り込んで、取り込み終わったファイルは、別のフォルダーに移動でもしたらどうでしょう。

補足

インターバルタイマーを使用？
Dim lngCounter As Long

Private Sub Command1_Click()

If Timer1.Interval = 100 Then
Timer1.Interval = 0
Else
Label1.Caption = ""
lngCounter = 0
Timer1.Interval = 100
End If
　　End Sub

Private Sub Timer1_Timer()
lngCounter = lngCounter + 1
Label1.Caption = lngCounter
End Sub

で1/100秒を見れるのかなやったこと有りませんが
ここからどうすればいいのでしょうか、ファイル名不明で取込可能でしょうか又取込後消去ですか？考えてみますがもう少しヒントを下さい。お願いします。