あにすさん、レス有難うございます。
"第４９回　イベントの作成"じっくり読みこんでみます。

葉月さん、昨日のコードでいろいろ試しているのですが、配列の部分 
”For Each file In selectDirectory.GetFiles(strSearch & "*", IO.SearchOption.AllDirectories)”でエラーが出て前に進みません。

でも違う人が同じ目的のプログラムを書くと私のレベルでは全く違うものに見えて、勉強になります。
じっくり時間をかけて調べてみます。
　
あと、ファイルが見つからない時のメッセージには手こずっています。
ExistsメソッドやDir関数も試したのですが上手くいきません。
今は、ループ内から出して下にスクリプトを書いて試しています。
この場合は、ファイルがないので配列その物が出来ないのだからそこから判断させる方法を考えています。