VBスクリプトを使って特定フォルダ配下のファイル一覧を取得する方法

特定フォルダ配下のファイル一覧を取得するスクリプトです。
例えば以下の例だと[C:\Windows]フォルダ配下のファイル一覧を取得して表示します。

指定した階層までディレクトリ一覧を取得する場合は以下のように指定します。
Query_Directoryの後ろの数値が0の場合は1階層目まで、1の場合は2階層目まで取得出来ます。