Set File atrributes using SetFileAttributes API
Set File atrributes using SetFileAttributes API
API Declarations
Const HIDDEN = &H2
Const SYSTEM = &H4
Const ARCHIVE = &H20
Const NORMAL = &H80
Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Rate Set File atrributes using SetFileAttributes API
(1(1 Vote))
Dim attr As Long
Dim rval As Long
attr = READONLY + SYSTEM + HIDDEN
rval = SetFileAttributes("C:\karthik\waste.txt", attr)
End
End Sub
Set File atrributes using SetFileAttributes API Comments
No comments yet — be the first to post one!
Post a Comment