مخفی کردن کامل فایل ها و فولدر ها
سلام دوستان امروز می خوایم کدی بنویسیم که فایل و فولدر انتخاب شده را کاملا مخفی نگه دارد:
1. دو TextBox و یک Button روی صفحه قرار دهید و کد های زیر را بنویسید:
[
کد:
Private Sub Command1_Click()
Dim f As Integer
Dim temp As String
f = FreeFile
temp = "attrib " & Text1.Text & "+h +s"
Open Text2.Text & "attrib.bat" For Output As #f
Print f, temp
MsgBox "Hidden compelected." & vbCrlf & "Please run the " & Text2.text, vbInformation, "Coded by Programers59 Group"
باید در TextBox اول نام کوتاه نوشته و در TextBox دوم یک آدرس فولدر بنویسیم
با تشکر (حمید.ر.):40:
