Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

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

Status
Not open for further replies.

frans13

Technical User
Jul 16, 2020
1
NL
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'
 
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??

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top