@cholok, post #4
@Dopuser, post #5
.Key PathAN/A,ArcName/A,DestDir/A,TempDir .Bra { .Ket } FailAt 21 ; PathAN - katalog, w którym znajduje się archiwum do przerobki (+nazwa archiwum) - dla DO będzie to {fu} ; ArcName - nazwa archiwum do przepakowania - dla DO będzie to {o} ; DestDir - katalog, w którym zapiszemy archiwum 7zip - dla DOpusa będzie to {d} ; TempDir - Katalog tymczasowy dla przepakowywanych plików - domyslnie T: - tu mozna poleciec DOpusowym {Rd} IF {TempDir}Brak EQ Brak SetEnv Arc27zTempDir T: ELSE SetEnv Arc27zTempDir {TempDir} ENDIF CD $Arc27zTempDir MakeDir Arc27zTD >NIL: IF WARN Delete Arc27zTD ALL FORCE >NIL: MakeDir Arc27zTD >NIL: ENDIF xadUnFile {PathAN} Arc27zTD >NIL: CD Arc27zTD ; Dokładna składnia dla 7zip - patrz dokumentacja archiwizera 7z a -r {DestDir}{ArcName}.7z 7z t {DestDir}{ArcName}.7z IF NOT WARN CD $Arc27zTempDir Delete Arc27zTD ALL FORCE >NIL: ELSE ECHO "Archiwum 7zip uszkodzone. powtórz operację" CD $Arc27zTempDir Delete Arc27zTD ALL FORCE >NIL: CD {DestDir} Delete {ArcName}.7z FORCE >NIL: ENDIF
@APC74, post #6
@APC74, post #8
@APC74, post #6
@Dopuser, post #10
@Dopuser, post #10
@Dopuser, post #17