Hallo Leute,
hab ein kleines Problem mit VB. Komm einfach nicht mehr weiter.
Könnt ihr mir helfen????
Mein erstellter Syntax:
Private Sub Form_Load()
Dim dat As Date
Dim tage As Date
Dim Zeitangabe
dat = Date
tage = DateAdd("D",-2,dat)
Zeitangabe = Format(FileDateTime("*.txt,"), "DD.MM.YY")
Open "./*.txt" For Input As #1
Do While Not EOF(1)
If (Zeitangabe < tage) Then
Kill "*.txt"
End If
Loop
Close #1
End Sub
Dieser Quellcode sollte mir es ermöglichen, Dateien im gleichen Verzeichnis wie die batch-Datei, die älter 2 Tage sind zu löschen. Ich will diesen Quellcode in eine batch-Datei einbinden, so dass ich bei doppelklick auf die batch-Datei das Programm über VB ausführen lassen kann.
Doch das Ding will nicht!!!:confused:
Hat jemand vielleicht eine Idee???
Wäre nett, wenn mir jemand weiterhelfen könnte. Vielleicht mit den jeweiligen Korrekturen meines Quellcodes.:mod:
Ein dickes Dankeschön im voraus.:uli