Jabaco Source

Option Explicit

Import java#io#File 

Public Sub Command1_Click()
   Dim s As String   
   Dim childFolders() As File
   Dim item As File
   
   childFolders() = New File("c:\tmp").listFiles()
   
   For Each item In childFolders
      If (item.isDirectory()) Then
         Debug.Print "Dir " & item.getName()
      Elseif (item.isFile()) Then
         If WildCardMatch(item.getName(), "*.tmp") Then
            Debug.Print "Temp File " & item.getName()
         Else
            Debug.Print "File " & item.getName()
         End If
      Else
         Debug.Print "??? " & item.getName()
      End If
   Next
End Sub

'  cf.  http://www.adarshr.com/papers/wildcard

Private Function WildCardMatch(text As String, pattern As String) As Boolean
   ' Create the cards by splitting using a RegEx. If more speed 
   ' Is desired, a simpler character based splitting can be done.
   Dim cards() As String 
   Dim card As String
   Dim idx As Integer 
   Dim ret As Boolean = True
   
   cards = Split(pattern, "\*")

   ' Iterate over the cards.
   For Each card In cards
      idx = InStr(text, card)
         
      ' Card Not detected In the text.
      If (idx < 1) Then        
         ret = False
         Exit For
      End If
         
      ' Move ahead, towards the right of the text.
      text = Mid(text, idx + Len(card))
   Next
        
   WildCardMatch = ret
End Function