Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58974 / 76738

←次へ　｜　前へ→


	【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

≪