FileDelete не удаляет файлы.
- Автор темы Radik
- Дата начала
Radik
Попробуй указать путь как
PS: Указывать точные пути - не очень хороший стиль программирования. Они могут различаться на разных компьютерах, к тому же в семерке полно виртуальных папок - которые в проводнике определяются одним образом, а реально имеют совершенно иной путь\имя.
У меня XP и все удаляется нормально через FileDelete.
----------------------------------------------
Правильный путь до 'печенек' в семерке
а тот, что в проводнике - это символьная ссылка.
Попробуй указать путь как
Код:
@UserProfileDir&'\Cookies\*.txt'.PS: Указывать точные пути - не очень хороший стиль программирования. Они могут различаться на разных компьютерах, к тому же в семерке полно виртуальных папок - которые в проводнике определяются одним образом, а реально имеют совершенно иной путь\имя.
У меня XP и все удаляется нормально через FileDelete.
----------------------------------------------
Правильный путь до 'печенек' в семерке
Код:
@UserProfileDir&'\AppData\Roaming\Microsoft\Windows\Cookies'а тот, что в проводнике - это символьная ссылка.
- Сообщения
- 3,556
- Репутация
- 628
Код:
#Include <FileOperations.au3>
$array = _FO_FileSearch('C:\Users\Admin\Cookies','*.txt')
For $i = 1 To $array[0]
FileSetAttrib($array[$i],'-RSH')
FileDelete($array[$i])
NextДобавлено:
Сообщение автоматически объединено:
Radik [?]
потому что
Код:
_FO_FileSearchДобавлено:
Сообщение автоматически объединено:
удалить нельзя файл, если он используется или есть запрет в виде атрибута
Добавлено:
Сообщение автоматически объединено:
кстати, если система семерка, то папки
Код:
Cookies
- Сообщения
- 7,790
- Репутация
- 2,322
Radik,
Полные пути ко многим папкам можно прочитать в реестре (и в ХР, и в 7). Ваш случай (для 32):
Или с помощью API _WinAPI_ShellGetKnownFolderPath(), _WinAPI_ShellGetSpecialFolderPath() из WinAPIEx.au3, или см. на оф.форуме _WinAPI_SHGetFolderPath()
Полные пути ко многим папкам можно прочитать в реестре (и в ХР, и в 7). Ваш случай (для 32):
Код:
ConsoleWrite(RegRead('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 'Cookies') & @LF)
Всем привет!
Похожая проблема - не отрабатывает удаление файлов.
В задаче вообще - удалить архивы программами со старыми версиями. Вот версии определяю, а удаление не происходит. Причем, если на место переменной $a прописать полный путь, то удаление есть
Похожая проблема - не отрабатывает удаление файлов.
Код:
#Include <FileOperations.au3>
_deldub_arch()
Func _deldub_arch()
Local $sPath, $aProgiFull, $a
$sPath = 'd:\TC\Update\'
$aProgiFull = _FO_FileSearch($sPath, '*,exe|*.rar|*.zip', True, 0, 1, 1, 1, '', '', '')
Dim $aTableProgi[UBound($aProgiFull)][3]
For $i=1 To $aProgiFull[0]
$aTableProgi[$i][0] = StringRegExpReplace ($aProgiFull[$i],'(?m)(^.*)\\(.*)$','\2')
$aTableProgi[$i][1] = StringRegExpReplace ($aTableProgi[$i][0],'(.+)\_([\d+\.]+)(\_.+)?(\.zip|\.rar)','\1')
$aTableProgi[$i][2] = StringRegExpReplace ($aTableProgi[$i][0],'(.+)\_([\d+\.]+)(\_.+)?(\.zip|\.rar)','\2')
Next
For $i=1 To UBound($aTableProgi)
If $i = UBound($aTableProgi) - 1 Then ExitLoop
If $aTableProgi[$i][1] = $aTableProgi[$i+1][1] Then
MsgBox(4096,'Дубликаты', 'Найдены дубликаты в строках '&$i &' и '&$i+1 )
If $aTableProgi[$i][2] > $aTableProgi[$i+1][2] Then
$a &= $sPath&$aTableProgi[$i+1][0]&'|'
Else
$a &= $sPath&$aTableProgi[$i][0]&'|'
EndIf
EndIf
Next
$a = StringTrimRight($a, 1)
FileDelete ($a)
EndFunc
ra4o
AutoIT Гуру
- Сообщения
- 1,165
- Репутация
- 246
Код:
;Сам никогда ну удалял несколько файлов за один заход , го разве функция "FileDelete" поддерживает в качестве параметра пути к нескольким файлам с разделителем "|" ?
;Не проще ли удалять эти файлы сразу после того , как их нашли ?
If $aTableProgi[$i][1] = $aTableProgi[$i + 1][1] Then
MsgBox(4096, 'Дубликаты', 'Найдены дубликаты в строках ' & $i & ' и ' & $i + 1)
If $aTableProgi[$i][2] > $aTableProgi[$i + 1][2] Then
FileDelete($sPath & $aTableProgi[$i + 1][0])
Else
FileDelete($sPath & $aTableProgi[$i][0])
EndIf
EndIfДля проверки правильности составления пути к файлу напишите "ConsoleWrite" для пути перед удалением и увидитке, что там не так.
Последнее редактирование:
Изначально так и было, это потом уже выносил в отдельную переменную.
В переменную в начало вставляется перенос строки. Решил так:
Код:
If $aTableProgi[$i][1] = $aTableProgi[$i + 1][1] Then
MsgBox(4096, 'Дубликаты', 'Найдены дубликаты в строках ' & $i & ' и ' & $i + 1)
If $aTableProgi[$i][2] > $aTableProgi[$i + 1][2] Then
$aTableProgi[$i+1][0] = StringTrimLeft ($aTableProgi[$i+1][0], 1)
FileDelete($sPath & $aTableProgi[$i + 1][0])
Else
$aTableProgi[$i][0] = StringTrimLeft ($aTableProgi[$i][0], 1)
FileDelete($sPath & $aTableProgi[$i][0])
EndIf
Последнее редактирование:
