NASýL YAPýLýR: FileSystemObject kullanarak özyinelemeli olarak arama dizinleri

Üste

FileSystemObject sýnýfý hakkýnda bilgi

• Microsoft Windows Script Host
• Microsoft Windows NT Option Pack
• Microsoft ýnternet ýnformation Server 3.0
• 3.1 Yükseltme komut dosyasý
• Microsoft Visual Studio 98
• Microsoft Visual Basic 6.0

Üste

Örnek oluþturma

1. Yeni bir proje standart exe DOSYASý, Visual Basic'te oluþturun. Varsayýlan olarak, Form1 oluþturulur.
2. Proje menüsünde Baþvurular ' ý týklatýn ve sonra da Microsoft Scripting çalýþma zamaný baþvuru ekleyin. Bu seçenek listede yoksa, sisteminizdeki Scrrun.dll dosyasýný bulun. Gerekiyorsa, bu Information About the FileSystemObject Class bölümünde listelenen araçlardan birini yükleyin.
3. Form1'e, bir KomutDüðmesi, Etiket ve bir liste kutusu denetimi ekleyin. Etiket denetimi geniþliðini formun geniþliðini ayný þekilde ayarlanýr.
4. Form1 genel Tanýmlamalar bölümüne aþaðýdaki kodu ekleyin:

   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
   					

5. Projeyi çalýþtýrýn ve Command1</a1>'ý týklatýn.
6. Dizin ve dosya adýný aramak için yazýn. Her dosya bulunduðunda, liste kutusuna dosya adýnýn eklendiðini dikkat edin. Iþlem tamamlandýðýnda, bulunan dosya sayýsý, bir ileti kutusunda görüntülenir. Dosyalarýn toplam boyutunu da görüntülenir.

Üste

SORUN GÝDERME

• Bir uygulama, bunlarý eriþmeye çalýþýrsa, bazý dosya ve dizinleri, Microsoft Windows XP'de, sistem birim bilgisi gibi eriþim ihlaline neden. Hata kodu, bir sorun ortaya çýktýðýnda bir dizinde arama durur. Gerekiyorsa, daha güçlü bir geçici çözüm, farklý bir yaklaþým kullanmanýz gerekir.
• Bir dosya süzgeci'ni kullanýrsanýz (gibi *. *), çok sayýda dosya döndürdü. Liste kutusu denetimi, yalnýzca sýnýrlý sayýda karakter içerebilir. Daha fazla girdi yok, bu sýnýra ulaþýldýðýnda, liste kutusuna eklenir.
• Bu kod örneði, Microsoft Scripting çalýþma zamaný'ný (Scrrun.dll) 5.6.0.6626 sürümünü kullanarak sýnanmýþtýr. Sorunlarý oluþursa, bu dosyanýn daha yeni bir sürümünü karþýdan yüklemek zorunda kalabilirsiniz.

Üste