HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0310
鼠後輩win98でdirlist9解決


鼠後輩

リンク

2009/3/10(Tue) 15:42:57|NO.23792

いつもお世話になります

sdim nnng,255 sdim jisin,255 ;パスの文字数を255にする jisin=dir_cur ;カレントディレクトリ保存 ; jisin=dir_exe ;カレントディレクトリ保存 dirlist nnng,jisin+"\\img",5 stest=stat screen 5,500,500,0,0,0 mes stat mes nnng mes jisin button "OK",*inp_ok ; OKボタン stop *inp_ok end
hsp3.1です
カレントディレクトリにimgフォルダが有るか確認する物ですが
XPでは、見つけるのですが、98では見つけません
以前のdirlist2はフォルダを無視していたのが、今は拾ってきます
その関係でdirlistの動きが変わったのでしょうか?
XPでも98でもフォルダの有無を確認するにはdirlist2を使う必要が有るのでしょうか?
よろしくお願いします



この記事に返信する


ANTARES

リンク

2009/3/11(Wed) 00:50:07|NO.23806

>XPでは、見つけるのですが、98では見つけません
 普通に見つけましたよ。statも1になったし。

 98立ち上げたの何年ぶりだろ(なぜか95はそれほどでもない)。
HSP3入ってなかったのでダウンロードしたぜい。



鼠後輩

リンク

2009/3/11(Wed) 08:00:09|NO.23810

ANTARES様

そうなんですか
小生の98は見つけません
hspが入ってないから?
実行ファイルだから?
小生作のフリーソフトのユーザーからvistaで動くのに98で動かないとの指摘で
試したら 私の98で動かなかったです
どうした物か



鼠後輩

リンク

2009/3/11(Wed) 08:36:43|NO.23811

ANTARES様

すみません
お礼を忘れとりました
ありがとうございます



鼠後輩

リンク

2009/3/11(Wed) 09:11:47|NO.23812

最初のスクリプトの実行ファイルを
98SEのハードディスク上で実行すると
正常に見つけますが
USBメモリやCDR上で実行すると見つけません
なぜ?



ANTARES

リンク

2009/3/12(Thu) 01:47:19|NO.23828

 exeファイルぅー? そういうことは、先に言ってくれなくっちゃっちゃ。
USBのバージョンが古くてUSBメモリはダメ(試したことはない)。
CD-RはメディアがないのでCD-RWでチャレンジ。
ん? CD-RWなんて読めたっけ? とか思っていたら
やっぱり読めなかった(T_T)

 それでは、MOは?
おお、確かにダメです。exeファイルだけじゃないです。
スクリプトで実行してもダメでした。それどころか、
「img」を「*.*」にして「,5」を削除しても何も拾いません。

 それでは、FDは?
やっぱりダメです。

 結論としては、dirlistはWin98ではHDに対してしか使えないようです。

 しまった。HSP2で試してみるのを忘れてしまった。
うーん、もう一度立ち上げる気はしない。
うちの場合、98を立ち上げるのは、けっこうめんどいのです。



鼠後輩

リンク

2009/3/12(Thu) 08:00:57|NO.23832

ANTARES様

お手間を取っていただき、ありがとうございます
やはりそうでしたか
やりたいことはdirlist2で実現しましたので
とりあえず解決と言うことで

でも、なんでだろう?



かの

リンク

2009/3/20(Fri) 10:36:16|NO.23995

すでに解決済み&遅いレスで申し訳ありませんが、参考まで。

上記スクリプト、Win98ではドライブ直下に置いて実行していませんか?

ドライブ直下だとカレントディレクトリが
例えば「D:\」みたいに末尾に「\」マークが付くので、
dirlist を実行している行で「\\」を加えていると
意図した結果になりませんでした。

解決策としては変数末尾に「\」が含まれているかで判断すれば良さそうです。



ANTARES

リンク

2009/3/21(Sat) 04:55:35|NO.24011

 す、鋭いっ!!
気がつきませんでしたが、確かにその通りですね。
MOもFDも以下のように修正したら動きました。

【修正前】
jisin=dir_cur ;カレントディレクトリ保存
【修正後】
jisin=dir_cur ;カレントディレクトリ保存
if strmid(jisin,strlen(jisin)-1,1)!="\\": jisin+="\\"

【修正前】
dirlist nnng,jisin+"\\img",5
【修正後】
dirlist nnng,jisin+"img",5



鼠後輩

リンク

2009/3/24(Tue) 16:22:14|NO.24096

かの様
ANTARES様

ありがとうございました

dirlist2でも同じ事が起こり
jisinの最後が¥だともいでしまって解決していたので
お返事が遅くなりました
XPだと¥が¥¥でも動くのにね



ONION software Copyright 1997-2021(c) All rights reserved.