Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
Function ZipFile(strSource,strTarget) Const ForReading = 1, ForWriting = 2, ForAppending = 8 'write zip file header set file = fso.opentextfile(strTarget,ForWriting,true) file.write "PK" & chr(5) & chr(6) & string(18,chr(0)) file.close 'copy source file to zip file set shl = CreateObject("Shell.Application") shl.namespace(strTarget).copyhere(strSource) do until shl.namespace(strTarget).items.count = 1 wscript.sleep 100 loop set shl = nothing End Function
|VB Script: restart a service / check the status before launching start action||5||40|
|Decompiler for vb and vb.net - Visual Studio community edition||9||49|
|VBA clear all check boxes||14||32|
|how to pick files up from ftp via script||8||39|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!