私は VBScript を初めて使用します。ディレクトリ内のファイルを新しいディレクトリに抽出する簡単なスクリプトを作成しようとしています。これまでのところ、これは私が持っているものです（そしてうまくいきます）：
'USER VAR REPRESENTS WINDOWS USERNAME
Set oShell = CreateObject( "WScript.Shell" )
user=oShell.ExpandEnvironmentStrings("%UserName%")
'FOLDER TO BE EXTRACTED
ZipFile="C:\Users\"&user&"\Downloads\Test.zip"
'LOCATION TO EXTRACT FILES
ExtractTo="C:\Users\"&user&"\desktop"
'EXTRACT ZIP FILE
Set objShell = CreateObject("Shell.Application")
Set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing
Set oShell = Nothing
さて、できれば「Desktop」フォルダが見つからない場合や「Test.zip」ファイルが見つからない場合は、Cドライブを検索して解凍などを進めたいと思います。例ですが、それらを複製する方法がわかりません。これらのファイルの C ドライブ全体とサブ フォルダーを検索するにはどうすればよいですか?
事前に感謝します。