Dir の使い方は、最初のファイルのマッチング(検索)には、必ずFileSpecを記述して使い、2個目以降は FileSpec等は省略し、Dir 単独で使います。マッチングするファイルが見つからない時はNullが返されます。 あるディレクトリにある全てのEXCELファイルを検索するには、以下のコーディングが標準形となります。 Filename = Dir ("*.xls", vbNormal) '�@ Do While Filename <> "" ' ' 処理 ' Filename = Dir () Loop たとえば、Cドライブにある全てのフォルダ名を取得したければ、�@の部分を以下のように記述すれば いいわけです。 Dirname = Dir ("C:\" ,16) 2 実用例 ある作業用のフォルダをりMOにバックアップしたり、あるいは2箇所(のPC)で作業