[tiktak990]

سلام دوستان

سورسی هست که بشه با ان فایل هایی که سوپر هیدن هستن را از هیدن خارج کرد.

مثلا ادرس یه درایو رو به برنامه بدیم لیستی از فایل ها رو نشون بده و روی هر ادرس هر فایل کلیک کردیم از هیدن خارج کنه یا یک جا تمام فایل های که توی یک نیوفولدر هستن رو از هیدن خارج کنه


ممنون میشم کمکم کنید

[Amin_Mansouri]

سلام
خوبی؟
خوب سرچ کن بعد با setattr از هیدن در بیار
یک نمونه سورس کد :


  Simple file extension search(www.parsicoders.com).rar (اندازه 2.44 KB / تعداد دانلود: 36)

[tiktak990]

دوست عزیز سرچ کردن بلدم بعد از هیدن خارج کردن رو بلد نیستم.

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

[Amin_Mansouri]

ببین فایل ها و پوشه ها رو لیست کن
دستور زیر هم برای پوشه جواب میده هم برای فایل :

کد:

SetAttr "C:\1", vbHidden

امتحان کن ,و با دستور زیر هم توی DOS میتونی فایل ها از حالت مخفی خارج کنی :

کد:

Attrib –h –s /d /s

و اگر میخوای دایرکتوری از مخفی خارج کنی با این دستور :

کد:

Attrib –h –s /d /s PARSICODERS

فقط باید تو روت درایو باشی
راه روش زیاده راحت ترینش دستور بالاست

[tiktak99]

سلام دوست عزیز
من این سورسو نوشتم مشکلش اینه که فقط آدرس فایلو میشه تو برنامه اورد و آدرس نیوفلدر رو نمیشه اورد. باید دستی ادرس نیوفلدر رو کپی کرد میشه کمک کنید درست بشه

--------------------------------------------------------------------------------------------------------------------
و اگه میشه یه لیست باکس بهش اضافه کنید که ادرس فایل ها توش لیست بشه و با کلیک کردن روی ادرس ان را از هیدن خارج کنه

[Amin_Mansouri]

درود
شاید سیستم بعضی از دوستان تمامی فایل ها و پوشه های سیستمشون توسط کرم مخفی شده است.
با سورس کد زیر که توسط ویژوال بیسیک 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