VB.NET Tips - フォルダ名の最終文字列"\"チェック
指定されたフォルダ名の最終文字が、ディレクトリの分離文字でない場合には、その文字を付加する関数です。 System.IO.Path.DirectorySeparatorChar はパス文字列の、ディレクトリレベルを区切るために使用する、 プラットフォーム固有の文字として定義されていますのでこれを使用します。
フォルダ名の最終文字列"\"チェック
01 | ''' ----------------------------------------------------------------------------- |
02 | ''' <summary> |
03 | ''' フォルダ名の最終文字列"\"チェック |
04 | ''' </summary> |
05 | ''' <param name="strSrcFolder">フォルダ名 |
06 | ''' <returns>修正後のフォルダ名</returns> |
07 | ''' ----------------------------------------------------------------------------- |
08 | Private Function ChkLastDirectorySeparatorChar(ByVal strSrcFolder As String) As String |
09 | ' |
10 | Dim strFolder As String = strSrcFolder |
11 | Try |
12 | '指定が空文字ならば空文字を返す |
13 | If strFolder = "" Then |
14 | Return "" |
15 | End If |
16 |
17 | '最終文字が"\"でなければ、"\"を付加する |
18 | If strFolder.Chars((strFolder.Length - 1)) <> System.IO.Path.DirectorySeparatorChar Then |
19 | strFolder &= System.IO.Path.DirectorySeparatorChar |
20 | End If |
21 |
22 | Return strFolder |
23 | Catch ex As Exception |
24 | Return strSrcFolder |
25 | End Try |
26 | End Function |
