>Stefan, there is no problem in codes. but i want only zip , cdx and dbf files from a folder. Because in i folder there are many diffrent types of files are presnt.
>lcSource = "F:\project\school\*.cdx"
>thanks

What I meant is that you can skip those files which do not match your criteria, e.g.:

For Each ofile In oShell.NameSpace(m.lcSource).items
	If Lower(JustExt(m.oFile.Name)) == 'cdx'
		oShell.NameSpace(m.lcZipFileName).copyhere(ofile)
	Endif
Endfor

hth
-Stefan