2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« .NETのDirectory.GetFiles(,検索パターン)のワイルドカードの誤動作に注意すべし。 | トップページ | VBAのDir()関数のワイルドカードの誤動作を補正する。 »

2008年4月29日 (火)

.NETのDirectory.GetFiles(,検索パターン)の代替関数

ワイルドカードの誤動作を補正する代替関数です。

Function GetFiles(Folder As String, Pattern As String) As String()
Dim Files As String() = Directory.GetFiles(Folder,Pattern)
Dim Pattern2 As String = Replace(Replace(Pattern,"[","[[]"),"#","[#]")
Dim n As Integer = -1
For k As Integer = 0 To Files.Length-1
  If Path.GetFileName(Files(k)) Like Pattern2 Then
    n+=1
    Files(n)=Files(k)
  End If
Next
ReDim Preserve Files(n)
Return Files
End Function

« .NETのDirectory.GetFiles(,検索パターン)のワイルドカードの誤動作に注意すべし。 | トップページ | VBAのDir()関数のワイルドカードの誤動作を補正する。 »