Quellcode zum Programm Datum und Urzeit von Verzeichnissen oder Dateien setzen

Hier der Quellcode zum Programm Datum und Urzeit von Verzeichnissen oder Dateien setzen...

        
	Imports System
	Imports System.IO
	Imports System.IO.File
	Imports Microsoft.VisualBasic
	Class App
		Shared Sub Main()
		On Error GoTo ErrorHandler
		ErrorHandler:
		If Err.Number <> 0 Then
			Dim App_Error = MsgBox("Fehlercode: " & Err.Number & vbNewLine & "Fehlerbeschreibung: " & Err.Description, 18, "Fehlermeldung")
			If App_Error = 4 Then
				Resume
			ElseIf App_Error = 5 Then
				Resume Next
			End If
		End If
			Dim ModiObjekt, VorhAttrib, ModiOrdner, SubOrdner
			If Command$ = "" Then
				ModiObjekt = InputBox("Ordner/Dateiname eingeben..." & vbNewLine & vbNewLine & "Beispiel: C:\Test.txt","Ordner/Dateiname")
				If ModiObjekt = "" Or File.Exists(ModiObjekt)=False Then
				If Directory.Exists(ModiObjekt)=False Then
					MsgBox("Ordner/Datei nicht vorhanden!" & vbNewLine & "Programm wird beendet.",16,"! Fehler !")
					Exit Sub
				End If
				End If
			Else
				ModiObjekt = Command$
			End If
			Dim SetzeModiDat = InputBox("Datum/Uhrzeit eingeben..."_
				& vbNewLine & vbNewLine & "Beispiel: 00.00.0000 00:00:00","Datum und Uhrzeit einstellen",Now)
			If Directory.Exists(ModiObjekt) Then
				FindeDateien(ModiObjekt,SetzeModiDat)
				FindeSubOrdner(ModiObjekt,SetzeModiDat)
				VorhAttrib=File.GetAttributes(ModiObjekt)
				File.SetAttributes(ModiObjekt,16)
				SetzeOrdner(ModiObjekt,SetzeModiDat)
				File.SetAttributes(ModiObjekt,VorhAttrib)
			Else
				VorhAttrib=File.GetAttributes(ModiObjekt)
				File.SetAttributes(ModiObjekt,0)
				SetzeDatei(ModiObjekt,SetzeModiDat)
				File.SetAttributes(ModiObjekt,VorhAttrib)
			End If
		End Sub
		Shared Sub FindeDateien(ModiObjekt,SetzeModiDat)
			Dim VorhAttrib, ModiDatei
			For Each ModiDatei In Directory.GetFiles(ModiObjekt)
				VorhAttrib=File.GetAttributes(ModiDatei)
				File.SetAttributes(ModiDatei,0)
				SetzeDatei(ModiDatei,SetzeModiDat)
				File.SetAttributes(ModiDatei,VorhAttrib)
			Next
		End Sub
		Shared Sub SetzeDatei(ModiDatei,SetzeModiDat)
			File.SetCreationTime(ModiDatei,SetzeModiDat)
			File.SetLastAccessTime(ModiDatei,SetzeModiDat)
			File.SetLastWriteTime(ModiDatei,SetzeModiDat)
		End Sub
		Shared Sub FindeSubOrdner(ModiOrdner,SetzeModiDat)
			Dim SubOrdner, VorhAttrib
			For Each SubOrdner In Directory.GetDirectories(ModiOrdner)
				FindeDateien(SubOrdner,SetzeModiDat)
				FindeSubOrdner(SubOrdner,SetzeModiDat)
				VorhAttrib=File.GetAttributes(SubOrdner)
				File.SetAttributes(SubOrdner,16)
				SetzeOrdner(SubOrdner,SetzeModiDat)
				File.SetAttributes(SubOrdner,VorhAttrib)
			Next
		End Sub
		Shared Sub SetzeOrdner(ModiOrdner,SetzeModiDat)
			Directory.SetCreationTime(ModiOrdner,SetzeModiDat)
			Directory.SetLastAccessTime(ModiOrdner,SetzeModiDat)
			Directory.SetLastWriteTime(ModiOrdner,SetzeModiDat)
		End Sub
	End Class