[Creat0R]

Переделал немного функцию для удаления файлов из подкаталогов, чтобы она ещё возвращала значения...
если все файлы были найдены, то возвращается сообщение о том что всё прошло успешно, если какого-то файла не удалось удалить, то возвращается список тех файлов которых не удалось удалить - если каталоги небыли найдены, или сам путь не сущестсвует, то также возвращается сообщение об ошибке.

P.S.

Хотелось бы узнать, как можно построить функцию так, чтобы возвращалось значение в массиве (через _ArrayAdd полагаю), я пробовал сделать, но у меня почему то возвращается только первое значение (из $Results[1]) - если кто-то может показать как правильно строить массив на примере с этой функцией (для удаления), то буду очень признателен.

Код:

$Results = _DeleteFileInFolders($FileName, $Path)

MsgBox(64, "Results", "Results of deleting:" & @CR & $Results)

Func _DeleteFileInFolders($FileName, $Path)
    Local $ErrDelList
    If Not FileExists($Path) Then Return "The destination folder <" & $Path & "> was not found"
    $ErrDelete1 = FileDelete($Path & "\" & $FileName)
    $DirsList = _DirListToArray($Path)
    If IsArray($DirsList) Then
        If $DirsList[0] = 0 And $ErrDelete1 = 0 Then Return "There is no file <" & $FileName & "> in the destination folders, and  in there is no folders in the destination path <" & $Path & ">"
        For $i = 1 to $DirsList[0]
            $ErrDelete2 = FileDelete($DirsList[$i] & "\" & $FileName)
            If $ErrDelete2 = 0 And FileExists($DirsList[$i] & "\" & $FileName) Then
                If $ErrDelete1 = 0 And FileExists($Path & "\" & $FileName) And StringInStr($ErrDelList, $Path & "\" & $FileName) = 0 Then $ErrDelList = $ErrDelList & @CR & "Can not delete the file <" & $Path & "\" & $FileName & ">"
                $ErrDelList = $ErrDelList & @CR & "Can not delete the file <" & $DirsList[$i] & "\" & $FileName & ">"
            ElseIf $ErrDelete2 = 0 And Not FileExists($DirsList[$i] & "\" & $FileName) Then
                If $ErrDelete1 = 0 And Not FileExists($Path & "\" & $FileName) And StringInStr($ErrDelList, $Path & "\" & $FileName) = 0 Then $ErrDelList = $ErrDelList & @CR & "File <" & $Path & "\" & $FileName & "> not found"
                $ErrDelList = $ErrDelList & @CR & "File <" & $DirsList[$i] & "\" & $FileName & "> not found"
            EndIf
        Next
        If $ErrDelList <> "" Then
            Return $ErrDelList
        ElseIf $ErrDelete1 = 0 Then
            Return "There is no file <" & $FileName & "> in the destination path <" & $Path & ">"
        Else
            Return "All files in the destination folder (and in his subfolders) was secceseful deleted!"
        EndIf
    Else
        Return ""
    EndIf
EndFunc

Доброго времени суток!

Интересует следующее - можно ли при помощи AutoIt скрипта сделать следуюющее.
Пользователь входит в систему, появляэтся переменная окружения %USERNAME%=zzz_aaa, где zzz - группа пользователя, aaa - инициалы пользователя.
Нужно получить только группу пользователя, и ввести в систему новую переменную set USERGROUP=zzz.
Вопрос каким образом можно взять из имени пользоваетля только группу.

Спасибо.
З.Ы. Имя пользователя находится в актив директори.

[Creat0R]

Sla8ak

каким образом можно взять из имени пользоваетля только группу

Нужно разделить значение переменной по разделителю _, и взять первое значение из массива - а прописать новую переменную, думаю можно через EnvSet()...

Код:

$SplitUserName = StringSplit(@UserName, "_")

If IsArray($SplitUserName) Then
    $UserGroup = $SplitUserName[1]
Else
    $UserGroup = @UserName
EndIf

EnvSet("USERGROUP", $UserGroup)
EnvUpdate()

[sattva]

С помощью какой команды можно переименовывать файлы!!? Например wgatray.exe в wgatray.exe.old.

[Creat0R]

sattva

С помощью какой команды можно переименовывать файлы!!?

Как таковой, команды для переименования нет. Но для этой цели используется команда перемещения файла (FileMove()) в том же каталоге...

Код:

FileMove("wgatray.exe", "wgatray.exe.old")

-----------------------------------------
У меня есть такой вопрос:

-Возможно ли в GUI, построить реальную ссылку, на которую можно было бы нажать, и она открывалась в браузере (желательно чтобы был выбор с каким браузером запускать)?

Доброго времени суток.

Интересует следуюющий вопрос: каким образом при помощи AutoIt-скрипта можно перенаправить (переназначить) папку "Мои документы" в другое место, например на сетевой ресурс.

Заранее спасибо.

[Djons]

Vadikan

Как конвертировать в код AutoIt v3 вот такой CMD скрипт?
Будь добр, приведи код готового скрипта.

Код:

FOR %%I IN (C D E F G H I J K L M N O P Q R S T U V W X Y Z) DO IF EXIST %%I:\PROG.EXE SET path=%%I:\;%path%
reg add "HKLM\SYSTEM\ControlSet001\Control\Session Manager\Environment" /v Path /t REG_SZ /d %path% /f
reg add "HKCU\Environment" /v Path /t REG_SZ /d %path% /f

[Creat0R]

Sla8ak

каким образом при помощи AutoIt-скрипта можно перенаправить (переназначить) папку "Мои документы" в другое место

Можно через реестер...

Код:

$NewMyDocsPath = "C:\MyDocs"
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths", @UserName, "REG_SZ", $NewMyDocsPath)

Djons

Как конвертировать в код AutoIt v3 вот такой CMD скрипт?

Конвертировать, как мне самому недавно выяснилось (тут я тоже задавал подобный ворос), нет возможности, но можно написать что-то подобное...

Код:

$AllDrivesVar = DriveGetDrive("all")

For $i = 1 to $AllDrivesVar[0]
    If $AllDrivesVar[$i] <> "a:" And $AllDrivesVar[$i] <> "b:" And FileExists($AllDrivesVar[$i] & "\PROG.EXE") Then EnvSet("PATH", $AllDrivesVar[$i] & "\;" & EnvGet("PATH"))
Next

Если PROG.EXE будет существовать в нескольких дисках, то и эти диски будут добавлены в переменную PATH.

[bes1de]

есть скрипт autoit_KIS.exe .для запуска нужен еще и AutoIt3.exe ? или скрипт сам по себе?

[Creat0R]

bes1de

.для запуска нужен еще и AutoIt3.exe ? или скрипт сам по себе?

Закомпелированный скрипт не нуждается ни в каких компонентах со стороны AutoIT.