関数は自分で作る

VBのDir関数は、初めにワイルドカード*や?どちらも半角文字。 ワイルドカード*は、何の文字で何文字でもいいという意味。?は任意の一文字）を使ってファイルを検索し、続いて引数無しでDir関数を実行して、他に該当するファイルやフォルダ（ディレクトリ）がある場合は、その名前を返す。以下は、ドキュメントフォルダにa.xlsmとb.xlsmのファイルがあること前提にしている。

以下はイミディエイトウィンドウに入力している。

?vba.Curdir                       'カレントフォルダの確認
c:\users\take\documents       'takeはログインユーザ名
?vba.Dir("*.xls*")             'カレントフォルダにExcelのファイルがあるか
a.xlsm
?dir    '２回目のDir関数に引数が無い場合は、前のワイルドで検索を続ける
b.xlsm
?dir
       '””が返るともう見つからないという意味
vba.FileCopy  "c.xlsm","x.xlsm"     'コピーしてx.xlsmにする。
?dir("x.xlsm")           'ファイルがコピーされているか確認
x.xlsm
vba.Kill "x.xlsm"　　'ワイルドカード禁止。ごみ箱には入らない
?dir("x.xlsm")
                            ：削除済み

次のコードは標準モジュールに書く。ファイルの一覧を文字列で出力する関数。フルパスのファイル名を改行（vbCrLf）コードで挟んで文字列を返す関数。

'パスとファイル（ワイルドカード）を渡して一覧を改行コード区切りで文字列を返す
Function myDir(path As String, file As String) As String
    Dim s As String
    If VBA.Right(path, 1) <> "\" Then path = path & "\" '￥マークが最後に付いてない場合は￥を付ける
    s = VBA.Dir(path & file)
    Do Until "" = s '空白文字はもう該当のファイルが無いという意味
        If "" = myDir Then       '最初か
            myDir = path & s
        Else
            myDir = myDir & VBA.vbCrLf & path & s    'vbCrLfは改行の定数
        End If
        s = VBA.Dir()
    Loop
End Function
'?mydir(curdir,"*.xls*")

実行すると、拡張子がxlsを含むファイルを検索し、検索結果の文字列を改行コードで挟んで（区切り文字）にして表示する。

以下は、イミディエイトウィンドウ。

?mydir(vba.Curdir,"*.xls*")
C:\Users\take\Documents\a.xlsm
C:\Users\take\Documents\b.xlsm

プログラムで使う場合はar=Split(myDir(??,??),vbCrLf)で配列arに入れて処理する。

カレンドとは今選んでいるっていう意味。カレントフォルダ/カレントディレクトリとは今いるフォルダ/ディレクトリのこと。

Excelは２つのカレントフォルダがある。

1. VBAのカレントフォルダ
2. Excelのカレントフォルダ。ファイルを保存するまでカレントフォルダは無い。

各カレントフォルダの確認は、イミディエイトウィンドウなら以下でできる。

?vba.Curdir
?excel.ThisWorkbook.FullName

Excelオブジェクトの方は、保存したらカレントフォルダが決まる。それまでは、ファイル名だけ。

ついでに、VBA.Shellでエクスプローラー/explorerを起動するとビジュアル的にわかりやすいかな？

VBAのライブラリのFileSystemモジュール（Module、VBEの標準モジュールに相当）に定義されている。

Moduleアイコンのメンバーは、Classのようにプロパティは無い。Moduleのメンバーは、SubかFunctionプロシージャで定義されている。入力時に？やカッコが必要かどうかは、入力時の引数のヒントから判断できる。Funcitonプロシージャは、戻り値の型があるので（）と戻り値を出力するために？も入力する。

メンバーは大きく分けると以下のようになる。
ファイル操作
Dir,FileCopy,FileDateTime,FileLen,Kill,Name
フォルダ（ディレクトリ）操作
Dir,CurDir,ChDir,ChDrive,MkDir,RmDir,Name

名前の変更と移動は、Nameステートメントが使える。Nameは、Dimなどと同じステートメントなのでオブジェクトブラウザでは見つからない。つまり、VBA. FileSystemのメンバーでは無い。

「Name　名前変更前　As　名前変更後」とAsを使う。FileCopy関数のように「,」カンマ区切りでは無い。