PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 19663 | 03/06/05 09:53:09 | RE(7):Scipting.FileSystemObjectについて By cocoa |
| 19476 | 03/05/10 17:15:54 | RE(6):Scipting.FileSystemObjectについて By ryochan |
| 19475 | 03/05/10 17:07:14 | RE(5):Scipting.FileSystemObjectについて By あすかちゃんの父 |
| 19472 | 03/05/10 09:52:01 | RE(4):Scipting.FileSystemObjectについて By cocoa |
| 19456 | 03/05/08 18:29:43 | RE(3):Scipting.FileSystemObjectについて By あすかちゃんの父 |
| 19454 | 03/05/08 16:03:58 | RE(2):Scipting.FileSystemObjectについて By M.M |
| 19453 | 03/05/08 15:41:16 | RE(1):Scipting.FileSystemObjectについて By coo |
| 19441 | 03/05/07 18:01:15 | Scipting.FileSystemObjectについて By cocoa |
カテゴリ：スクリプトの記述
日付：2003年05月10日 17:15 発信者：ryochan
題名：RE(6):Scipting.FileSystemObjectについて
cocoaさん、こんにちは。
＞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ないので試せないのですが、
＞lo_drive = create oleobject ←この行はいらない（ループで参照を割り当てるから）
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 += lo_drive.DriveLetter + \"~r~n\"
next
もしくは（ダメなら）
for ll_drive = 0 to lo_fso.drives.count - 1
lo_drive = lo_fso.drives.item(ll_drive)
st_1.text += lo_drive.DriveLetter + \"~r~n\"
next
destroy lo_drive
destroy lo_fso
配列の添字は0始点かどうか自信がないので
（PowerScriptの配列形式[]は必ず1始点ですが）
後者の場合でダメなら1からcountまでループさせてみてください。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.