Public Sub CleanCSS()
startTime = DateTime.Now
oldLength = File.Size(File.GetFileParent(mCSSFilename), File.GetName(mCSSFilename))
Dim shlCompress As Shell
shlCompress.Initialize("shlCleancss", "cmd.exe", Array("/c", "cleancss", File.GetName(mCSSFilename)))
shlCompress.WorkingDirectory = File.GetFileParent(mCSSFilename)
shlCompress.Run(10000)
StartMessageLoop
End Sub
Public Sub getCSSFilename() As String
Return mCSSFilename
End Sub
Public Sub setCSSFilename(Value As String)
mCSSFilename = Value
End Sub
Private Sub shlCleancss_ProcessCompleted(Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Try
endTime = DateTime.Now
If Success Then
If StdOut.Length > 0 Then
newLength = StdOut.Length
Log("File Name: " & File.GetName(mCSSFilename))
Log("Length (before): " & oldLength & " Bytes")
Log("Length (after): " & newLength & " Bytes")
Log("Bytes saved: " & (oldLength - newLength) & " Bytes")
Log("Time: " & (endTime - startTime) & " milliseconds")
File.WriteString(File.GetFileParent(mCSSFilename), File.GetName(mCSSFilename), StdOut)
Else
LogError(StdErr)
End If
Else
LogError("Compress: Failed")
End If
Catch
Log(LastException)
End Try
StopMessageLoop
End Sub