【VBA】拡張子の存在確認|ExtensionExists
記事更新日:2022-11-01

指定の文字列の末尾に、指定の拡張子があればtrueを返す
Public Function ExtensionExists( _
ByVal str As String, _
ByVal extension As String) As Boolean
ExtensionExists = False
Dim length As Long: length = Len(extension)
If Right(str, length) = extension Then ExtensionExists = True
End Function
関連記事
2022-11-01
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-
CurrentRegionのデータを配列で取得 【VBA】シートにあるデータを配列に格納する|CurrentRegion -
Let と Getで読み取り専用 【VBA】クラスのプロパティを読み取り専用にするLet と Getの書き方 -
クラスでForEachを使いたい 【VBA】クラスで通常のCollection機能を利用する準備|ForEachが使えない -
先頭の空白を削除する 【VBA】先頭の空白を削除する|LTrim -
オブジェクト生成のCreateObjectまとめ 【VBA】dictionary・テキストファイル・outlook・Access用にオブジェクトを生成する|CreateObject -
ユーザーフォームのタイトルバー非表示 【VBA】ユーザーフォームのタイトルバーを非表示にしてシステムっぽい見た目にする