>>13 
るしぇさん 
 
おっしゃる通りです。 
お叱りありがとうございます。反省しました。 
下記のようにする事で解決しました。 
 
    Dim genzai As Date 
    Dim strTime As Date 
    Dim toyoubi As String 
 
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
 Handles MyBase.Load 
 
Dim today As System.DateTime 
Dim tomorrow As System.DateTime 
 
today = System.DateTime.Now 
tomorrow = today.AddDays(1) 
 
toyoubi = tomorrow.ToString("dddd") 
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)  
Handles Timer1.Tick 
 
Dim Fname1 As String = (toyoubi & ".txt") 
Dim Fname2 As String = ("翌日データ.txt") 
 
        genzai = TimeValue(Now) 
        strTime = TimeValue("4:00:00") 
         
        If genzai = strTime Then 
            IO.File.Copy(Fname1, Fname2, True) 
        End If