拡張子判別

割とよく使うのでコピー&ペースト用にメモ。

Public Sub Sample()
  Dim f As Object
  
  With CreateObject("Scripting.FileSystemObject")
    For Each f In .GetFolder("C:\Windows").Files
      Select Case LCase$(.GetExtensionName(f))
        Case "exe", "ini"
         Debug.Print f.Name, f.Path
      End Select
    Next
  End With
End Sub
広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中


%d人のブロガーが「いいね」をつけました。