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

[javid_debugger]

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

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



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:\New Folder", FILE_ATTRIBUTE_SYSTEM
End Sub


اگه کسی می دونه دریغ نکنه

[3dboy1]

با سلام
به اينجا سر بزن :
http://barnamenevis.org/forum/showthread.php?t=131469

[javid_debugger]

اقااین اصلا ربطی به سوال من نداشت
من میخوام برنامم اول پوشه های موجود در یک درایو رو سرچ کنه بعد اونا رو تبدیل به سیستمی کنه

[.:KeihanCPU:.]

از فرمان dir میتونی پوشه ها رو پیدا کنی

[joker]

X:\
Attrib -s /D /S