Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58968 / 76732 ←次へ | 前へ→

【22480】更新日時によりファイルを削除
質問  真咲  - 05/2/22(火) 16:50 -

引用なし
パスワード
   こんばんわ。

ある、フォルダ内のエクセルファイルに対して、更新日時が2004/2/30以前の
ファイルを削除するというマクロを作成しているのですが
下記ですと →部分でファイル名が不正ですとエラーがでてしまいます。。
どなたか良い方法を教えていただけるようお願いいたします。


Sub 更新日の確認()

  Dim Mydate As Date, Comdate As Date
  Dim Fil1 As String
  
 → Fil1 = "C:\\デスクトップ\*.xls"
  Mydate = FileDateTime(Fil1)
  Comdate = 2004 / 2 / 31

  If Mydate > Comdate Then
    Kill Fil1
   
  End If
  
End Sub

0 hits

【22480】更新日時によりファイルを削除 真咲 05/2/22(火) 16:50 質問
【22481】Re:更新日時によりファイルを削除 Jaka 05/2/22(火) 16:57 回答
【22482】Re:更新日時によりファイルを削除 真咲 05/2/22(火) 17:07 質問
【22483】Re:更新日時によりファイルを削除 kazu 05/2/22(火) 18:31 発言
【22485】Re:更新日時によりファイルを削除 真咲 05/2/22(火) 19:14 質問
【22500】Re:更新日時によりファイルを削除 kazu 05/2/22(火) 22:53 発言
【22512】Re:更新日時によりファイルを削除 Jaka 05/2/23(水) 10:19 回答
【22522】Re:更新日時によりファイルを削除 真咲 05/2/23(水) 13:17 お礼

58968 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free