[Creat0R]

хочется что бы можно было Эту папку архивировать и вынимать из архива »

А при чём тут прогресс копирования?

[Medic84]

Просто я когда создавал осознавал что архивирование мне не осилить... Поэтому начал спрашивать про копирование.

P.S. А как правильно написать. Мне нужно что бы программа проверила Путь в GUICtrlRead($A2) и если в нем нет папки \players, то выводит ошибку
Так не работает

Код:

If Not FileExists(GUICtrlRead($A2)&"\players") Then Return SetError(1, 0, -1)

[Creat0R]

Поэтому начал спрашивать про копирование. »

И это является офтопиком.
Архивирование можно осуществить через консольную программу 7zip. Ну или через COM-объект - Zip UDF.

Так не работает »

Что именно тут не работает?
Можно ещё так проверить:

Код:

If Not StringInStr(FileGetAttrib(GUICtrlRead($A2) & "\players"), "D") Then Return SetError(1, 0, -1)

Это для надёжности, иначе при наличии файла (не папки) с именем player (без расширения) тоже будет определена ошибка.

[Medic84]

Разобрался сам. И наверное последний вопрос. Уже 2 час бьюсь об это. Расскажу на русском языке.
При отсутствии папки \player msgbox выдает сообщение

Код:

If Not FileExists($Folder) Then MsgBox(4112,"Error", "Указана неверная папка!")

Но процесс продолжается. Не знаю еще как сделать. Думал поставить после

Код:

MsgBox(4112,"Error", "Указана неверная папка!")And EndFunc

Не проходит...

[Medic84]

Все! Спасибо Creat0R, я все сделал. Если хочешь посмотреть на программу, напиши сдесь. Я выложу.

[Creat0R]

Не проходит »

Эм... вот для того чтобы не гадать (проходит не проходит), справка по AutoIt и была написана .

[Medic84]

Ан нет. Не последний. Как вызвать окно выбора папок? Как вызвать выбор файлов знаю, а папок нет.

Код:

$file = FileOpenDialog("Выберите файл...",@ProgramFilesDir,"Zip (*.Zip)")

- Вызов диалога Open

[Medic84]

Аааа.. Что здесь не так??? Уже все волосы на голове выдергал!

Код:

$A1=GuiCtrlCreateInput("G:\Bakcup", 10, 180, 230, 20)
$A2=GuiCtrlCreateInput("G:\Call of Duty 4 - Modern Warfare\players", 10, 220, 230, 20)

Case $Button_A1 $Folder1 = FileSelectFolder("Выберите папку", "") StringReplace($Folder1,"G:\Bakcup", $A1) Case $Button_A2 $Folder2 = FileSelectFolder("Выберите папку", "") StringReplace($Folder2,"G:\Call of Duty 4 - Modern Warfare\players", $A2)

Новый заданный путь не прописывается в Input!

[SyDr]

Естественно.

StringReplace($Folder1,"G:\Bakcup", $A1)
Означает, прочесать строку $Folder1 на наличие в ней "G:\Bakcup" и если оно там есть - заменить на $A1

GUICtrlSetData ( $A1, $Folder1) вместо этого следует использовать

И ещё. Советую проверять. Вдруг в окне выбора папки нажата отмена.

[Creat0R]

Medic84,
Не надо всё кидать в кучу, есть вопросы разной тематики - создавайте соответственно новые темы (убедившись что подобной темы ещё нет).