Results 1 to 2 of 2

Thread: My vbscript only shows folders, not files. The script should zip en write the files i

  1. #1

    Thread Starter
    New Member
    Join Date
    Jul 2020
    Posts
    1

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

    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'

  2. #2
    Fanatic Member
    Join Date
    Feb 2003
    Posts
    925

    Re: My vbscript only shows folders, not files. The script should zip en write the fil

    Quote Originally Posted by Frans13 View Post
    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'
    Hello Frans13, welcome to the forum!

    Check this link out: https://stackoverflow.com/questions/...ip-a-folder-up. Does this help?

    yours,
    Peter Swinkels
    Several projects of mine that used to be posted here can now be found at: https://github.com/PeterSwinkels

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width