چجوری میشه یه فایل رو سیستمی و hiden کرد

[mehdi_RM]

سلام
چجوری میشه یه فایل رو از طریق کدنویسی مخفی و سیستمی کرد؟؟؟؟؟؟؟؟

[S_VB.max]

Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTEHIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4

Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Private Sub Command1_Click()
SetFileAttributes "C:\1.txt", FILE_ATTRIBUTEHIDDEN
End Sub

[mehran8]

S_VB.max (http://barnamenevis.org/forum/member.php?u=16439) خیلی ممنون

ولی فکر کنم این روش ساده تر باشه

shell "attrib +s +h C:\1.txt"
s = سیستمی
h = مخفی

[Bahram0110]

setattr "your File" , vbhidden

[romina2006]

Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Sub Command1_Click()
SetFileAttributes "C:\1.txt", FILE_ATTRIBUTE_SYSTEM + FILE_ATTRIBUTE_HIDDEN
End Sub



Private Sub Command1_Click()
Dim str As String
str = ("""""""" & "c:\1.txt" & """""""")
Call Shell("attrib +h +s " & str, vbHide)
End Sub


Private Sub Command1_Click()
SetAttr "c:\1.txt", vbHidden + vbSystem
End Sub