拡張子を除くファイル名を取得する
GetFileNameWithoutExtension関数
引数のファイルパスから拡張子を除くファイル名を取得する関数。※ ShowErrorMessage関数についてはリンク先をご参照ください。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | '================================================== ' <summary> ' 拡張子を除くファイル名を取得する ' </summary> ' <param name="filePath">ファイルパス</param> ' <returns>拡張子を除くファイル名</returns> '================================================== Public Function GetFileNameWithoutExtension( ByVal filePath As String ) _ As String On Error GoTo Catch GetFileNameWithoutExtension = "" With CreateObject( "Scripting.FileSystemObject" ) GetFileNameWithoutExtension = .GetBaseName(filePath) End With Exit Function Catch : Call ShowErrorMessage( "GetFileNameWithoutExtension" ) End Function |
実行方法
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | '================================================== ' <summary> ' GetFileNameWithoutExtension関数のテスト ' </summary> '================================================== Sub TestGetFileNameWithoutExtension() Dim result As String result = GetFileNameWithoutExtension( "C:\Test\aaa.txt" ) MsgBox result End Sub |

実行結果
