Hejsan.. Godmorgon :-)Skrivskyddade filer
Har fått mycket hjälp med att skapa ett program
och det fungerar bra men ett litet problem..
av filerna som skapas blir vissa skrivskyddade och då blir det fel när den ska radera filerna..
här är coden
<code>
Dim sPath 'Sökväg till källfilerna
Dim dPath 'Sökväg till målmappen
Dim sFIle
sPath = "c:\program\arbetsmapp"
dPath = "c:\unzipped\"
sFIle = Dir(sPath, vbDirectory)
Do While sFIle <> ""
If sFIle <> "." And sFIle <> ".." Then
If Right(UCase(sFIle), 4) = ".BMP" Or Right(UCase(sFIle), 4) = ".JPG" Then
Name sPath & sFIle As dPath & sFIle
Else
Kill sPath & sFIle
End If
End If
sFIle = Dir
Loop
</code>
så hur får jag programet att även radera skrivskyddade filerSv: Skrivskyddade filer
Nedanstående borde fixa ditt problem
Lägg till denna API Funktion och constant
<code>
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Const FILE_ATTRIBUTE_NORMAL = &H80
</code>
Lägg till detta alldeles före din Kill
<code>
SetFileAttributes sPath & sFIle, FILE_ATTRIBUTE_NORMAL
</code>