با سلام
به چه صورت میشه فهمید
1تو فلان پوشه چند تا فایل وجود داره؟
2چه تعدادیش با پسوند htm است؟
به چه صورت میشه فهمید
1تو فلان پوشه چند تا فایل وجود داره؟
2چه تعدادیش با پسوند htm است؟
Sub ListDirFiles()
Dim MyDir, i As Integer
MyDir = Dir("F:\*.*")
While MyDir <> ""
i = i + 1
Cells(i, "A") = MyDir
MyDir = Dir
Wend
End Sub
کامنت