ファイルに関するパス操作色々(VB6.0) - VBレスキュー(花ちゃん)

　下記プログラムコードに関する補足・注意事項　
動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option　：[Option Explicit]
参照設定：　　　　　　　　　　　　　　　　　　参照設定方法参照
使用 API：WinHelp
その他　：このサンプルは、Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。
　　　　：

Win32 API とは
　Win32 Application Programming Interfaces の略で、32bit プロセッサで動作する Windows
95 等、以降用に対応するアプリケーションの開発者のために、公開されている関数を指します。
尚、Visual Basic 2010 等の .NET 系のバージョンや VBA からも使用する事ができます。
　ここでは、略して Win32 API　とか　Win32 API 関数とか表示スペースの関係から　API　と表記する場合があります。

１．指定されたファイルのフルパスを取得する

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject
　　Dim myFile　 As File
　　'BuildPath メソッドは、必要な場合だけ、既存パスと指定した名前の間にパスの区切り文字を挿入します。
　　Set myFile = Fso.GetFile(Fso.BuildPath(App.Path, "test.txt"))

　　'指定されたファイルのフルパスを取得する
　　Debug.Print myFile.Path　　 '結果　C:\Test\test.txt

End Sub

２．指定されたファイルのフルパスからファイル名だけを取得する

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject
　　Dim myFile　 As File
　　'BuildPath メソッドは、必要な場合だけ、既存パスと指定した名前の間にパスの区切り文字を挿入します。
　　Set myFile = Fso.GetFile(Fso.BuildPath(App.Path, "test.txt"))

　　'指定されたファイルのフルパスからファイル名だけを取得する
　　Debug.Print myFile.Name　　　'結果　test.txt

End Sub

３．指定されたファイルのフルパスからドライブ名だけを取得する

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject
　　Dim myFile　 As File
　　'BuildPath メソッドは、必要な場合だけ、既存パスと指定した名前の間にパスの区切り文字を挿入します。
　　Set myFile = Fso.GetFile(Fso.BuildPath(App.Path, "test.txt"))

　　'指定されたファイルのフルパスからドライブ名だけを取得する
　　Debug.Print myFile.Drive　　　 '結果　C:

End Sub

４．指定されたファイルのフルパスからフォルダー名だけを取得する

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject
　　Dim myFile　 As File
　　'BuildPath メソッドは、必要な場合だけ、既存パスと指定した名前の間にパスの区切り文字を挿入します。
　　Set myFile = Fso.GetFile(Fso.BuildPath(App.Path, "test.txt"))

　　'指定されたファイルのフルパスからフォルダー名だけを取得する
　　Debug.Print myFile.ParentFolder　　　　'結果　C:\Test

End Sub

５．指定されたファイルのフルパスから拡張子を除いたファイル名を取得する

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject
　　Dim myFile　 As File
　　'BuildPath メソッドは、必要な場合だけ、既存パスと指定した名前の間にパスの区切り文字を挿入します。
　　Set myFile = Fso.GetFile(Fso.BuildPath(App.Path, "test.txt"))

　　'指定されたファイルのフルパスから拡張子を除いたファイル名を取得する
　　Debug.Print Fso.GetBaseName(myFile)　　　　　'結果　test
End Sub

６．指定されたファイルのフルパスからファイル名を除いた拡張子を取得する

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject
　　Dim myFile　 As File
　　'BuildPath メソッドは、必要な場合だけ、既存パスと指定した名前の間にパスの区切り文字を挿入します。
　　Set myFile = Fso.GetFile(Fso.BuildPath(App.Path, "test.txt"))

　　'指定されたファイルのフルパスからファイル名を除いた拡張子を取得する
　　Debug.Print Fso.GetExtensionName(myFile)　　　　　 '結果　txt
End Sub

７．指定されたパスの最後の構成要素を返します

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject

　　'指定されたパスの最後の構成要素を返します。
　　Debug.Print Fso.GetFileName("C:\MyFolde\Test.txt")　　　'結果　Test.txt
　　Debug.Print Fso.GetFileName("C:\MyFolde\")　　　　　　　'結果　MyFolde
End Sub

８．以前の 8.3 名前付け規則に従った名前を必要とするプログラムで使用できる短いパスを取得

Private Sub Command1_Click()
　　Dim Fso　　　 As New FileSystemObject

　　'以前の 8.3 名前付け規則に従った名前を必要とするプログラムで使用できる短いパスを返します。
　　Debug.Print Fso.GetFile("C:\Program Files\Apple Software Update\SoftwareUpdate.exe").ShortPath
　　　'結果　C:\PROGRA~1\APPLES~1\SOFTWA~1.EXE
End Sub

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

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

Visual Basic 6.0