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

質問

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

環境：vb6

回答No.4

nottisan · ベストアンサー

サンプルで申し訳ないですが
★指定したフォルダの中をサブフォルダも含めて検索します。
http://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips068.htm
上記サンプルに下のサブルーチンを組み込めばできるようになりますよ♪
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

お礼

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

補足

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

回答No.3

nottisan

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

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

回答No.2

nottisan

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

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

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

お礼

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