Privat undertmrA_Tick (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs) behandlar tmrA.Tick
Dunkla FileToDelete som stränger
Dunkel filetodelete1 som stränger
Dunkelt som tas bort som Boolean = falskt
Dunkel fi1 som ny System.IO.FileInfo (FileToDelete)
Dunkel fi2 som ny System.IO.FileInfo (filetodelete1)
FileToDelete = ”C:\Documents and Settings\” + Environment.UserName +” \ lokalinställningar \ vikarier \ routerequest1.html ",
filetodelete1 = ”C:\Users\” + Environment.UserName +” \ appdata \ lokal \ vikarie \ routerequest1.html ",
Inte-borttagna stunder
Försök
Om fi1.Exists därefter
fi1.Delete ()
Avsluta om
Om fi2.Exists därefter
fi2.Delete ()
Avsluta om
borttaget = True
Fånga före detta som IO.IOException
borttaget = falskt
Avsluta försök
Avsluta stunder
Avsluta suben