作成者	カテゴリ	返答の対象		公開
こうぢ 01/26/1999 02:40 PM		DIR関数でディレクトリのみ取得する方法を教えてください

お騒がせしました。
GETFILEATTRという関数がありました。
先ほど載せたスクリプトは、こんな風に解決できそうです。

DIM pathName AS STRING, DirName AS STRING
DIM attr as INTEGRE
pathName$ = "C:\*.*"
DirName$ = DIR$(pathName$, ATTR_DIRECTORY)

DO WHILEe DirName$ <> ""
attr% = GETFILEATTR("C:\" & DirName)
If (attr% AND ATTR_DIRECTORY) Then
PRINT DirName$
End If
DirName$ = DIR$()
LOOP