Solved

vbs to compress file

Posted on 2010-11-17
3
524 Views
Last Modified: 2012-06-21
I have the code below that I obtained from EE, but it doesn't seem to work.   I want to be able to compress all the files in the "c:\prg" folder and run daily via scheduler.
strComputer = "chpcpsi.cmhhp.com"



dtmDate = Date - 1

strDay = Day(dtmDate)

If Len(strDay) < 2 Then

    strDay = "0" & strDay

End If

strMonth = Month(dtmDate)

If Len(strMonth) < 2 Then

    strMonth = "0" & strMonth

End If

strYear = Year(dtmDate)

strTargetDate = strYear & strMonth & strDay



Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")



Set FileList = objWMIService.ExecQuery _

( "ASSOCIATORS OF {Win32_Directory.Name='C:\prg'} Where " _

& "ResultClass = CIM_DataFile" )



For Each objFile In FileList

	strDate = Left(objFile.CreationDate, 8)

	If strDate < strTargetDate Then

		compress(objfile.name)

	End If

Next





MsgBox "done"







Function compress(strfile)

	Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

	Set objFile = objWMI.Get("Cim_Datafile='" & strFile & "'")

	strerr = objFile.Compress

	If strerr <> 0 Then

		compress = strFile & " There was an error compressing the file: " & strerr

	Else

		compress = strfile & " File compression successful"

	End If

End Function

Open in new window

0
Comment
Question by:epicazo
  • 2
3 Comments
 
LVL 5

Expert Comment

by:KenIBrown2
ID: 34159456
Im not an expert in vbs, but try using tried & tested generic debugging techniques to narrow down the problem:
If you have the ability to display message boxes etc or some other means of communicating the program's flow, choose key points and display intermediate results so you can narrow down where the problem lies ( you have not said exactly what the problem is), eg are there any files in filelist etc...
Once you know where the problem is, you can fix it and then remove the debugging stuff....
0
 

Accepted Solution

by:
epicazo earned 0 total points
ID: 34199047
what I meant by "it doesn't seem to work" is that i don't see the compressed file anywhere.   I searched for it, and no luck.
0
 

Author Closing Comment

by:epicazo
ID: 34324355
No suitable solution found.   Closed
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

My purpose is to describe the basic concepts of virtual memory as implemented in a modern Windows-based operating system. I will also describe the problems inherent in older systems and how virtual memory solves them. The dark ages - before virtu…
When you upgrade from Windows 8 to 8.1 or to Windows 10 or if you are like me you are on the Insider Program you may find yourself with many 450MB recovery partitions.  With a traditional disk that may not be a problem but with relatively smaller SS…
This video Micro Tutorial explains how to clone a hard drive using a commercial software product for Windows systems called Casper from Future Systems Solutions (FSS). Cloning makes an exact, complete copy of one hard disk drive (HDD) onto another d…
Windows 8 came with a dramatically different user interface known as Metro. Notably missing from that interface was a Start button and Start Menu. Microsoft responded to negative user feedback of the Metro interface, bringing back the Start button a…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now