, belirli bir klasördeki dosyaları sayıp sayıyı 1 cel olarak gösterir.

Question

.xls uzantısına sahip belirli bir klasörde kaç dosya olduğunu bilmek istiyorum. Mesaj kutuları ile yüzlerce örnek okuyorum ama aradığım şey bu değil. Sadece 1 Cel olarak görüntülenen numaraya sahip olmak istiyorum.

Bana yardım etmekten hoşlanan biri var mı lütfen?

çalıştırmadan önce değişken FolderPath için klasörün yolunu atama: Ben,

saygılarımla :-(kodunun altına deneyin E.

Answer 1

Başlamak çünkü Ben hiçbir girişimi gönderemezsiniz aşağıdaki kodu.

Sub sample() 

    Dim FolderPath As String, path As String, count As Integer 
    FolderPath = "C:\Documents and Settings\Santosh\Desktop" 

    path = FolderPath & "\*.xls" 

    Filename = Dir(path) 

    Do While Filename <> "" 
     count = count + 1 
     Filename = Dir() 
    Loop 

    Range("Q8").Value = count 
    'MsgBox count & " : files found in folder" 
End Sub