拡張子抽出 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 str…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。