テキストファイルの行頭に文字列挿入したい

いま、コマンドボタンを押すと、特定のフォルダ内にある全テキストファイル（約１Kサイズの約１００文字前後、約２０個程度）の先頭に「日付（mm/dd）」を挿入したいのですがｖｂで可能でしょうか？
webでいろいろ調べてみましたが探すことができませんでした。
だれか教えてもらえませんか？

環境：vb6

No.4 ベストアンサー 回答者： nottisan 回答日時： 2005/11/26 23:53

サンプルで申し訳ないですが

★指定したフォルダの中をサブフォルダも含めて検索します。
http://www.geocities.co.jp/SiliconValley/4805/vb …
上記サンプルに下のサブルーチンを組み込めばできるようになりますよ♪
Private sub add_time(File_FULL_PATH as String)
Dim FileLoad as string '読み込んだ行
Dim FileSave as string '書き出す行
Dim DayTime as string '日付

DayTime = Format(Time,"mm/dd")
Open File_FULL_PATH For Input As #1 '入力
Do While Not EOF(1)
Line Input #1, FileLoad
FileSave = FileSave & DayTime & FileLoad & VbCrLf
Loop
Close #1
Open File_FULL_PATH For Output As #2　　'出力
Print #2, FileSave
Close #2
End Sub

この回答への補足

今日試してみたところうまくいきました。
本当に有り難うございました。

補足日時：2005/11/28 18:32

この回答へのお礼

nottisanさん回答ありがとうございます。
くわしく、コードも書いてくれましてさっそく試してみたいところですが、今日は仕事休みなため、明日試してみます。また分からないところがありましたらよろしくお願いします。

お礼日時：2005/11/27 11:21

No.3 回答者： nottisan 回答日時： 2005/11/26 22:13

すいません。

どうも内容をよく把握してなかったですね。
さきほどのプログラムは元ファイルから読み込んで
別ファイルへ（yyyy/mm/dd）を付加して出力ってだけですね（汗

時間できたらまた書き込みます（汗汗

No.2 回答者： nottisan 回答日時： 2005/11/26 22:07

Dim FileLoad as string '読み込んだ行

Dim FileSave as string '書き出す行
Dim DayTime as string '日付

DayTime = Format(Time,"yyyy/mm/dd")
Open "outtext.txt" For Output As #2　　'出力
Open "intext.txt" For Input As #1 '入力
Do While Not EOF(1)
Line Input #1, FileLoad
FileSave = DayTime & FileLoad & VbCrLf
Print #2, FileSave
Loop
Close #1
Close #2

こんなんでどうでしょう？

No.1 回答者： BLUEPIXY 回答日時： 2005/11/26 13:33

・処理ファイルのリストを作る

・リストのそれぞれについて
・・適当な名前に変更する
・・元の名前で日付を書き込む
・・名前を変更した元のファイルから元の名前のファイルに元の内容を書き出す。
・・適当な名前のファイルを削除する

みたいな感じでできると思います。

この回答へのお礼

BLUEPIXYさん
回答ありがとうございます。
処理の流れはそのような感じだとイメージすることができました。
あとはそのコードが書けるかですが．．．
また分からないことがありましたよろしくお願いします。

お礼日時：2005/11/27 11:17