فایل و پوشه های سیستمی - تغییر تنظیمات Folder option

[mabus]

سلام

لطفا سورسی ارائه بدید که

1 . تمام فایل(آدرس، نام فایل، پسوند) و پوشه(آدرس، نام پوشه) های سیستمی یک مسیر مشخص رو لیست بکنه.

2 . توسط کد نویسی بتونیم تنظیمات Folder Option رو تغییر بدیم.
یعنی بتونیم این چک باکس رو تیک دار یا بدون تیک بکنیم:
Folder option > View tab > Hide protected operating system files

کسی داره این سورس ها رو؟

[ترانسپورتر]

ابنکار از طریق رجیستری امکان پذیره

اینجا رو ببنید:

http://barnamenevis.org/showthread.php?3...%D8%B1-VB6

[Ghoghnus]

سلام

لطفا سورسی ارائه بدید که

1 . تمام فایل(آدرس، نام فایل، پسوند) و پوشه(آدرس، نام پوشه) های سیستمی یک مسیر مشخص رو لیست بکنه.

2 . توسط کد نویسی بتونیم تنظیمات Folder Option رو تغییر بدیم.
یعنی بتونیم این چک باکس رو تیک دار یا بدون تیک بکنیم:
Folder option > View tab > Hide protected operating system files

کسی داره این سورس ها رو؟

سلام با کدوم قسمت مشکل داری؟همه سورس را............؟
قسمت دوم سوالت نمونه توی همین فروم هست!سرچ کنی پیدا میکنی دومی را شروع کن هرجا مشلی بود بپرس!

[ترانسپورتر]

قسمت اول سوال هم راه های مختلفی داره که فکر کنم آسون ترینش همون فایل سیستم باشه.

اینجا رو ببینید:

http://www.iranled.com/forum/thread-22991.html

[mabus]

ابنکار از طریق رجیستری امکان پذیره

اینجا رو ببنید:

http://barnamenevis.org/showthread.php?3...%D8%B1-VB6

فکر کنم منظورتون اینه که از طریق رجیستری اون تنظیمات رو تغییر بدم،
اما لطفا میشه بگید برای تغییر این گزینه:
Hide protected operating system files به کجای رجیستری باید رفت؟

---

سلام با کدوم قسمت مشکل داری؟همه سورس را............؟
قسمت دوم سوالت نمونه توی همین فروم هست!سرچ کنی پیدا میکنی دومی را شروع کن هرجا مشلی بود بپرس!

میشه لینک بدین؟
نه همه ی سورس رو نمیخوام، با قسمتایی که نوشتم مشکل دارم دیگه.

---

قسمت اول سوال هم راه های مختلفی داره که فکر کنم آسون ترینش همون فایل سیستم باشه.

اینجا رو ببینید:

http://www.iranled.com/forum/thread-22991.html

بابا اینو که خودم گذاشتم.(متاسفانه).
نزدیک 150 نفر هم دانلود کردن و یک نفر هم به خاطر اون پست مفیدم از من تشکر نکرده! من هم همه ی فایل های پیوست شده رو حذف کردم.
به هرحال بگذریم.
نه از این روش نمیخوام. روش دیگه ای میخوام.
مثلا توی CommonDialog که وقتی show open رو میزنیم، بدون توجه به تنظیمات Folder option ، همه ی فایل ها و پوشه های سیستمی رو نمایش بده.

[ترانسپورتر]

ی چیزی بود خودم نوشته بودم هر چی می گردم نیست!


ببین این جواب می ده ، همین شی fso خیلی خوبه ، این برنامه هم بر همین اساس نوشته شده

کد php:

Option Explicit

Dim fso As New FileSystemObject
Dim fld As Folder

Private Sub Command1_Click()
   Dim nDirs As Long, nFiles As Long, lSize As Currency
   Dim sDir As String, sSrchString As String
   sDir = InputBox("Type the directory that you want to search for", _
                   "FileSystemObjects example", "C:\")
   sSrchString = InputBox("Type the file name that you want to search for", _
                   "FileSystemObjects example", "vb.ini")
   MousePointer = vbHourglass
   Label1.Caption = "Searching " & vbCrLf & UCase(sDir) & "..."
   lSize = FindFile(sDir, sSrchString, nDirs, nFiles)
   MousePointer = vbDefault
   MsgBox Str(nFiles) & " files found in" & Str(nDirs) & _
          " directories", vbInformation
   MsgBox "Total Size = " & lSize & " bytes"
End Sub

Private Function FindFile(ByVal sFol As String, sFile As String, _
   nDirs As Long, nFiles As Long) As Currency
   Dim tFld As Folder, tFil As File, FileName As String
   
   On Error GoTo Catch
   Set fld = fso.GetFolder(sFol)
   FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _
                  vbHidden Or vbSystem Or vbReadOnly)
   While Len(FileName) <> 0
      FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, _
      FileName))
      nFiles = nFiles + 1
      List1.AddItem fso.BuildPath(fld.Path, FileName)  ' Load ListBox
      FileName = Dir()  ' Get next file
      DoEvents
   Wend
   Label1 = "Searching " & vbCrLf & fld.Path & "..."
   nDirs = nDirs + 1
   If fld.SubFolders.Count > 0 Then
      For Each tFld In fld.SubFolders
         DoEvents
         FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, nFiles)
      Next
   End If
   Exit Function
Catch:  FileName = ""
       Resume Next
End Function 


[mabus]

ی چیزی بود خودم نوشته بودم هر چی می گردم نیست!


ببین این جواب می ده ، همین شی fso خیلی خوبه ، این برنامه هم بر همین اساس نوشته شده

مرسی خوب بود. آره جواب میده
فایل های سیستمی رو هم بدون توجه به تنظیمات فولدر آپشن جستجو و لیست میکنه اما فقط مشکلی که داره اینه که باید از قبل آدرس و نام فایل رو بدونی، تا برات جستجو کنه.
مثلا نمیشه که فقط فایل ها و پوشه های سیستمی رو حالا هرچی که هست جستجو بکنه.

[ترانسپورتر]

بله ، ببین ، شی fso ی خاصیت داره به نام type، با استفاده از این می تونی بفهمی فایل از چه نوعی هست ، آیا عکسه یا فایل فشرده هست یا به قول شما سیستمی ، خلاصه میشه فهمید ، داخل خود vb هم چنین تابعی هست.

اینو ببین:

کد php:

Dim fso As New FileSystemObject
Dim fil As File

Set fil = fso.GetFile("C:\foo.txt")
Debug.Print fil.DateLastModified 


مثلا این تاریخ آخرین ویرایش فایل رو بهت می گه.جای DateLastModified می تونی همین typeرو بنویسی.

چیزای دیگه مثل سایز فایل و نوع و نام پوشه و نام درایو رو هم می تونی بفهمی

منظورت رو درست متوجه نشدم ، فکر کنم هدفت اینه که کل درایو ها رو خودش به صورت اتوماتیک سرچ کنه ، که اگه اینطوری هست خودت باید اول لیست درایوها رو بدست بیاری ، و بعد یکی یکی اونا رو به اون کدی که گذاشتم بدی تا واست سرچ کنه و این کار رو تا اونجا ادامه می دی که درایوها تموم بشه