複数のファイルに対してまとめて処理を実行するには？

RocketDive 2001-02-22 01:49:36 No: 103537

フォルダ内の全部のファイルに対して同一の処理を繰り返し実行するプログラムを作りたいのですが、行き詰まっています。
理想は、フォルダリストボックス等を使ってフォルダを指定し、「処理実行」ボタンを押すと選択されたフォルダ内の全部のファイルに対して処理を行う、というものなのですが。。。

どなたかお分かりの方、ヒントを下さい。

お願いいたします。

たかみちえ URL 2001-03-30 23:16:14 No: 103538

原始的、しかもまだ"原理上は"なんですけど、
テキストファイルなら、これができます。たぶん。
-----------------------------------------
Dim n As Integer'Byteでもいいかな？

    n=0
    With List
    Do Until n = .ListCount - 1
        n = n + 1
        文章 = DataLoading(.List(n))
        ’いろいろ処理
        DataSaving(.List(n),文章)
    Loop
    end With
-----------------------------------------
たぶんこのままじゃ機能しませんけど^^;
修正してください。

それから、DataLoadingとSavingは自作関数ですけど、
ようするに、読みこんで保存するということです。
(DataLoading-引数はファイルのパス
DataSaving-引数はファイルのパス,保存データ)

そうそう、ちょっとお節介(？)ですけど、
FileListBoxだと、なぜかうまく行ってくれないかもしれません。
メンドウでも(VisibleをFalseにした)リストボックスにコピーして、
それから処理したほうが、うまくいくみたいです。

ところで、タブキーでフォーカス移動しないように、
できません？この掲示板。

こころ URL 2001-05-27 09:03:28 No: 103539

Dir関数を使えばいいんでしょうか？
こころはAPIのFindFirstFileを使用していますが。