ＷＳＨを使ってパスの一部をとりだしたいですが

質問

近頃は本当に皆様の
お陰でいろんな問題解決できて
うれしいです。
例：c:\piaopiao\hamati\sagyou\....
条件はパスの長さは決まっていません。ＷＳＨ-->vbscript
切り出したい文字列は　c:\piaopiao までです。
こちらもよろしくおねがいいたします。

回答No.2

BLUEPIXY · ベストアンサー

>直接パスではなくこのパスを文字列に見なして
ていうか、最初から文字列ですが・・
pathstr=str
すればいいと思いますが？？

回答No.1

BLUEPIXY

Dim fso, pathstr, pfolder, topFolderStr
Dim a

Set fso=WScript.CreateObject("Scripting.FileSystemObject")

'pathstr="c:\junk.txt" 'の時は、"c:\"
pathstr="c:\piaopiao\hamati\sagyou\junk.txt"
pfolder=fso.GetParentFolderName(pathStr)
a=split(pfolder,"\")
topFolderStr=a(0) & "\" & a(1)
WScript.Echo topFolderStr

お礼

大変お気を使わせていただきまして
まことにありがとうございました。
自分でなんとかやっと作れました。
ありがとうございました。

補足

ご返事ありがとうございます。
本当にお世話になっております。
直接パスではなく
このパスを文字列に見なして
\記号の数を判断して
二個目までとる方法はないでしょうか？