拡張子を取得する

サンプルコード

Imports System.IO

Sub Main()
Dim FileName As String = "C:\test\test.txt"
 
'拡張子が含まれているかの判断をする
Dim Flag As Boolean = Path.HasExtension(FileName)
 
'拡張子を取得する
Dim Extension As String = Path.GetExtension(FileName)
 
'拡張子を変更する
Dim str As String = Path.ChangeExtension("C:\test\test.txt", ".html")
System.IO.File.Move("C:\test\test.txt", str)
End Sub

HasExtensionメゾットでは、引数で指定した拡張子であるかを判断します。

.ChangeExtensionメゾットで第一引数に指定されたパスを、第二引数に指定した拡張子へ変更したパスを、文字列として返します。 この時点では、ファイルの拡張子は変更されていないので、ファイルの名前をその返された文字列に変更する必要があります。