玄関へお回り下さい。
ファイルに関するパス操作色々 (6個)        (SNo.020)

1.起動したプログラムのフルパスを取得する
2.指定のパス文字列からファイル名を取得
3.指定のパス文字列から拡張子だけを取得
4.指定のパス文字列からファイル名を拡張子を除いて取得
5.指定したパス文字列の絶対パスを取得
6.パス文字列の拡張子を変更する
使用コントロール Button1  〜 Button6 
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)
 
1.起動したプログラムのフルパスを取得する
 
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'起動したプログラムのフルパスを取得する
    'Application.ExecutablePath プロパティ 
    'アプリケーションを開始した実行可能ファイルの
    'パスを、ファイル名を含めて取得します
    Debug.WriteLine(Application.ExecutablePath)  '結果  c:\VBDotNet1\020\bin\020.exe
End Sub
 
2.指定のパス文字列からファイル名を取得
 
Private Sub Button2_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button2.Click
'指定のパス文字列からファイル名を取得
    'Path.GetFileName メソッド
    '指定したパス文字列のファイル名と拡張子を返します。
    Debug.WriteLine(System.IO.Path.GetFileName("c:\VBDotNet1\020\bin\020.exe"))

    '結果 020.exe  (ファイルの有無はチェックしない)
End Sub
 
3.指定のパス文字列から拡張子だけを取得
 
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'指定のパス文字列から拡張子だけを取得
    'Path.GetExtension メソッド 
    '指定したパス文字列の拡張子を返します。
    Debug.WriteLine(System.IO.Path.GetExtension("c:\VBDotNet1\020\bin\020.exe")) '結果 .exe
End Sub

4.指定のパス文字列からファイル名を拡張子を除いて取得
 
Private Sub Button4_Click(ByVal sender As System.Object, _
                         
ByVal e As System.EventArgs) Handles Button4.Click
'指定のパス文字列からファイル名を拡張子を除いて取得
    'Path.GetFileNameWithoutExtension メソッド
    '指定したパス文字列のファイル名を拡張子を付けずに返します。
    Debug.WriteLine(System.IO.Path.GetFileNameWithoutExtension( _
                                            "c:\VBDotNet1\020\bin\020.exe")) 
'結果 020
End Sub

5.指定したパス文字列の絶対パスを取得
 
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'指定したパス文字列の絶対パスを取得
    'Path.GetFullPath メソッド
    '指定したパス文字列の絶対パスを返します。
    Debug.WriteLine(System.IO.Path. _
          GetFullPath("test.txt")) '結果  c:\VBDotNet1\020\bin\test.txt
    Debug.WriteLine(System.IO.Path.GetFullPath("../../"))   '結果  c:\VBDotNet1\
End Sub

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

別途、フォルダー(ディレクトリ)に関するパス操作色々もご覧下さい。




2004/05/30
2005/09/07


VBレスキュー(花ちゃん)
VB.NET2003  VB2005