| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Есть способ удаления файлов с аттрибутом readonly?

novill ©   (2007-01-26 15:30:00) 

Или только после снятия аттрибута?

---

MetalFan   (2007-01-26 18:12:00) [1]

> novill ©   (26.01.07 17:46) [12]

примеденная цитата из MSDN не относится к PlatformSDK функции DeleteFile никак не относится.
вот что я имел ввиду)

---

novill   (2007-01-26 17:46:00) [2]

> [11] MetalFan ©   (26.01.07 17:40)

Если почитать MSDN то ни Дельфи, ни делфеводов быть не должно вообще :)

---

MetalFan   (2007-01-26 17:40:00) [3]

> Пока искал способы, нашел вот такую штуку.
....
> Language
> JScript
>
> VBScript


ну это к нам, делфиноводам, не особо относится

---

novill   (2007-01-26 17:19:00) [4]

> [9] Плохиш ©   (26.01.07 17:10)

Это уже сделано.

---

Vlad Oshin   (2007-01-26 17:10:00) [5]

object.DeleteFile ( filespec[, force] );
а если это опциональный параметр
то если его нет - просто делете, иначе даже без GetFileAttributes - сброс флага и делете

---

Плохиш   (2007-01-26 17:10:00) [6]

Только подставлять стоит полное имя файла, а то кто ж его знает, в какой папке его нашли и какая папка является текущей ;-)

---

Vlad Oshin   (2007-01-26 17:06:00) [7]

ну да,

только раз его все равно удалять, то чего проверять еще
сразу SetFileAttributes(Pchar(sr.Name), 0);

---

novill   (2007-01-26 16:19:00) [8]

Так правильно снимать аттрибут?

var
sr:TSearchRec
...
if (sr.Attr and fareadonly)<>0 then SetFileAttributes(Pchar(sr.Name),sr.Attr xor faReadOnly);


---

Vlad Oshin   (2007-01-26 16:13:00) [9]

скорее всего..

---

clickmaker   (2007-01-26 16:11:00) [10]

> [3] novill ©   (26.01.07 15:58)
> Сделал уже.
>
> Пока искал способы, нашел вот такую штуку

сильно подозреваю, что там внутрях
dwAttrib = GetFileAttributes(filespec);
if (force && ((dwAttrib & FILE_ATTRIBUTE_READONLY) == FILE_ATTRIBUTE_READONLY))
 SetFileAttribute(filespec, dwAttrib ^ FILE_ATTRIBUTE_READONLY);
DeleteFile(filespec);

---

novill   (2007-01-26 15:58:00) [11]

Сделал уже.

Пока искал способы, нашел вот такую штуку.

МСДН:
Scripting Runtime Library  

DeleteFile MethodSee Also
CopyFile Method | CreateTextFile Method | Delete Method | DeleteFolder Method | MoveFile Method
Applies To: FileSystemObject Object
Language
JScript

VBScript

Show All
Deletes a specified file.

object.DeleteFile ( filespec[, force] );

Arguments
object
Required. Always the name of a FileSystemObject.
filespec
Required. The name of the file to delete. The filespec can contain wildcard characters in the last path component.
force
Optional. Boolean value that is true if files with the read-only attribute set are to be deleted; false (default) if they are not.
Remarks
An error occurs if no matching files are found. The DeleteFile method stops on the first error it encounters. No attempt is made to roll back or undo any changes that were made before an error occurred.

The following example illustrates the use of the DeleteFile method.

[JScript]
function DeleteFile(filespec)
{
  var fso;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  fso.DeleteFile(filespec);
}

[VBScript]
Sub DeleteAFile(filespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFile(filespec)
End Sub

See Also
CopyFile Method | CreateTextFile Method | Delete Method | DeleteFolder Method | MoveFile Method
Applies To: FileSystemObject Object

--------------------------------------------------------------------------------

Send feedback on this topic to Microsoft.

© Microsoft Corporation. All rights reserved.


---

Vlad Oshin   (2007-01-26 15:44:00) [12]

перепиши стандартное удаление на удаление с предварительным сбросом атрибута

---

Плохиш   (2007-01-26 15:40:00) [13]

А чем этот способ не нравиться?

---

Наверх