VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/08/17(Sat) 23:14 |
| 投稿者 | ： Say |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ファイル名習得について |
別解
FileSystemObjectオブジェクトのGetFileNameメソッドで
ファイル名を取得し、「.」をデリミタとしてSplitし、
取得した配列のUboundが1以下なら要素0が拡張子なしFile名
2以上なら要素0から要素Ubound-1までをデリミタなしで
Joinしたものが拡張子なしFile名です。
別解2
PathStripPathとPathRemoveExtensionを使います。
'パスからファイル名部分を取り出すAPI
Private Declare Sub PathStripPath Lib "SHLWAPI.DLL" Alias "PathStripPathA"
; _
(ByVal strPath As String)
'パスから拡張子を取り除くAPI
Private Declare Sub PathRemoveExtension Lib "SHLWAPI.DLL" Alias "PathRemoveExt
ensionA" _
(ByVal strPath As String)
Private Sub Command1_Click()
Dim strPath As String
strPath = "C:\WINDOWS\花見.bmp"
Call PathStripPath(strPath)
Call PathRemoveExtension(strPath)
MsgBox strPath
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）