>>10 
>質問②に関してですが、以下のように  
>4:00:00に月曜日.txtを今日データ.txt  
>に上書きするように考えてみましたが、  
>うまくいきません・・・。  
同じコードでも環境によって結果は異なります。 
『うまくいきません』では説明になっていません。 
 
また、If 文が実行されないのであれば、条件が 
成り立っていないのですから、変数の値を確認して 
ください。例えば以下のコードで確認できます。 
>        Debug.Print(genzai.ToString("yyyy/MM/dd HH:mm:ss")) 
>        Debug.Print(strTime.ToString("yyyy/MM/dd HH:mm:ss")) 
 
既に回答済ですが、日付は「年月日時分秒」全て 
そろって初めて成り立ちます。 
>If genzai = strTime Then 
全て一致しないと条件は成り立ちません。 
 
[DateTime メンバ] に使えるプロパティがないか、ちゃんと 
読むことから始めてください。