Создание сайтов
Создание сайтов - отличный способ поддержать бренд уже известной компании, а также заявить о себе на стадии Start-Up. Доверьте создание сайта профессионалам и Ваш сайт станет источником увеличения прибыли компании.
Подробнее
Продвижение сайтов
Интернет-агентство ТОП10 предлагает воспользоваться услугами оптимизации сайтов, а именно продвижением сайтов в поисковых системах и контекстной рекламой, так как благодаря этому Ваш сайт найдут.
Подробнее
Тех. поддержка
Информация о вашей деятельности всегда должна быть актуальной. Именно поэтому обновление контента на сайте необходимо осуществлять своевременно, вслед за изменениями, в вашей организации.
Подробнее
Перебор всех файлов через AutoIt
Перебор всех файлов через AutoIt
Недавно столкнулся с задачей перебора всех файлов, включая содержимое подпапок, через AutoIt.
После перебора с каждым файлом необходимо было сделать определенный набор операций, в коде я их опущу и выкладываю чистый код для перебора.
Авторство назвать затрудняюсь - найдено на просторах интернета. В любом случае спасибо автору скрипта!
После перебора с каждым файлом необходимо было сделать определенный набор операций, в коде я их опущу и выкладываю чистый код для перебора.
Авторство назвать затрудняюсь - найдено на просторах интернета. В любом случае спасибо автору скрипта!
Код
#Include <File.au3>
Global $Text = ""
$timer = TimerInit()
_FindFiles('D:\WebServers\home\site.ru\www', '*.*')
$timer11=TimerDiff($timer)
MsgBox(0, '', $timer11)
$file = FileOpen(@ScriptDir&'\file.txt' ,2)
FileWrite($file, $text)
FileClose($file)
Exit
Func _FindFiles($sRoot, $sFile)
Local $FileList
$FileList = _FileListToArray($sRoot, $sFile, 1)
If Not @error Then
For $i = 1 To $FileList[0]
$filePathComplete = $sRoot & '\' & $FileList[$i]
; Действия для всех файлов вне папки bitrix и с расширением *.php
If Not(StringInStr($sRoot, "bitrix")) And StringRight($FileList[$i], 4) = ".php" Then
$Text &= $filePathComplete & @CRLF
; Некоторые действия с текущим файлом, адрес которого записан в $filePathComplete
EndIf
Next
EndIf
$FileList = _FileListToArray($sRoot, '*', 2)
If Not @error Then
For $i = 1 To $FileList[0]
_FindFiles($sRoot & '\' & $FileList[$i], $sFile)
Next
EndIf
EndFunc ;==>_FindFiles07.07.201307:507 Июля 2013 7:50
Ваше имя*
E-mail
Тема
Добавить файлы
#name#
#size#
#name#
Файлы:
Перетащите один или несколько файлов в эту область
или выберите файл на компьютере
или выберите файл на компьютере
Файлы:
Загрузить файлы
Код подтверждения (символы на картинке)*
Отправить