spiralのプロフィール

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

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

余計なファイルをデスクトップに出してしまい、(勝手に移動させてしまったのです) 元の場所に戻したいのだけれど、どのアプリケーションのものかわからず困っています。（時間も随分経っています） 「Post.usa」「Postl.ico」「Posts.ico」の３つです。 「Post.usa」は開こうとして違うものに関連付けてしまいアイコンまでも変えてしまいした。スタートメニュー→ファイルの検索で関係するものがないかと探してみたりしましたが無理でした。 ずっとデスクトップ上に放置したままでどうしたらいいのかと途方に暮れています。 ちなみに私はPC初心者なので、回答の際は考慮頂きますようよろしくお願いします。

余計なファイルをデスクトップに出してしまい、(勝手に移動させてしまったのです) 元の場所に戻したいのだけれど、どのアプリケーションのものかわからず困っています。（時間も随分経っています） 「Post.usa」「Postl.ico」「Posts.ico」の３つです。 「Post.usa」は開こうとして違うものに関連付けてしまいアイコンまでも変えてしまいした。スタートメニュー→ファイルの検索で関係するものがないかと探してみたりしましたが無理でした。 ずっとデスクトップ上に放置したままでどうしたらいいのかと途方に暮れています。 ちなみに私はPC初心者なので、回答の際は考慮頂きますようよろしくお願いします。