Kasowanie plików z atrybutem read-only (autor: Jelcyn)
Napisał Administrator
niedziela, 12 luty 2006
Usuwanie plików z atrybutem tylko do odczytu
Pisząc program zarządzający na plikach należy przewidzieć sytuację że
dany plik ma jakieś atrybuty i trzeba go skasować. Używając zwykłej
funkcji Kill przy próbie usunięcia pliku z atrybutem tylko do odczytu
pojawi się błąd. Dlatego warto jest użyć mojej funkcji o nazwie Kill2,
która kasuje każdy plik :-)
Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA"_ (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Public Sub Kill2(X) Dim Z As Long
On Error GoTo 2 Z = SetFileAttributes(X, &H80)
Kill (X)
Exit Sub 2 Resume 3 3
End Sub
nadesłał: Jelcyn
Komentarze
Nie rozumiem. Dodane przez steckel w dniu - 2008-05-09 13:56:28Witam wszystkich! Zaczą?em programowa? od wczoraj, tak wi?c niezbyt rozumiem co tu jest napisane. Tak wi?c mam prośb? do autora tego artyku?u, aby obok ka?dej linijki doda? opis. Z góry dzi?kuj?
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie. Tylko zarejestrowani użytkownicy mogą pisać komentarze.
