３．ファイルに関するパス操作色々(32_Fil_03)　(旧、SampleNo.020)

１．起動したプログラムのフルパスを取得する ２．指定のパス文字列からファイル名を取得 ３．指定のパス文字列から拡張子だけを取得 ４．指定のパス文字列からファイル名を拡張子を除いて取得 ５．指定したパス文字列の絶対パスを取得 ６．パス文字列の拡張子を変更する

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．起動したプログラムのフルパスを取得する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '起動したプログラムのフルパスを取得する     'Application.ExecutablePath プロパティ       'アプリケーションを開始した実行可能ファイルの     'パスを、ファイル名を含めて取得します     Label1.Text = String.Format("Application.ExecutablePath = {0}", Application.ExecutablePath) End Sub

２．指定のパス文字列からファイル名を取得

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '指定のパス文字列からファイル名を取得     'Path.GetFileName メソッド     '指定したパス文字列のファイル名と拡張子を返します。     Label1.Text = String.Format("System.IO.Path.GetFileName(""G:\VB2013\32_Fil_02\bin\Debug\32_Fil_02.exe"") = {0}", _                                 System.IO.Path.GetFileName("G:\VB2013\32_Fil_02\bin\Debug\32_Fil_02.exe")) End Sub

３．指定のパス文字列から拡張子だけを取得

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '指定のパス文字列から拡張子だけを取得     'Path.GetExtension メソッド       '指定したパス文字列の拡張子を返します。     Label1.Text = String.Format("System.IO.Path.GetExtension(""G:\VB2013\32_Fil_02\bin\Debug\32_Fil_02.exe"") = {0}", _                                 System.IO.Path.GetExtension("G:\VB2013\32_Fil_02\bin\Debug\32_Fil_02.exe")) End Sub

４．指定のパス文字列からファイル名を拡張子を除いて取得

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '指定のパス文字列からファイル名を拡張子を除いて取得     'Path.GetFileNameWithoutExtension メソッド     '指定したパス文字列のファイル名を拡張子を付けずに返します。     Label1.Text = String.Format("System.IO.Path.GetFileNameWithoutExtension(""G:\VB2013\32_Fil_02\bin\Debug\32_Fil_02.exe"") = {0}", _                                 System.IO.Path.GetFileNameWithoutExtension("G:\VB2013\32_Fil_02\bin\Debug\32_Fil_02.exe")) End Sub

５．指定したパス文字列の絶対パスを取得

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click '指定したパス文字列の絶対パスを取得     'Path.GetFullPath メソッド     '指定したパス文字列の絶対パスを返します。     Label1.Text = String.Format("System.IO.Path.GetFullPath(""test.txt"")  = {0}", _                                 System.IO.Path.GetFullPath("test.txt")) & vbCrLf     Label1.Text &= String.Format("System.IO.Path.GetFullPath(""../../../"") = {0}", _                                 System.IO.Path.GetFullPath("../../../")) & vbCrLf End Sub

６．パス文字列の拡張子を変更する

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click 'パス文字列の拡張子を変更する     'Path.ChangeExtension メソッド     'パス文字列の拡張子を変更します。     Debug.WriteLine(System.IO.Path.ChangeExtension("c:\Test.txt", ".bak"))     '結果 c:\Test.bak     Label1.Text = String.Format("System.IO.Path.ChangeExtension(""c:\Test.txt"", "".bak"") = {0}", _                                 System.IO.Path.ChangeExtension("c:\Test.txt", ".bak")) End Sub

検索キーワード及びサンプルコードの別名(機能名)