[[20200806235620]]　『ファイル名が可変日付のファイルをフォルダ移動し』（ピノ）　ページの最後に飛ぶ

『ファイル名が可変日付のファイルをフォルダ移動したい』（ピノ）

度々質問失礼します。

ファイル名が可変日付のファイルをフォルダ移動したいのですが、
以下構文を記載したところ、開始日の変数値が20200799という
存在しない日付が取れてしまいます。
これの解消方法を教えていただけないでしょうか。

なお、変数はDateにしたところ、「型が一致しない」となった為、
Variant型を使用しています。
これが原因でしょうか…

これが原因の場合、Date型を使用するには、どこを直したらよいでしょうか。

Sub フォルダ移動()

  Dim fso As New FileSystemObject

  Dim 本日 As Variant  '本日日付変数
  Dim 開始日 As String
  Dim 終了日 As String

    本日 = Format(Date, "yyyymmdd")
    '1週間前のファイル
    開始日 = 本日 - 7
    終了日 = 本日 + 1

 fso.movefile Source:="C:\Users\mi\Desktop\新しいフォルダー\" & 開始日 & "-" & 終了日 & "発注表(05)", Destination:="C:\Users\mi\Desktop\新しいフォルダー\vakku\"

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

本日という文字列に対して加減算するのが間違い。
"20200801"の2日前は"20200799"なんですか？

Dateに加減算したものをFormatで文字列にすべき。

（γ） 2020/08/07(金) 00:06

γ様

有難うございます。
別コラムでもこな２様にもご指摘いただきました。

おかげさまで修正してやりたいことができました。
（ピノ） 2020/08/08(土) 00:10

別に真似したわけじゃないですよ。発信時刻を見て下さい。念のため。
（γ） 2020/08/08(土) 00:20

コメント返信：