VBscript로 7zip으로 로그 파일을 압축하십시오.

Question

누군가 내 스크립트를보고 내가 엉망이 된 곳을 알려주시겠습니까?

로그 파일을 압축하는 스크립트로 네트워크를 통해 공유 할 새 폴더로 옮기고 싶습니다. 지금 당장은 7zip을 올바르게 사용하여 파일을 압축하는 부분을 얻으려고합니다.

나는 2 일과 같이 VB에서 매우 익숙하다. 그래서 나는 약간의 구문 문제가 있다고 생각한다. 스크립트는 다음과 발견

모든 조언에 미리 감사하고 .LOG '필요한 경우, 당신은 단지와 파일을 이동할 수 있습니다 (각 파일을 로그 및 우편을 통해 루프 및 이동'

Option Explicit 

WScript.Echo "Press to start zipping log files." 

Dim objFile, objPath, objFolder, Command, PathLogs, RetVal 
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject") 
Dim objShell: Set objShell = CreateObject("WScript.Shell") 

PathLogs = "C:\Testscripts\testfolder\" 'This path just has some test logs 

도움 '확장자)

Set objPath = objFSO.GetFolder(PathLogs) 
For Each objFile In objPath.Files 
If (LCase(objfso.GetExtensionName(objFile)) = "log") Then 
    Wscript.Echo objFile.Name 
    ' zip and move files 
    'Command = """C:\Program Files\7-zip\7z.exe"" -m -ex """ & PathLogs &  \objFile.Name objfso.GetBaseName(objFile) & "*.zip"" """ & PathLogs & objFile.Name & """" 
    Command = ""C:\Program Files\7-zip\7z.exe"" a -m -ex " & PathLogs & "" & objFile.Name & ".zip " & PathLogs & "" & objFile.Name & " 
     WScript.Echo "Command: " & Command 
RetVal = objShell.Run(Command,0,true) 

End If 

Next 

WScript.Echo "Zip Successful." 

Answer 1

인용문이 잘못되었습니다. 문자열 내에서 따옴표를 사용하려면 따옴표를 복제해야합니다.

Command = """C:\Program Files\7-zip\7z.exe"" a -m -ex " _ 'this is the first part of the string 
      & PathLogs & objFile.Name & ".zip " & PathLogs & objFile.Name 

로그 파일이나 경로 로그에 공백이 포함될 수있는 경우 따옴표로 묶어야합니다.