フォルダ名を取得するには

解決

やま 2002-01-29 03:03:25 No: 103985

fol = Dir(c:\〜, vbDirectory)
Do While fol <> ""
    k = k + 1
    folname3(k) = fol
    fo = Dir
Loop

としてフォルダ名を取得しようとしているのですができません。
どのように直せばいいでしょう？

こころ URL 2002-01-29 11:21:59 No: 103986

一番右の「\」を検索すればいいのでは。
ちなみにPathRemoveFileSpecっていうAPIがあった気がします。
IE系のAPIですけどね。

やま 2002-01-29 19:03:10 No: 103987

こころさん：
回答ありがとうございます。
fol = Dir(c:\folder\, vbDirectory)
＾
ということでしょうか？
（解釈が間違ってたら指摘して下さい）

と、しているんですが
フォルダと一緒にファイルまで拾ってしまいます。
フォルダだけ（又はファイルだけ）を拾いたいのですが...。

みっちゃん 2002-01-31 03:54:42 No: 103988

MyPath = "c:\"
fol = Dir(MyPath, vbDirectory)
Do While fol <> ""
If fo <> "." And fo <> ".." Then
  If (GetAttr(MyPath & fo) And vbDirectory) = vbDirectory Then
    k = k + 1
    folname3(k) = fo
  End If
End If
fo = Dir
Loop

とGetAttrでファイルかフォルダーかを調べます

やま 2002-02-06 19:56:08 No: 103989

こころさん＆みっちゃんさん

ＰＣが使えなくなって
随分遅くなってしまいましたが
解決できました。

ありがとうございました。