Vbs script error need help
Hi All,
This code is for zipping files in a folder and get this error
—————————
Windows Script Host
—————————
Script:F:Zip.vbs
Line:6
Char:1
Error:Type mismatch: 'strWinzip'
Code:800A000D
Source: Microsoft VBScript runtime error
—————————
OK
—————————
strDate = Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
strFolderToZip = "F:test"
strZipFileToCreate = "F:testSubfolder_" & strDate & ".zip"
strWinzip = "C:Program FilesWinZipWinzip32.exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strWinZip objFSO.GetFile(strWinZip).ShortPath
strCommand = strWinzip & " -min -a -r """ & strZipFileToCreate & """ """ & strFolderToZip & """"
objShell.Run strCommand, 1, True
MsgBox "Done"
Can anyone help please