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