>>9 
るしぇさん 
アドバイスありがとうございますm(__)m 
 
質問②に関してですが、以下のように 
4:00:00に月曜日.txtを今日データ.txt 
に上書きするように考えてみましたが、 
うまくいきません・・・。 
何度もすみませんが、どなたかアドバイス 
よろしくお願いします。 
 
Public Class Form3 
   Dim genzai As Date 
   Dim strTime As Date 
 
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
 
 Dim Fname1 As String = ("月曜日.txt")  
 Dim Fname2 As String = ("今日データ.txt") 
 
     genzai = Now 
     strTime = TimeValue("4:00:00")     
        If genzai = strTime Then 
            IO.File.Copy(Fname1, Fname2, True) 
        End If 
    End Sub