Скачать: CL | DM;

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

← →
novill ©   (2007-01-26 15:30) [0]

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

---

← →
Плохиш ©   (2007-01-26 15:40) [1]

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

---

← →
Vlad Oshin ©   (2007-01-26 15:44) [2]

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

---

← →
novill ©   (2007-01-26 15:58) [3]

Сделал уже.

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

МСДН:
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.


---

← →
clickmaker ©   (2007-01-26 16:11) [4]

> [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);

---

← →
Vlad Oshin ©   (2007-01-26 16:13) [5]

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

---

← →
novill ©   (2007-01-26 16:19) [6]

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

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


---

← →
Vlad Oshin ©   (2007-01-26 17:06) [7]

ну да,

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

---

← →
Vlad Oshin ©   (2007-01-26 17:10) [8]

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

---

← →
Плохиш ©   (2007-01-26 17:10) [9]

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

---

← →
novill ©   (2007-01-26 17:19) [10]

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

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

---

← →
MetalFan ©   (2007-01-26 17:40) [11]

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


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

---

← →
novill ©   (2007-01-26 17:46) [12]

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

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

---

← →
MetalFan ©   (2007-01-26 18:12) [13]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.03 c