２１．パスからファイル名を取得する方法



＜　使用用途　＞
パスからファイル名を取得

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のGetFileTitleを使用します。
GetFileTitle＝＞パスからファイル名を取得
　　＜引数＞
　　　　　lpszFile：　　　 ファイルのパスを指定する
　　　　　lpszTitle：　　　ファイル名が入る　
　　　　　cbBuf：　 　　　ファイル名の文字数　
　　＠戻り値＠　　
　　　　正常終了は0　　　　

<　ＳＡＭＰＬＥ　＞
'C:\Windows\calc.exeからcalcだけを抽出する処理です
’標準モジュール
Public Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer

’フォーム内の処理
Private Sub Command1_Click()

　　Dim nName As String
　　Dim nLeng As Integer
　　Dim Ret As Integer

　　'バッファを確保
　　nName = String(250, Chr(0))
　　nLeng = Len(nName)

　　Ret = GetFileTitle("C:\Windows\calc.exe", nName, nLeng)
　　Text1.Text = nName

End Sub