質問: dir() loop end sub ------------------------------------------------------------------------ これが実現できないと細かい作業を毎日繰り返す事となり、 かなり業務不可が高いです。。 繰り返しになってしまいますが、どなたかご回答よろしくお願い致します。
回答: そりゃそうでしょう。 かなり間違った解釈をされています。 >buf = dir("*.*", vbdirectory) bufはstring型ですから、一つのファイル名しか入りませんよ。 それに複数のファイル名を入れようとしているんですからエラーになって当然ですね。 >do while buf <> "" この解釈も同様の誤りに起因しています。 まずはファイル名を一つ一つ取り込むプログラムを書かれてはいかがでしょう。 ここでこういう風にプログラム書いたら良いよってのは匿名でやっている関係上責任持てませんので出来ません。あくまでも自助努力のお助けをするだけです。