文字列の抽出方法について

締切済

質問者：patman2
質問日時：2001/07/31 10:03
回答数：1件

アクセス２０００を使っています。
D:\test\image\image.bmp
上記したようなファイル名のフルパスから、下記のようにフォルダ名のみを取り出したいのですがうまくいきません。
　D:\test\image\

InStr関数で"\"の位置を抽出して、left関数で抽出した位置より左側のデータを取り出そうと思ったのですが、InStr関数では、最初に見つかった"\"の位置を抽出してしまうため、left関数で取り出した値が下記のようになってしまい、正確なデータが取り出せません。どうしたらいいでしょうか？
　d:\

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： j_euro
回答日時：2001/07/31 10:29

instr()だとこうですが・・・・・・・・・・

dim tmp
dim last

last = 0
do
tmp = instr(last, fullpath, "\")
if tmp = 0 then
exit do
endif
last = tmp
loop

foldername = left(fullpath, last)

最近のヴァージョンでは、instrrev()があるので、

foldername = left(fullpath, instrrev(fullpath, "\"))
でいいかと思います。

＃実はわたし、この質問で instrrev() を知った・・