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

[Frans]

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'

[Melba23]

Frans,

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

M23