مشکل در XceedZip

[dr_g]

با سلام
من از دستورات زیر برای زیپ کردن فایل با استفاده از XceedZip استفاده می کنم
Dim ResultCode As xcdError



"XceedZip1.FilesToProcess = App.Path & "\Backup\data\" & "Ejare.mdb
"XceedZip1.ZipFilename = App.Path & "\Backup1.zip

ResultCode = XceedZip1.Zip
If ResultCode = xerSuccess Then
"MsgBox "Files zipped successfully
Else
(MsgBox XceedZip1.GetErrorDescription(xvtError, ResultCode
End If


ابن دستورات درست کار می کنه.ولی هنگامی که فایل زیپ بشه.مسیر برنامه به عنوان مسیر فایل در نظر گرفته می شه.دوستانی که با XceedZip کار کردند حتما متوجه سوال من شده اند

Please help me
ممنونم

[h_a_1970]

با استفاده از فرمان
XceedZip1.ProcessSubfolders = False
مسير فايل در نظر گرفته نمي شود .