VB.NET-TIPS などプログラミングについて

指定されたフォルダ名の最終文字が、ディレクトリの分離文字でない場合には、その文字を付加する関数です。 System.IO.Path.DirectorySeparatorChar はパス文字列の、ディレクトリレベルを区切るために使用する、 プラットフォーム固有の文字として定義されていますのでこれを使用します。

フォルダ名の最終文字列"\"チェック

    ''' -----------------------------------------------------------------------------
    ''' 

    ''' フォルダ名の最終文字列"\"チェック
    ''' 
    ''' <param name="strSrcFolder">フォルダ名</param>
    ''' 修正後のフォルダ名
    ''' -----------------------------------------------------------------------------
    Private Function ChkLastDirectorySeparatorChar(ByVal strSrcFolder As String) As String
        '
        Dim strFolder As String = strSrcFolder
        Try
            '指定が空文字ならば空文字を返す
            If strFolder = "" Then
                Return ""
            End If

            '最終文字が"\"でなければ、"\"を付加する
            If strFolder.Chars((strFolder.Length - 1)) <> System.IO.Path.DirectorySeparatorChar Then
                strFolder &= System.IO.Path.DirectorySeparatorChar
            End If

            Return strFolder
        Catch ex As Exception
            Return strSrcFolder
        End Try
    End Function

関連する記事