HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2009 0310	鼠後輩	win98でdirlist	9

鼠後輩

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

いつもお世話になります



	sdim nnng,255
	sdim jisin,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

ｈｓｐ３．１です
カレントディレクトリにimgフォルダが有るか確認する物ですが
ＸＰでは、見つけるのですが、９８では見つけません
以前のdirlist2はフォルダを無視していたのが、今は拾ってきます
その関係でdirlistの動きが変わったのでしょうか？
ＸＰでも９８でもフォルダの有無を確認するにはdirlist2を使う必要が有るのでしょうか？
よろしくお願いします

この記事に返信する

ANTARES

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

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

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

鼠後輩

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

ANTARES様

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

鼠後輩

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

ANTARES様

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

鼠後輩

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

最初のスクリプトの実行ファイルを
９８ＳＥのハードディスク上で実行すると
正常に見つけますが
ＵＳＢメモリやＣＤＲ上で実行すると見つけません
なぜ？

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の最後が￥だともいでしまって解決していたので
お返事が遅くなりました
ＸＰだと￥が￥￥でも動くのにね