把Folder內的所有Folder壓縮(編號：3626)

我已經參考了紀文和先生有關zip檔案的文章.
但是仍然不大懂得怎樣才能可以把Folder內的所有Folder壓縮
(包括有Folder和Files).
'Example　Files
'C:\First\MyProgram.exe
'C:\First\MyData\File1.txt
'C:\First\MyData\Folder1\File1.txt
'C:\First\MyData\Folder2\File1.txt
'C:\First\MyData\Folder3\File1.txt
' 這是我的code
wzipexe = "C:\program files\winzip\WINzip32"
wtarget = "C:\First\MyData.zip"
wsource = "C:\First\MyData"
wcmd = wzipexe & " -a " & wtarget & " " & wsource
retval = Shell(wcmd, 6)
我只能zip到Mydata之下的File1.txt,
而不能zip到Mydata內的所有files(包括有Folder和Files)
各位,可不可以給我點議建??