[решено] GetCurrentDirectory

[semiono]

Наверное нету в AutoIt3 такой фитчи? Мне надо чтоб:



Код:

Код: Выделить всё

FileSetAttrib(@ScriptDir,"-RASHNOT",1)
FileSetAttrib(@ScriptDir,"-RASHNOT",1)
FileSetAttrib(@ScriptDir,"-RASHNOT",1)
FileSetTime(@ScriptDir,"20010101000000",0,1)
FileSetTime(@ScriptDir,"20010101000000",1,1)
FileSetTime(@ScriptDir,"20010101000000",2,1)
Exit

выполнялся в текущей директории... а не там где скрипт расположен... хотя может если убрать @ScriptDir... щас посмотрю... ??

кстати, неудобство в том что в FileSetTime("", "", 0+1+2=3, 1) не поддерживается и даже странно!

[proxy]

Цитата semiono:



выполнялся в текущей директории... а не там где скрипт расположен... хотя может если убрать @ScriptDir.

[решено] GetCurrentDirectory

не убрать, а заменить на нужный адрес папки, пример:



Код:

Код: Выделить всё

FileSetAttrib("c:\dir1","-RASHNOT",1)

или Вы про макрос @WorkingDir?

тогда так:

Код:

Код: Выделить всё

FileSetAttrib(@WorkingDir,"-RASHNOT",1)

верно, FileSetTime("", "", 0+1+2, 1) - не проканает.



думаю нет смысла 3 раза:



Код:

Код: Выделить всё

FileSetAttrib(@ScriptDir,"-RASHNOT",1)
FileSetAttrib(@ScriptDir,"-RASHNOT",1)
FileSetAttrib(@ScriptDir,"-RASHNOT",1)

если они полностью одинаковые - хватит один раз.



если ооооооочень много файлов, того возможно сделать ручной поиск каждого файла,

и при нахождении очередного сразу выставлять ему время открытия, создания, last доступа.

[proxy]

Код:

Код: Выделить всё

#include 
;Папка аутоита
$AutoItPath = StringRegExpReplace(@AutoItExe, '\\[^\\]+$', '')
$DirsArray = DirListToArray($AutoItPath, 1)
_ArrayDisplay($DirsArray)
Func DirListToArray($sPath, $iWithFolder=0, $sRootPath=1)
    $sPath = StringRegExpReplace($sPath, '\\+$', '')
    Local $aRetArray[1], $aSubDirsArr, $sFindNextFile, $sCurrentPath
    Local $sFindFirstFile = FileFindFirstFile($sPath & "\*.*")
    If @error = 1 Then Return SetError(1, 0, -1)
    If $iWithFolder == 1 AND $sRootPath == 1 Then
        $aRetArray[0] += 1
        ReDim $aRetArray[$aRetArray[0]+1]
        $aRetArray[$aRetArray[0]] = $sPath
;~      _Set_Attrib_And_Time($sPath)
    EndIf
    If $sRootPath = 1 Then
        ReDim $aRetArray[2]
        $aRetArray[1] = $sPath
    EndIf
    While 1
        $sFindNextFile = FileFindNextFile($sFindFirstFile)
        If @error = 1 Then ExitLoop
        $sCurrentPath = $sPath & "\" & $sFindNextFile
        If StringInStr(FileGetAttrib($sCurrentPath), "D") Then
            If $iWithFolder == 1 Then
                $aRetArray[0] += 1
                ReDim $aRetArray[$aRetArray[0]+1]
                $aRetArray[$aRetArray[0]] = $sCurrentPath
;~              _Set_Attrib_And_Time($sCurrentPath)
            EndIf
            $aSubDirsArr = DirListToArray($sCurrentPath, $iWithFolder, 0)
            If IsArray($aSubDirsArr) Then
                For $i = 1 To $aSubDirsArr[0]
                    $aRetArray[0] += 1
                    ReDim $aRetArray[$aRetArray[0]+1]
                    $aRetArray[$aRetArray[0]] = $aSubDirsArr[$i]
                Next
            EndIf
        Else
            $aRetArray[0] += 1
            ReDim $aRetArray[$aRetArray[0]+1]
            $aRetArray[$aRetArray[0]] = $sCurrentPath
;~          _Set_Attrib_And_Time($sCurrentPath)
        EndIf
    WEnd
    FileClose($sFindFirstFile)
    Return $aRetArray
EndFunc
Func _Set_Attrib_And_Time($sPath)
    FileSetAttrib($sPath,"-RASHNOT",1)
    FileSetTime($sPath,"20010101000000",0,1)
    FileSetTime($sPath,"20010101000000",1,1)
    FileSetTime($sPath,"20010101000000",2,1)
EndFunc

закомментированные строчки вызов функции для установки атрибутов и времени.

применять на папку AutoIt (которая обрабатывается в этом примере) не рекомендуется.

оригинал функции.