■
拡張子抽出
Public Function strGetEx(strFilePath) As String Dim i As Long For i = Len(strFilePath) To 1 Step -1 If Mid$(strFilePath, i, 1) = "." Then strGetEx = Mid$(strFilePath, i + 1) Exit For ElseIf Mid$(strFilePath, i, 1) = "\" Then strGetEx = "" '拡張子がない場合 "" をstrgetex変数に代入 End If strGetEx = "" '拡張子がない場合 "" をstrgetex変数に代入 Next i End Function