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

  • Question

  • 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'

    Thursday, July 16, 2020 6:14 AM

Answers