![]() ![]() Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)Įnd Sub ObjectSplit function Function ObjectSplit(sStr As Variant, sdelim As String) As VariantĪpplication. MsgBox "Opration fail due to : " & Err.DescriptionĮnd Sub CreateZip function Sub CreateZip(sPath) Range("Output").Hyperlinks.Add Anchor:=Range("Output"), Address:=zipFileName, ScreenTip:="Click to open zip file" OShellAppObj.Namespace(zipFileName).CopyHere oSelectedFileName(oCounter)ĭo Until oShellAppObj.Namespace(zipFileName).items.Count = KĪpplication.Wait (Now + TimeValue("0:00:01")) MsgBox "Processing failed file readonly found" Set oShellAppObj = CreateObject("Shell.Application")įor oCounter = LBound(oSelectedFileName) To UBound(oSelectedFileName) If IsArray(oSelectedFileName) = False Then MultiSelect:=True, Title:="Select File(s) - VBAOVERALL") OSelectedFileName = Application.GetOpenFilename(filefilter:="All Files, *.*", _ ZipFileName = oDefualtPath & "Zipfile " & GUID & ".zip" ODefualtPath = Application.DefaultFilePath Code example Sub ZipMultipleFileExample()ĭim oSelectedFileName, oFileArray, zipFileName Includes some third-party redistributables. Includes MS JET, WMI, MSXML, DAO, DCOM, MDAC, and WSH. Includes Visual Basic Extension (VBX) and unsupported Visual Basic 6.0 components. Includes Visual Basic 1.0 to 5.0 runtime library. In this article we will use VBA (Visual Basic for Applications) code. Easy to install and non-invasive (Compiled in Inno Setup) Updated Visual Basic 6.0 redistributables. A Zip file compressed using binary algorithms supported by mostly operating systems.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |