[Iska]

Код:

$Archivate = """" & $ProgramFilesDir & $7z & """ a -mx9 """ & $ArchiveName & """ """ & $File & """ " & $ArchOptions

[MONaH Rasta]

Код:

"TEST" не является внутренней или внешней командой, исполняемой программой или пакетным файлом.

D:\Program Files\AutoIt3\M\TMP>

И так столько раз, сколько файлов в папке. Скрипт в том числе самоуничтожается

список файлов в папке:

• TEST.au3
• TEST - копия.au3
• TEST - копия (4).au3
• TEST - копия (5).au3
• TEST - копия (6).au3

[madmasles]

"""" можно заменить на '"'
Я, обычно, так и делаю.

[MONaH Rasta]

я только не понял чем мой метод не угодил...

[Iska]

И так столько раз, сколько файлов в папке. »

Уберите вовсе «@ComSpec & ' /c ' & » из RunWait(). Удаляйте при помощи «FileDelete()».

Скрипт в том числе самоуничтожается »

А Вы что ожидали? Что каким-то чудом этого не произойдёт?

[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)

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

[MONaH Rasta]

«Правильная версия»

Код:

#include <File.au3>

$CurrentDir= @ScriptDir
$ArchOptions = ' -mmt -ms=off'
$7z = StringReplace(RegRead('HKLM\Software\7-Zip','Path')&'\','\\','\') & '7z.exe'
If $7z = "\7z.exe" Then $7z = StringReplace(RegRead('HKLM64\Software\7-Zip','Path')&'\','\\','\') & '7z.exe'

$ver = StringReplace(FileGetVersion($7z),'.','')
If $ver > 92500 Then $ArchOptions &= ' -sdel'

$arrayFile=_FileListToArray($CurrentDir,'*',1)
If @Error Then Exit

For $a=1 To $arrayFile[0]
    If $arrayFile[$a] <> @ScriptName AND _FileGetExt($arrayFile[$a]) <> ".7z" Then _Archivate($arrayFile[$a])
Next

Func _FileGetExt($sPath)
    Local $NULL, $sExt
    _PathSplit($sPath, $NULL, $NULL, $NULL, $sExt)
    Return $sExt
EndFunc

Func _Archivate($File)
    $err = RunWait('"' & $7z & '" a -mx9 "' & $File & '.7z" "' & $File & '"' & $ArchOptions)
    If $err = 0 AND $ver <= 92500 Then FileDelete($File)
EndFunc