[MONaH Rasta]

Поправил 1 строку и всё заработало, как я хотел (подсказали на другом форуме).

Код:

    RunWait(@ComSpec & ' /c ' & $K & $Archivate & $K, "")

Так же подправил код, чтобы сам себя скрипт не удалял. Выкладываю, может пригодится кому-нить...

Архивируем каждый файл в текущей папке (кроме самого себя) в отдельный архив и удаляем файл после архивации

Код:

$K='"'
$DEL = "DEL /F /Q "
$7z = '7-Zip\7z.exe'
$ArchOptions = ' -mmt -ms=off'
$CurrentDir= @ScriptDir & '\'
$ProgramFilesDir = @ProgramFilesDir & '\'
$ArchiveName = '\/:*?"<>|'

$Search = FileFindFirstFile("*.*")

If $Search = -1 Then
	Exit
EndIf

While 1
	$File = FileFindNextFile($Search)

	If @error Or $File = "" Then
		ExitLoop
	ElseIf $File = @ScriptName Or $File = $ArchiveName Then
		$File = FileFindNextFile($Search)
		If @error Or $File = "" Then
			ExitLoop
		EndIf
	EndIf

	$ArchiveName = $File & '.7z'
	$Archivate = $K & $ProgramFilesDir & $7z & $K & ' a -mx9 ' & $K & $ArchiveName & $K & ' ' & $K & $File & $K & $ArchOptions

	Archivate($File)
WEnd

Func Archivate($File)
	RunWait(@ComSpec & ' /c ' & $K & $Archivate & $K, "", @SW_HIDE)
	RunWait(@ComSpec & ' /c ' & $DEL & $K & $CurrentDir & $File & $K, "", @SW_HIDE)
EndFunc

FileClose($Search)

Благодарю всех откликнувшихся!