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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 原始的、しかもまだ"原理上は"なんですけど、 テキストファイルなら、これができます。たぶん。 ----------------------------------------- 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にした)リストボックスにコピーして、 それから処理したほうが、うまくいくみたいです。 ところで、タブキーでフォーカス移動しないように、 できません？この掲示板。