Jump to content

My vbscript only shows folders, not files. The script should zip en write the files in the folder.


Frans
 Share

Recommended Posts

Who can help me!!

CronDatum = datepart("yyyy",Now()) & Right("0" & DatePart("m",Now()),2) & Right("0" &
DatePart("d",Now()),2)& "_"
Const Locatie_1 = "path + directory\"
Const Locatie_2  = "Paht + script.vbs"
Const NotZipDir_1  = "bestanden"
Const NotZipDir_2  = "backup xx"
Const NotZipDir_3  = "Backup vanaf 2-10-2012"
Const NotZipDir_4  = "Rapportage"
Const Extentie_Zip  = "*.zip"
Const AddChar  = "*_"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
on error resume next
Set currentFolder = fso.GetFolder(Locatie_1)

For each folder in currentFolder.SubFolders
 zipName = folder.Name + ".zip"
 if folder.Name = NotZipDir_1 OR folder.Name = NotZipDir_2 OR folder.Name = NotZipDir_3 OR folder.Name = NotZipDir_4 then
 else
        fso.CreateTextFile(zipName, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
        Set zipFile = fso.GetFile(zipFolder + zipName)
        Set source = objShell.NameSpace(folder.Path).Items
        objShell.NameSpace(zipFile.Path).CopyHere(source)
  end if
Next

wScript.Sleep 2000
on error resume next
fso.CopyFile Locatie_2 + AddChar + CronDatum + Extentie_Zip, Locatie_1, true
fso.DeleteFile Locatie_2 + Extentie_Zip'

Link to comment
Share on other sites

  • Moderators

Frans,

Welcome to the AutoIt forums, but would you not be better served by posting on a VBScript forum?

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...