Free for PREMIUM members
[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now
Dim strFileName As String
Dim strFolder As String
Dim iCount As Integer
strFolder = "C:\MyFolder"
strFileName = Dir$(strFolder & "\*.xl")
Do Until strFileName = ""
iCount = iCount + 1
strFileName = Dir$()
MsgBox "There are " & iCount & " relevant files in the folder"
Open in new window
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.