TOP > カテゴリ > Visual Basic >

パス名からファイル名を取得する

パス名からファイル名を取得するサンプルです。

サンプルの実行画面

ソースコード

[GetFileTitle.frm]

'GetFileTitle=>パスからファイル名を取得

'<引数>
'lpszFile:        ファイルのパスを指定する
'lpszTitle:       ファイル名が入る
'cbBuf:           ファイル名の文字数

'@戻り値@
'正常終了は0

Private 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(Text1.Text, nName, nLeng)
    Text2.Text = nName

End Sub

Private Sub Form_Load()
  Text1.Text = "C:\Windows\Calc.exe"
  Text2.Text = ""
End Sub

ソースコード一式のダウンロード

vbapi_getfiletitle.zip 992 バイト (992 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





掲示板

ソフトウェア、ハードウェアのプログラミング用の掲示板を作成しました。質問やわからない事は@掲示板でユーザー同士で情報を共有して下さい。

関連記事



公開日:2015年03月04日
記事NO:00342