Dim CT As Date
 
Dim WT As Date
 
Dim datei As String = " C:\temp\test.txt"
 
Dim datei1 As String = " C:\temp\test1.txt"
 
Dim datei2 As String = " C:\temp\test2.txt"
 
CT = System.IO.File.GetCreationTime(datei)
 
WT = System.IO.File.GetLastWriteTime(datei)
 
System.IO.File.SetCreationTime(datei1, CT)
 
System.IO.File.SetLastWriteTime(datei1, CT)
 
System.IO.File.SetCreationTime(datei2, System.IO.File.GetCreationTime(datei))
 
System.IO.File.SetLastWriteTime(datei2, System.IO.File.GetLastWriteTime(datei))