戻る

ファイル名から拡張子だけを取得する

目的

ファイル名から拡張子だけを取得する。

ポイント

ファイル名の文字列を右側から１文字ずつ取得し、ピリオドが存在した位置から右側を拡張子とする。

サンプルコード

Option Explicit Private Function GetExtension(FileName As String) As String ' ファイル名から拡張子だけを取得する     Dim i As Integer          For i = Len(FileName) To 1 Step -1              If Mid(FileName, i, 1) = "." Then                      GetExtension = Right(FileName, Len(FileName) - i)             Exit Function                      End If              Next          GetExtension = ""      End Function Private Sub cmdGetExt_Click() ' 拡張子を取得する     txtExt.Text = GetExtension(txtFilename.Text)      End Sub

ソースのダウンロード