ab.com コミュニティ

_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)

コード: 全て選択


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)
多分上記のどちらかで出来るかと思います(未確認)。

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

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

ab.com コミュニティ

_splitpathの使い方

_splitpathの使い方

Re: _splitpathの使い方

Re: _splitpathの使い方