Что нового

Работа с файлами

Des

Новичок
Сообщения
7
Репутация
0
Нужен простой скриптик. Выделяю сам три файла, нажимаю клавишу и они помещаются в архив. Имя архива должно состоять из имена одного из этих трех файлов. Как реализовать операцию именно над выделенными файлами, то есть какая-то проверка должна быть. И как имя одного из них скопировать для имени архива?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Дописал на основе из этого сообщения от joinerhttp://autoit-script.ru/index.php?topic=23126.msg133926#msg133926
Код:
#include <Array.au3>
#include '_Zip.au3'

Local $fd = FileOpenDialog('Выберите несколько файлов', @ScriptDir, '(*)', 6)
If @error Then Exit
Local $sd = StringInStr($fd, '|', 0, 1)
If $sd Then
	Local $gp = StringLeft($fd, $sd - 1)
	Local $str = StringReplace($fd, '|', '*' & $gp & '\')
	Local $sc = StringTrimLeft($str, $sd)
	Local $res = StringSplit($sc, '*')

	$Zip_Name = StringRegExpReplace($res[1], '^(?:.*\\)([^\\]*?)(?:\.[^.]+)?$', '\1')
	$Zip_File = _Zip_Create(@ScriptDir & '\' & $Zip_Name & '.zip', 1)
	For $i = 1 To $res[0]
		_Zip_AddItem($Zip_File, $res[$i])
	Next

EndIf
На всякий случай прикрепил библиотеку "_Zip.au3"
 

Вложения

  • _Zip.au3
    44.1 КБ · Просмотры: 8
Верх