- Code:
http://rapidq.phatcode.net/include/S...TimeAttrib.inc
تو کد بالا از تابع سیستمی SetFileAttributes برای Hidden کردن فایل استفاده شده.. به کد زیر توجه کنید.
- Code:
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Sub Form_Load()
SetFileAttributes "C:\File1.txt", FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_SYSTEM
End Sub
با اجرای این برنامه فایل "C:\File1.txt" به حالت مخفیو سیستمی در می آد.../// برای از بین بردناین خواص می تونید از کد زیر استفاده کنید
- Code:
SetFileAttributes "C:\File1.txt", FILE_ATTRIBUTE_NORMAL
موفق باشید