_splitpathの使い方

返信する


答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
BBCode: ON
[img]: ON
[url]: ON
スマイリー: OFF
トピックのレビュー
   

展開ビュー トピックのレビュー: _splitpathの使い方

Re: _splitpathの使い方

by ひろ » 2005年12月19日(月) 13:06

> この場合は、2通りあります。
> 1つ目
> MessageBox(0,MakeStr(fname)+ext,"",MB_OK)
> 2つ目
> fname=MakeStr(fname)
> MessageBox(0,fname+ext,"",MB_OK)
> 多分上記のどちらかで出来るかと思います(未確認)。

はやっ・・・Mario2さん早々と有難う御座います
早速MakeStrを調べてやってみます
有難う御座いました

Re: _splitpathの使い方

by Mario2 » 2005年12月19日(月) 12:57

コード: 全て選択


Dim path As string
Dim drive As string
Dim dir As string
Dim fname As string
Dim ext As string

drive = ZeroString(255)
dir = ZeroString(255)
fname = ZeroString(255)
ext = ZeroString(255)

path="c:\windows\readme.txt"
_splitpath(path,drive,dir,fname,ext)
MessageBox(0,fname+ext,"",MB_OK)
この場合は、2通りあります。
1つ目
MessageBox(0,MakeStr(fname)+ext,"",MB_OK)
2つ目
fname=MakeStr(fname)
MessageBox(0,fname+ext,"",MB_OK)
多分上記のどちらかで出来るかと思います(未確認)。

_splitpathの使い方

by ひろ » 2005年12月19日(月) 12:53

_splitpathを使おうと思いHELPファイルだけでは上手く動作しなかった（ZeroStringで領域を確保を行って無かった）ので、
BackSearchAB.chmの中から2005/04/06(Wed) 20:48に投稿されてる　たけぽいさんのコードをそのままAB　v4.12.01で実行したのですがファイル名(readme)しか表示されません
拡張子までを表示される為にはどの様にしたら良いのでしょうか？

コード: 全て選択


Dim path As string
Dim drive As string
Dim dir As string
Dim fname As string
Dim ext As string

drive = ZeroString(255)
dir = ZeroString(255)
fname = ZeroString(255)
ext = ZeroString(255)

path="c:\windows\readme.txt"
_splitpath(path,drive,dir,fname,ext)
MessageBox(0,fname+ext,"",MB_OK)

ページトップ