フォルダ内の全部のファイルに対して同一の処理を繰り返し実行するプログラムを作りたいのですが、行き詰まっています。
理想は、フォルダリストボックス等を使ってフォルダを指定し、「処理実行」ボタンを押すと選択されたフォルダ内の全部のファイルに対して処理を行う、というものなのですが。。。
どなたかお分かりの方、ヒントを下さい。
お願いいたします。
原始的、しかもまだ"原理上は"なんですけど、
テキストファイルなら、これができます。たぶん。
-----------------------------------------
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にした)リストボックスにコピーして、
それから処理したほうが、うまくいくみたいです。
ところで、タブキーでフォーカス移動しないように、
できません？この掲示板。
Dir関数を使えばいいんでしょうか？
こころはAPIのFindFirstFileを使用していますが。