VB6.0 Dir関数について
VB6.0について質問です。
指定のフォルダ内にあるMDBファイル名をうまく取得できないのでお知恵をお貸しください。
最初のファイル名は取得できるのですがitem = Dirで次のファイル名を取得できないでいます。
INIfile_readでiniファイルから設定値を取得しています。
エラーメッセージは「プロシージャの呼び出し、または引数が不正です」
最初にファイル名を取得できているときにDirをウォッチ式の追加でみてみたらちゃんと次のファイル名は表示されます。
この場合どのような処理ミスが考えられますか??
path = INIfile_read("PATH", "HD")
item = Dir(path & "\" & "*.mdb", vbNormal)
Do While item <> "" ' ループを開始します。
date1 = Mid(item, 1, 4) & "/" & Mid(item, 5, 2) & "/" & Mid(item, 7, 2)
count = DateDiff("d", date1, Date) '今日とファイル作成日との差を取得
bkup = INIfile_read("DateDiff", "DATE") 'iniファイルから削除す日数を取得
If count > bkup Then
Kill (path & "\" & item)
End If
item = Dir
Loop
お礼
$open_folder = "../../img/cgi-bin/uploader/" . $FORM{'user'}; opendir dir , $open_folder; @dir_file = readdir(dir); というようにしました。 今までは opendir dir , $FORM{'user'}; @dir_file = readdir(dir); という感じにしていたらできたんですが。 print "フォルダ名:$open_folder<BR>\n"; としてみると、意図するフォルダが表示はされてるようなんですが。
補足
テストとして、 $img = $open_folder . "/ファイル名.gif"; print "<IMG SRC='$img'><BR>\n"; としたところ、きちんと絵が表示されました。 ※ファイル名は存在するファイルの名前をコピーして貼り付けました。 ということは、指定の仕方ではないのですよね?