Что нового

[Файловая система] Создание Архива с условиями

nomad_soul

Новичок
Сообщения
3
Репутация
0
Версия AutoIt: v3.3.10.2

Описание:
Есть текстовики которые формируются в 3-х папках из 3-х программ имя у них цифровое и постоянно меняется
необходимость добавить его в архив присвоив определённое имя архива а сами файлы переместить в определённую папку
Примечания:
иногда формируется в 1 или 2 определённых папках
Подскажите как это сделать начало у меня уже есть с автоматизацией программ проблема с архивами ?
 
Автор
N

nomad_soul

Новичок
Сообщения
3
Репутация
0
[Файловая система] Re: [Файловая система] Создание Архива с условиями

Решение найдено
 
Автор
N

nomad_soul

Новичок
Сообщения
3
Репутация
0
[Файловая система] Re: [Файловая система] Создание Архива с условиями

Шаблон
Код:
Global Const $RarExeFilePuth = "C:\Program Files\WinRAR\rar.exe"
; Модуль Архивация
Func RAR_AddFiles($Archive, $File, $Compress=3, $DelFilesMode=0, $ExecutePuths=1, $Protect=0, $Password="", $Continuous=0, $SFX="", $Delims=0, $OldDelimsSh=0, [email protected])
If $DelFilesMode = "0" Then $DelFilesMode=""
If $DelFilesMode = "1" Then $DelFilesMode="-df "
If $DelFilesMode = "2" Then $DelFilesMode="-dr "
If $DelFilesMode = "3" Then $DelFilesMode="-dw "
	If $ExecutePuths = "0" Then $ExecutePuths = ""
	If $ExecutePuths = "1" Then $ExecutePuths = "-ep "
	If $ExecutePuths = "2" Then $ExecutePuths = "-ep1 "
	If $ExecutePuths = "3" Then $ExecutePuths = "-ep2 "
	If $ExecutePuths = "4" Then $ExecutePuths = "-ep3 "
If $Protect = "0" Then $Password = ""
If $Protect = "1" Then $Password = '-p"'&$Password&'" '
If $Protect = "2" Then $Password = '-hp"'&$Password&'" '
	If $Continuous = "0" Then $Continuous = ""
	If $Continuous = "1" Then $Continuous = "-s "
If $SFX = "0" OR $SFX = "" Then
$SFX = ""
Else
$SFX = '-sfx"'&$SFX&'" '
EndIF
	If $Delims = "0" OR $Delims = "" Then
	$Delims = ""
	Else
	$Delims = "-v"&$Delims&" "
	EndIF
If $OldDelimsSh = "0" Then
$OldDelimsSh = ""
Else
$OldDelimsSh = "-vn "
EndIF
	If $TempDir = "0" Then
	$TempDir='-w"'&@TempDir&'" '
	Else
	$TempDir='-w"'&$TempDir&'" '
	EndIF
$Archive = '-y "'&$Archive&'" '
$File = '"'&$File&'"'
	Local $StartCmdLine = $RarExeFilePuth&' a '&$DelFilesMode&$ExecutePuths&$Password&$Continuous&$SFX&$Delims&$OldDelimsSh&$TempDir&$Archive&$File
	Return RunWait ($StartCmdLine, @WorkingDir, 0)
EndFunc

; Создание конфига

If Not FileExists (@ScriptDir &"\cfg.ini") Then
	$MDir1 = FileSelectFolder ("Укажите путь к папке с ","",7)
	$RDir1 = FileSelectFolder ("Укажите путь к папке с ","",7)
	

	IniWrite(@ScriptDir &"\cfg.ini", "MAILEX1", "key1",$MDir1 )
	IniWrite(@ScriptDir &"\cfg.ini", "Reestr1", "path1",$RDir1 )
	
Exit
EndIf




; Чтение конфига

$var1 = IniRead(@ScriptDir &"\cfg.ini", "MAILEX1", "key1", "Not found")


$set1 = IniRead(@ScriptDir &"\cfg.ini", "Reestr1", "path1", "Not found")



$time = @YEAR &("_")& @MON

; получение имени архива

$text1 = FileReadLine ($var1 & "\Stcodes.txt",2)


$pass = "*******"

; Свернуть окна

Send("#m")

; Первый запрос

; Проверка наличия записи в конфиге

If IniReadSection (@ScriptDir &"\cfg.ini", "MAILEX1") Then
Exit
Else

; Запуск программы

ShellExecute($var1 &"\*.exe")

; Выполняемые команды 



; Команда архивации
RAR_AddFiles(@DesktopDir &"\"& $text1 &".rar", $set1 &"\*.txt",3,0,1)

; проверка наличия каталога и создание при отсутствии
 
If DirGetSize ($set1 &"\"& $time) Then
DirCreate ($set1 &"\"& $time)
EndIf

; Перемещение остаточных файлов в резерв

FileMove ($set1 &"\*.txt",$set1 &"\"& $time,1)

EndIf
 
Верх