toyfish.blog

HOME
ABOUT
トップ > prog > VB: パターンに合致するファイル名を配列で返す関数
2004-08-19

VB: パターンに合致するファイル名を配列で返す関数

prog
Public Function FindFiles(ByVal Pattern As String) As String()
    
    Dim Names()     As String
    Dim Name        As String
    Dim Capacity    As Long
    Dim Max         As Long
    
    Capacity = 2
    Max = -1
    
    ReDim Names(Capacity)
        
    Name = Dir(Pattern)
    Do Until Name = ""
        Max = Max + 1
        
        If Max > Capacity Then
            Capacity = Fix(Capacity * 1.5)
            ReDim Preserve Names(Capacity)
        End If
        
        Names(Max) = Name
        
        Name = Dir()
    Loop
    
    If Max > -1 Then
        ReDim Preserve Names(Max)
    Else
        Names = Split("")
    End If
    
    FindFiles = Names
End Function

1.5 倍ペースで配列を拡張するのは Java の java.util.Vector のマネ。

sardine 2004-08-19 00:00

VB: パターンに合致するファイル名を配列で返す関数
  • もっと読む
コメントを書く
« ■ 利用者が追記できる JavaDoc コレクショ… »
プロフィール
id:sardine id:sardine はてなブログPro
読者です 読者をやめる 読者になる 読者になる
検索
最新記事
  • Unity のメモ in Windows: 3D
  • Unity のメモ in Windows vs. Physics + Mecanim
  • Unity のメモ in Windows powered by Prefabs
  • Unity のメモ in Windows meets Director
  • Unity のメモ in Windows feat. Android
カテゴリー
  • prog (268)
  • ff11 (132)
  • net (125)
  • PC (87)
  • misc (78)
  • tool (74)
  • game (68)
  • phone (35)
  • Alpha (26)
  • hatena (15)
  • mac (13)
  • icrab (5)
  • revisit (4)
  • PDA (2)
  • movie (1)
  • ff14 (1)
  • linux (1)
月別アーカイブ
リンク
  • はてなブログ
  • ブログをはじめる
  • 週刊はてなブログ
  • はてなブログPro

はてなブログをはじめよう!

sardineさんは、はてなブログを使っています。あなたもはてなブログをはじめてみませんか?

はてなブログをはじめる(無料)
はてなブログとは
toyfish.blog toyfish.blog

Powered by Hatena Blog | ブログを報告する

スターをつけました

引用をストックしました

引用するにはまずログインしてください

引用をストックできませんでした。再度お試しください

限定公開記事のため引用できません。

読者です 読者をやめる 読者になる 読者になる