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

解決

やま  2002-01-29 03:03:25  No: 103985  IP: [192.*.*.*]

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  IP: [192.*.*.*]

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

編集    削除
やま  2002-01-29 19:03:10  No: 103987  IP: [192.*.*.*]

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

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

編集    削除
みっちゃん  2002-01-31 03:54:42  No: 103988  IP: [192.*.*.*]

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  IP: [192.*.*.*]

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

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

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

編集    削除