いつもお世話になっております。

PBのOLEObjectでScipting.FileSystemObjectを作成し
ファイルシステム情報を取得したいのですが
オブジェクト配列をループさせる方法がよくわかりません。
VBでは
---------------------------------------
　　Dim fso As New FileSystemObject
    Dim dv As Drive
    
    For Each dv In fso.Drives
        Debug.Print dv.Path
    Next
---------------------------------------
のようにできるのですが…

PBで試しに
---------------------------------------------------------
OLEobject lo_fso
OLEobject lo_drive
Long ll_drive

lo_fso = create oleobject
lo_fso.connecttonewobject(\"Scripting.FileSystemObject\")
lo_drive = create oleobject

for ll_drive = 1 to lo_fso.drives.count
lo_drive = lo_fso.drives.item(ll_drive)
st_1.text = st_1.text + \"~n\" + String(lo_drive)
next
---------------------------------------------------------
のようにしたのですが強制エラーで終了してしまいます。

どなたか方法をご存知でしたら教えてください。
もしくはPBでAPIを使わずにファイル情報を取得する方法があればよろしくお願いします。