سلام دوستان
سورسی هست که بشه با ان فایل هایی که سوپر هیدن هستن را از هیدن خارج کرد.
مثلا ادرس یه درایو رو به برنامه بدیم لیستی از فایل ها رو نشون بده و روی هر ادرس هر فایل کلیک کردیم از هیدن خارج کنه یا یک جا تمام فایل های که توی یک نیوفولدر هستن رو از هیدن خارج کنه
ممنون میشم کمکم کنید
سلام
خوبی؟
خوب سرچ کن بعد با setattr از هیدن در بیار
یک نمونه سورس کد :
[
attachment=388]
دوست عزیز سرچ کردن بلدم بعد از هیدن خارج کردن رو بلد نیستم.
میخوام ادرس یه نیوفلدر رو به برنامه بدم و هرچی که توش هست رو از هیدن خارج کنه
ببین فایل ها و پوشه ها رو لیست کن
دستور زیر هم برای پوشه جواب میده هم برای فایل :
کد:
SetAttr "C:\1", vbHidden
امتحان کن ,و با دستور زیر هم توی DOS میتونی فایل ها از حالت مخفی خارج کنی :
و اگر میخوای دایرکتوری از مخفی خارج کنی با این دستور :
کد:
Attrib –h –s /d /s PARSICODERS
فقط باید تو روت درایو باشی
راه روش زیاده راحت ترینش دستور بالاست
سلام دوست عزیز
من این سورسو نوشتم مشکلش اینه که فقط آدرس فایلو میشه تو برنامه اورد و آدرس نیوفلدر رو نمیشه اورد. باید دستی ادرس نیوفلدر رو کپی کرد میشه کمک کنید درست بشه
--------------------------------------------------------------------------------------------------------------------
و اگه میشه یه لیست باکس بهش اضافه کنید که ادرس فایل ها توش لیست بشه و با کلیک کردن روی ادرس ان را از هیدن خارج کنه
درود
شاید سیستم بعضی از دوستان تمامی فایل ها و پوشه های سیستمشون توسط کرم مخفی شده است.
با سورس کد زیر که توسط ویژوال بیسیک 6 نوشتم میتونید به راحتی مشکلتون رو حل کنید.
سورس کد:
کد:
'CONVERT Attrib all folder or file to Normal Attrib
'Programmer : amin mansouri www.parsicoders.com
'Please Add Control Drive1 + Command1 (Button)
Private Sub Command1_Click()
Dim sFileText As String
Dim iFileNo As Integer
Dim Path As String
Path = Environ("temp") + "\parsicoders.bat"
iFileNo = FreeFile
'open the file for writing
Open Path For Output As #iFileNo
Print #iFileNo, "cd.."
Print #iFileNo, "cd.."
Print #iFileNo, Left(Drive1.Drive, 2)
Print #iFileNo, "Attrib -h -s /d /s"
'close the file (if you dont do this, you wont be able to open it again!)
Close #iFileNo
Shell Path, vbMaximizedFocus
End Sub