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

[frans13]

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'

 

[guitarzan]

First, get rid of the "on error resume next", it suppresses errors (which doesnt help)

Second, the CONST commands are totally wrong... and so much else... looks like multiple copy/pastes from other vbscript code??

What are you trying to do??